[求助]知道封闭图形的图元名,如何求它的面积呢?

hbird · 发表于 2006-2-22 10:42

ZZXXQQ · 发表于 2006-2-22 11:23

设图元名为EN

(COMMAND "AREA" "E" EN)

(SETQ AREAS (GETVAR "AREA"))

citykunan · 发表于 2006-2-22 11:34

写了一个对于LWPOLYLINE的

(defun c:AAA (/ ss i ent name area)
(vl-load-com)
(setq ss (ssget "X" '((0 . "LWPOLYLINE")(70 . 1))))

(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq area (vla-get-Area (vlax-ename->vla-object ent)))

     (princ (strcat "\n" (rtos area 2 4)))
    (setq i (1+ i))
)

)

账号		自动登录	找回密码
密码			注册