在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)
      )

zml84

http://www.mjtd.com/bbs/dispbbs.asp?boardid=3&replyid=10689&id=76091&page=3&skin=0&landlord=0&Star=2

13、14楼

zfsaaa

首先谢谢2楼的解答，可能是我表达不清，我的意思是能实现一次框选多个图上多边形，并标注出他们各个多边形面积。请高手们帮帮

zfsaaa

谢谢