求闭合多段线的面积

sdwzzy · 发表于 2012-3-4 22:52:37

(setq ssn (ssget))
(setq n 0 )
(repeat (sslength ssn)
(setq en (ssname ssn n))
(setq en_data (entget en))
(setq en_type (assoc 0 en_data))(setq en_bh (assoc 1 en_data))
(if (= en_type "LWPOLYLINE") and (= en_bh 1)
(command "AREA" "o" en)
(setq mj (getvar "AREA") )
)
想用上面的代码计算图里面闭合多段线的面积，(command "AREA" "o" enk)这句出错，不知道怎么回事？我是初学者，写的比较乱!请有兴趣的朋友指导下！谢谢！！！

LLXXZZ · 发表于 2012-3-7 12:34:53

(vlax-get-property (vlax-ename->vla-object (car(entsel) )) 'area)

byghbcx · 发表于 2012-3-5 08:27:16

(= en_type "LWPOLYLINE") and (= en_bh 1)
and语句是这样写吗？en_bh代表什么？

Andyhon · 发表于 2012-3-5 09:30:23

http://bbs.mjtd.com/thread-82215-1-1.html
more:
http://www.google.com/search?as_ ... A%2F%2Fbbs.mjtd.com

sdwzzy · 发表于 2012-3-5 20:23:34

谢谢楼上的老师，我用en_bh表示闭合，and 语句能不能这样写就不懂了，刚入门，还不大懂。

sdwzzy · 发表于 2012-3-5 22:05:20

试了下，and 语句不能这样写

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

求闭合多段线的面积

点评

相关帖子