lisp编程： 怎样查看一个多线段是不是闭合的？
2个回答
展开全部
(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命令行查看属性列表了。
(setq %k1 (cdr (assoc 70 #k1));%k1为是否封闭值1为封闭，0为不封闭
(setq %k2 (cdr (assoc 62 #k1));如果值为nil，就表示颜色为 ByLayer颜色，如果有数值就表示别的颜色。
如果要检查数值的话，使用(princ #k1)就可以在AutoCAD命令行查看属性列表了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
(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未闭合。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
