|
(defun c:mj () ;;;mjtd.com
(VL-LOAD-COM)
(princ "\n ****本程序为求多个封闭物体的面积之和****")
(princ "\n 请选择封闭物体(圆、多边形)....")
(setq ss (ssget '((0 . "CIRCLE,LWPOLYLINE"))))
(setq i 0
ES 0
)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq obj (vlax-ename->vla-object ent))
(setq s (vla-get-Area obj))
(setq es (+ es s))
(setq i (1+ i))
)
(princ (strcat "总面积为:" (rtos es)))
(princ)
) |
|