CAD Lisp脚本自动标注面积

wb1();生成面域并在其内标注面积(亩)和质心
wb2();生成面域并在其内标注面积(m2)和质心

还是非常实用的小程序，如下：

(defun c:wb1();生成面域并在其内标注面积(亩)和质心
;(VL-LOAD-COM)
;(setq AcadObject (vlax-get-acad-object)
;AcadDocument (vla-get-ActiveDocument AcadObject)
;mSpace (vla-get-ModelSpace AcadDocument)
;)
(setq p1 t)
(while p1
(if *error*
;(command "_boundary" (setq p1 (getpoint "点取封闭区域内部的一点:")) "A" "o" "R" "" "")
;(command "_boundary" (setq p1 (getpoint "点取封闭区域内部的一点:")) "Y" "A" "o" "R" "" "")
(command "_boundary" (setq p1 (getpoint "\n点取封闭区域内部的一点:"))  "")
)
(setq EN (entlast))
(command "area" "o" EN)
(setq AA (getvar "area"))
(setq aa (/ aa 2000))
(setq aa (* aa 3))
(setq sss (RTOS aa 2 4))
(setq sss (strcat "S=" sss  "亩"))
;(setq Centriod (vla-get-Centroid (vlax-ename->vla-object EN)))
;(setq x (vlax-safearray-get-element (vlax-variant-value Centriod) 0))
;(setq y (vlax-safearray-get-element (vlax-variant-value Centriod) 1))
(if (=  ffsize nil)
    (progn