求助.改一下闭合PL线内选择相同的块

weiqi · 发表于 2015-8-9 23:59

本帖最后由 weiqi 于 2015-8-10 00:39 编辑

已有程序...

(defun c:xk ()
(print "请选择目标块")
(setq km (Cdr(assoc 2 (entget (Car(entsel))))))
(print "请选择范围")
(sssetfirst nil (ssget (list (cons 2 km))))
)

麻烦帮忙把请选择范围修改成点选一根闭合PL线在闭合PL线里面选择相同的块

weiqi · 发表于 2015-8-10 00:36

(ssget "_WP" (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel))))) (list (cons 2 km)))
自己解决

weiqi · 发表于 2015-8-10 00:39

(ssget "_WP" (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel))))) (list (cons 2 km)))
自己解决

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

[提问] 求助.改一下 闭合PL线内 选择相同的块

[提问] 求助.改一下闭合PL线内选择相同的块