图层过滤改成手动灵活选择

wanhongron

图层过滤(setq        ss (ssget'(8 . "图层1、图层2、图层3")))能改成通过鼠标灵活选取对象获取图层吗？

start4444

(defun c:tt5 (/ en i lystr ss1 ss2)
        (prompt "\n选择源对象<右键结束>：")
  (setq ss1 (ssget) i 0 lystr (cdr (assoc 8 (entget (ssname ss1 0)))))
        (repeat (1- (sslength ss1))
                (setq en (ssname ss1 (setq i (1+ i))))
                (setq lystr (strcat lystr "," (cdr (assoc 8 (entget en)))))
        )
        (prompt "\n选择目标对象 或 [全选(右键)]：")
        (setq ss2 (ssget (list (cons 8 lystr))))  (if (not ss2) (setq ss2 (ssget "x" (list (cons 8 lystr)))))
  (sssetfirst nil ss2)
  (princ)
)

恒毅

(setq
        enlst (vl-remove-if 'listp (mapcar 'cadr (ssnamex  (ssget))))
        tcstr (cdr (assoc 8 (entget (car enlst) )))
        enlst (cdr enlst)
        nu (mapcar '(lambda(x) (setq tcstr (strcat tcstr "," (cdr (assoc 8 (entget x)))))) enlst)
        ss (ssget "x" (list (cons 8 tcstr)))
)

magicheno

学习楼~~~~

xyp1964

1. (defun c:tt ()
   
2.   (setq la "")
   
3.   (while (setq s1 (car (entsel "\n选择: ")))
   
4.     (setq la (strcat la "," (cdr (assoc 8 (entget s1)))))
   
5.   )
   
6.   (setq ss (ssget "x" (list (cons 8 la))))
   
7.   (sssetfirst nil ss)
   
8.   (princ)
   
9. )
   

(defun c:tt ()<br />   (setq la "")<br />   (while (setq s1 (car (entsel "\n选择: ")))<br />     (setq la (strcat la "," (cdr (assoc 8 (entget s1)))))<br />   )<br />   (setq ss (ssget "x" (list (cons 8 la))))<br />   (sssetfirst nil ss)<br />   (princ)<br /> )<br />

wanhongron

谢谢各位侠，start4444能支持多选满足我的想法