lisp编程：怎样查看一个多线段是不是闭合的？

答案:2 悬赏:50 手机版

解决时间 2021-11-28 21:05

提问者网友：情歌越听越心酸
2021-11-28 08:09

最佳答案

五星知识达人网友：天凉才是好个秋
2021-11-28 09:43

(setq #k1 (entget &k1));&k1为对象，取得属性列表
(setq %k1 (cdr (assoc 70 #k1));%k1为是否封闭值1为封闭，0为不封闭
(setq %k2 (cdr (assoc 62 #k1));如果值为nil，就表示颜色为 ByLayer颜色，如果有数值就表示别的颜色。
如果要检查数值的话，使用(princ #k1)就可以在AutoCAD命令行查看属性列表了。

全部回答

1楼网友：西风乍起
2021-11-28 09:55

(defun isclosePL( / ena)
(setq ena (entget (car (entsel "选择多段线:"))))
(or (= 1 (cdr (assoc 70 ena)))
(equal (assoc 10 ena)(assoc 10 (reverse ena))))
)判断多段线闭合，带括号调用(isclosePL)，返回值: T闭合，nil未闭合。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息

lisp编程： 怎样查看一个多线段是不是闭合的？

lisp编程：怎样查看一个多线段是不是闭合的？