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

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

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

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

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

(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

学习了~~~！！

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