框选后选取指定图层的内容代码怎么写？

hijhon · 发表于 2014-9-13 00:13

框选后选取指定图层的内容代码怎么写？

hijhon · 发表于 2014-9-13 00:53

本帖最后由 hijhon 于 2014-9-13 00:55 编辑

能否一次框选后将两组执行的图层内的图元分成两个选择集？
(setq layer "axis,axis_text"
ss1 (ssget (list (cons 8 layer)））
）
(setq layer2 "dote"
ss2 (ssget (list (cons 8 layer2)））
）

Andyhon · 发表于 2014-9-13 08:33

一次框选后 ==> ss
(setq layer "axis,axis_text"
ss1 (ssget "P" (list (cons 8 layer)））
）
(command "select" ss "")
(setq layer2 "dote"
ss2 (ssget "p" (list (cons 8 layer2)））
）

Andyhon · 发表于 2014-9-13 08:41

一次框选后 ==> ss
(setq layer "axis,axis_text"
ss1 (ssget "P" (list (cons 8 layer)))
)
(command "select" ss "")
(setq layer2 "dote"
ss2 (ssget "p" (list (cons 8 layer2)))
)

xyp1964 · 发表于 2014-9-13 09:06

;; 参考方法
1、选择集→表
2、vl-remove-if去除不符合条件的元素
3、表→选择集

琴剑江山_10184 · 发表于 2014-9-13 10:42

(defun c:tt( / ss ss1)
  (setq ss (assoc 8 (entget (car (entsel "\n请指定参照对象的图层:")))))
  (princ "\n框选与参照对象相同的层")
  (setq ss1 (ssget (list ss)))
  (if ss1
(progn
   (sssetfirst nil ss1)
)
  );if
  )

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

[提问] 框选后选取指定图层的内容代码怎么写？