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

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

本帖最后由 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:37

(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:34


(ssget "_WP" (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel)))))(list(cons 2 km)))
自己解决
页: [1]
查看完整版本: 求助.改一下 闭合PL线内 选择相同的块