[LISP函数]：如何直接获取copy后的选择集?

lsjjm

如何直接获取copy后的选择集?

lijiao

请讲得更明白一点。

zhynt

在copy后用：
(setq a (ssget "P"))

lsjjm

你这不对呀! (setq a (ssget "P") 得到的a 仍是copy前的选择集? 我要的是copy后的选择集??

zhynt

你的目的是什么呢？你说的copy“后”的选择集是什么意思？
我说的不就是copy后产生的选择集吗？

lijiao

最初由 lsjjm 发布
[B]你这不对呀! (setq a (ssget "P") 得到的a 仍是copy前的选择集? 我要的是copy后的选择集?? [/B]

2. 
   
3.   [FONT=courier new]
   
4. (setq ent (entlast))
   
5. COPY.....
   
6. (setq SSET (ssadd))
   
7. (while (setq ent (entnext ent))
   
8.   (ssadd ent SSET)
   
9.   )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (setq ent (entlast))<br /> COPY.....<br /> (setq SSET (ssadd))<br /> (while (setq ent (entnext ent))<br />   (ssadd ent SSET)<br />   )<br />   [/FONT]<br />

zhynt

2. 
   
3. (setq a (ssget "p")) ;拷贝后的选集
   
4. (setq n 0)
   
5. (setq n1 (sslenght a));获得选集个数
   
6. (while (= n n1)
   
7. (setq ss (ssname n));获得选集中各个图元
   
8. ……           ;对各个图元进行操作   
   
9. (setq n (+ n1))
   
10. )
    

<br /> (setq a (ssget "p")) ;拷贝后的选集<br /> (setq n 0)<br /> (setq n1 (sslenght a));获得选集个数<br /> (while (= n n1)<br /> (setq ss (ssname n));获得选集中各个图元<br /> ……           ;对各个图元进行操作    <br /> (setq n (+ n1))<br /> )<br />

lsjjm

谢谢二位， 我说的是“直接”既不用SSADD一个一个地加？

XDSoft

最初由 lsjjm 发布
[B]谢谢二位， 我说的是“直接”既不用SSADD一个一个地加？ [/B]

程序就是要用函数、代码组合完成特定的工作，你如果只用LISP，那么你只能设置好标记后，用SSADD加出来。没有别的办法。因为系统不可能提供这样的函数，因为COPY行为是用户端的，随机的事件。

为什么你偏要“直接”呢？就是LISP核心里面加上这样的函数，也是要很多代码结合，现在你自己写出来，未尝不可吧。

lsjjm

好象不是这个意思. 如果lisp确实没有这个功能的话, 无疑是一个缺陷.
因为时间, 假如该选择集很大, 用move ,rotate等可以把选择集ss整个(不是一个一个的)移动后再旋转, 用的就是这个ss标记. 用(command "copy" ss "" p1 p2 "") 可以直接生成一个新选择集(不使用"command "copy" (ssname ss n) "" p1 p2 ""), 但如何得到新选择集的标记?  这便是我的问题.
不知说清楚没有?

lijiao

最初由 lsjjm 发布
[B]好象不是这个意思. 如果lisp确实没有这个功能的话, 无疑是一个缺陷.
因为时间, 假如该选择集很大, 用move ,rotate等可以把选择集ss整个(不是一个一个的)移动后再旋转, 用的就是这个ss标记. 用(command "copy" ss ""... [/B]

老兄很有个性。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
还有一个办法，设计一个命令反应器，命令结束时触发，回调中用：

2. 
   
3.   [FONT=courier new]
   
4.   
   
5. (setq SSET (ssadd))
   
6. (while (setq ent (entnext ent))
   
7.   (ssadd ent SSET)
   
8.   )
   
9. (setq ent (entlast))
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br />   <br /> (setq SSET (ssadd))<br /> (while (setq ent (entnext ent))<br />   (ssadd ent SSET)<br />   )<br /> (setq ent (entlast))<br />   [/FONT]<br />

SSET和ENT为全局变量。

hi71400

别告诉我用“原位移动” !!

gamexia@163.com

2. (setq lastent(entlast))  ;执行之前数据库最后一个实体作为标记
   
3.      (command "copy" ent "" pt1 pt2)
   
4.       (setq lst (ssadd))
   
5.      (while(setq lastent (entnext lastent)) ;依次查找标记之后的实体 直到最后
   
6.            (setq lst(ssadd lastent lst))  ;放入一个选择中

(setq lastent(entlast))  ;执行之前数据库最后一个实体作为标记 <br />      (command "copy" ent "" pt1 pt2)<br />       (setq lst (ssadd))<br />      (while(setq lastent (entnext lastent)) ;依次查找标记之后的实体 直到最后<br />            (setq lst(ssadd lastent lst))  ;放入一个选择中

gamexia@163.com

hi71400 发表于 2003-2-26 17:45

执行之前动作前，把最后一个实体作为标记
执行动作之后 循环用 entnext 查找

chen7560152

我一直找的这个功能，也困扰我很久了