;; | ----------------------------------------------------------------------------
;; | MI_CirErr
;; | ----------------------------------------------------------------------------
;; | Function : Creates a Circle Error Flag in the DWGERR layer at specified
;; |            scale, Color and with a message
;; | Arguments:
;; |            'pt'  - Point at which to insert block
;; |            'Scl' - Scale Factor for block
;; |            'Clr' - Color of Block
;; |            'Msg' - Message to write into Xdata
;; |            'dflt' - Default Value
;; | Action   : Creates Error circles for post-processing
;; | Returns  : The name of the error circle entity
;; | Updated  : October 30, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_CirErr ( pt Scl Clr Msg / ename CL OS )

(setq
	CL (getvar "CLAYER")
	OS (getvar "OSMODE")
)
(setvar "OSMODE" 0)
(LA_mk_c_lyr "DWGERR" "")
(command "._Insert" "CIRERR" pt Scl Scl 0.0)
(setq ename (entlast))
(command "._Chprop" ename "" "_Color" Clr "")
(XD_WriteX ename (list Msg) "DWGERR")
(setvar "CLAYER" cl)
(setvar "OSMODE" OS)
ename
)