[编程交流] lisp错误（无函数定义

;;;;;;;;; ------ Carpet Area Program ------ ;;;;;;;;;
(defun c:CA (/ *error* p5 p6 a b c d e f s)
(setq oldCM (getvar "CMDECHO")
     oldos (getvar "OSMODE")
)
(defun *error* (msg)
(if oldCM (setvar "CMDECHO" oldCM))
(if oldos (setvar "OSMODE" oldos))
(princ msg)
(princ)
)
(setvar "CMDECHO" 0)
(setvar "osmode" 0) ;(setvar "osmode" 524)
(if (and (setq s (ssget "_:S:E" '((0 . "LWPOLYLINE"))))
        (setq p5 (getpoint "\nWHERE TO PLACE TEXT: "))
)
(progn
(setq p5 (polar p5 pi 1250))
(setq p6 (polar p5 0 2500))
;(setq fn (getstring t "\nFLAT NO.:"))
(command "._area" "_e" (ssname s 0))
(SETQ A (GETVAR "AREA"))
(setq f (* A 0.000010764))
(setq f (rtos f 2 2))
(SETQ f (strcat f " SQ. FT."))
(SETQ B (/ A 1000000))
(SETQ C (RTOS B 2 2))
(SETQ D "CARPET AREA")
;(setq e (strcat FN " = " C " SQ.MT."))
(setq e (strcat "= " C " SQ.MT."))
(setq F (strcat "= " F))
(COMMAND "_TEXT" "_S" "STANDARD" "_f" P5 p6 "250" D
        "_text" "" e
        "_text" "" f
        "_.rectangle"
        (mapcar '+ P5 '(-165 440 0))
        (mapcar '+ P6 '(165 -1045 0))
) ; end command
)
;; End Progn
(princ "\n>")
)
;; End IF
;; Reset System Variables:
(setvar "cmdecho" oldCM)
(setvar "osmode" oldos)
(princ)
;; Exit Cleanly
)
;; End defun
;;;;;;;;; ------ End Program ---

; New Layer
(defun newLayer (LayName Color Ltype Lweight / NewLay)
 ;loading line type
 (if (not (tblsearch "LTYPE" Ltype))
   (vla-load (vla-get-linetypes activeDoc) Ltype "acadiso.lin"))
 ; Creating new layer
 (if (not (tblsearch "Layer" LayName))
   (setq NewLay (vla-add LayerTable LayName))
   )
 (vla-put-color NewLay Color)
 (vla-put-linetype NewLay Ltype)
 (vla-put-lineweight NewLay Lweight)
 )
(defun gGet (name)
 (cdr (assoc name (vlax-ldata-get modelSpace "mhjv-vars")))
 )

3