jwdjwd 发表于 2012-6-1 11:41:11

点选闭合多段线后，自动选择闭合多段内的所有对象，请问怎样实现呢？

点选闭合多段线后，自动选择闭合多段内的所有对象，请问怎样实现呢？

caoyin 发表于 2012-6-1 11:48:09

如果是不含弧段的多段线，求出顶点表VLST ，然后(ssget "cp"VLST)

orange_uo1be 发表于 2019-12-2 20:10:34

(defun C:WP (/ lss en enlist)
(print " **********")
(setvar "cmdecho" 0)
(while (setq en (car (entsel)))
   (setq enlist (entget en))
    (setq lss (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) enlist)))
(Setq xuanze (ssget "WP" lss))
(sssetfirst nil xuanze)
)
(princ)
)

magicheno 发表于 2021-9-7 22:13:34

学习了~~~！！
页: [1]
查看完整版本: 点选闭合多段线后，自动选择闭合多段内的所有对象，请问怎样实现呢？