如何筛选两个以上的图层（新手问题）（已经解决）
本帖最后由 qcw911 于 2010-12-26 18:41 编辑(setq ss2 (ssget "w" (setq pa (getpoint)) (getcorner pa) '((8 . "0")))) 只能选择0层
如何选择 0层 和图层1或者 0层 图层1 图层2....
(defun c:test13()
(setq la '("1" "2" "3" "4"))
(setq zh (last la))
(setq la (apply 'strcat (reverse(cons zh (reverse (mapcar '(lambda(x) (strcat x ",")) (reverse (cdr (reverse la)))))))))
(setq ss (ssget(list '(-4 . "<and")'(0 . "line")(cons 8la)'(-4 . "and>"))))
)
(defun c:test () 优化后
(setq la '("1" "2" "3" "4")
ss (ssget (list '(0 . "line") (cons 8 (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) la)))))
)
)
'((8 . "0,1,2")) 本帖最后由 露水2 于 2010-12-25 21:14 编辑
http://bbs.mjtd.com/thread-84736-1-1.html
见最后一个
真有你的 直接抄过来 连个谢谢都没有，哎
页:
[1]