[LISP]选择集

davinlee

通常是用

(setq ss (ssadd))

(command "_line" p1 p2 "")

(setq ss (ssadd (entlast) ss)

(command "_line" p2 p3 "")

(setq ss (ssadd (entlast) ss)

..............................

来加入选择集.

如果是如下的命令一次执行线的命令,而不是分次执行也不是用pline

(command "_line" p1 p2 p3 p4 p5 p6 p7 p8 "c")

该选择集可以作到吗.

我感觉每次要下(setq ss (ssadd (entlast) ss),程序好像变得很长.

ljpnb

(setq ss0(ssget "x"))
(command "_line" p1 p2 p3 p4 p5 p6 p7 p8 "c")
(command "select" "all" "r" ss0 "")
(setq ss1(ssget "p"))
这是其中一种方法

Mr0sky

感谢各位大佬，学习到了！

davinlee

2楼楼主,谢谢您,问题解决了.

还有其他的方法,也能说一下吗.想学呢!

感谢您.

ljpnb

方法二：

3. (setq en  (ssadd)
4.       enw (entlast)
5. )
6. (command "_line" p1 p2 p3 p4 p5 p6 p7 p8 "c")
7. (if enw
8.   (while (setq enw (entnext enw))
9.     (setq en (ssadd enw en))
10.   )
11.   (setq en (ssget "x"))
12. )

(setq en  (ssadd)       enw (entlast) ) (command "_line" p1 p2 p3 p4 p5 p6 p7 p8 "c") (if enw   (while (setq enw (entnext enw))     (setq en (ssadd enw en))   )   (setq en (ssget "x")) )

davinlee

(setq ss0(ssget "x"))
(command "_line" p1 p2 p3 p4 p5 p6 p7 p8 "c")
(command "select" "all" "r" ss0 "")
(setq ss1(ssget "p"))
之后要再加入新图元

(setvar "clayer" "center")
   (setq cen_line2 (ssadd))                          ;宣告新选择集cen_line2
   (command "_.line"  p17 p18 "")
   (setq cen_line2 (ssadd (entlast) cen_line2))
   (command "_.line"  p19 p20 "")
   (setq cen_line2 (ssadd (entlast) cen_line2))
   (setq ss1 (ssadd cen_line2 ss1)) ;;<<这一行有问题,

ljpnb

引用：(setq ss1 (ssadd cen_line2 ss1)) ;;<<这一行有问题,

你看看帮助里ssadd的用法， 格式:(ssadd [ename [ss]])  

davinlee

格式:(ssadd [ename [ss]])   ename must be an entity.

所以ename不可以是选择集.

若是想将二个选择集合併就不可以如此编辑.

xyp1964

供参考：

2. (defun c:test ()
3.   (setq ptlst1 '(p1 p2 p3 p4 p5 p6 p7 p8)
4. ss     (ssadd)
5. ptlst2 (cdr ptlst1)
6.   )
7.   (command "line" p1)
8.   (foreach pt ptlst2
9.     (command pt)
10.     (setq ss (ssadd (entlast) ss))
11.   )
12.   (command "c")
13.   (setq ss (ssadd (entlast) ss))
14.   ss
15. )

(defun c:test ()   (setq ptlst1 '(p1 p2 p3 p4 p5 p6 p7 p8) ss     (ssadd) ptlst2 (cdr ptlst1)   )   (command "line" p1)   (foreach pt ptlst2     (command pt)     (setq ss (ssadd (entlast) ss))   )   (command "c")   (setq ss (ssadd (entlast) ss))   ss )

davinlee

如果原本就存在ss1选择集,

而另外有一ss2选择集要加入到ss1选择集(ss1与ss2合併)

程序:

(defun merge_ss(ss1 ss2/i)

(setq i 0)

(repeat (sslength ss2)

 (setq ss1 (ssadd (ssname ss2 i) ss1))

 (setq i (1 + i))

)

有没有直接合併的函数可以用.

ljpnb

也可以这样

(command "select" ss1 ss2 "")
(setq ss1(ssget "p"))