如何筛选两个以上的图层（新手问题）（已经解决）

qcw911 · 发表于 2010-12-24 16:40:49

本帖最后由 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 8  la)'(-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)))))
  )
)

lsjj · 发表于 2010-12-24 18:14:54

'((8 . "0,1,2"))

露水2 · 发表于 2010-12-24 22:41:49

本帖最后由露水2 于 2010-12-25 21:14 编辑

http://bbs.mjtd.com/thread-84736-1-1.html
见最后一个
真有你的直接抄过来连个谢谢都没有，哎

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

[基础] 如何筛选两个以上的图层（新手问题）（已经解决）