在CAD里如何实现框选标注面积？程序代码是?

zfsaaa

在CAD里如何实现框选标注面积？程序代码是如何?以下是网上下的程序代码？

(defun c:m2();
;(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 sss (RTOS aa 2 2))
(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
      (setq ffsize 0.5)
      )

Student

如果要选择的数据的书写格式都是：S=3.152M,Y=6.172M,T=64.732M这中形式的话
可把程序中的下一行：
 (setq r1 (atof z))
改成：
 (setq r1 (atof (substr z 3)))
试试。
（即在将字符串转为数字前，先去掉开头的非数字字符)

zfsaaa

谢谢二楼大侠指点，改后达到目的，谢谢！可现在我还有个问题是如何框选标注面积，代码是：

(defun c:m2();
;(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 sss (RTOS aa 2 2))
(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
      (setq ffsize 0.5)
      )

hehaidizhi

我也想知道有没有这么好的程序，期待

陈亚娣