[求助]選擇集問題

Alan

(ssget "p" '(( ....)))為獲取最近一次選集范圍內圖元，我想循環抓取（ssget)選集范圍內圖元，該如何處理？？

Taoyimaier

...
(setq i 0)
(while (< i (sslength (setq ss (ssget "_P"))))
   (setq current_entity (ssname ss i))
   ...
   ...;;;this lines is for your processing entity
   (setq i (1+ i))
)
...
不知道是不是这个意思

Alan

taoyimaier

首先，我不知道你为什么会有这个想法，这样做有意义么，如果程序逼你这样写的话，我想你应该在程序别的地方多作些文章，比如，打开一个dwg文件，你不小心移动了一个实体，你有必要保存这个选择集么，不解
不过，如果你应是要这样作，也有办法的，lisp里虽数据类型不多，但有一种数据类新是用来保存选择集的，你在程序加载的时候就生成一个公共变量，然后，你的程序运行到选择实体时，判断一下该公共变量是否为空，如果是，赋值，否则，不管，以后你要操作这个选择集是，用这个公共变量访问，这是用自己的程序操作选择集，如果用cad自带的命令，如copy，move，也会产生一个选择集，如果你想捕获这个选择集的话，那就很难了，要用到反应器，

说了这么多，我现我都是白说了，不知道你要解决什么问题，但我想说，如果你想用一个很简单的句子达到你的效果，估计不可能，ssget没有这个参数，如果程序的思路简单，不如说来听听，还有，不知道你为什么喜欢用繁体，

龙龙仔

..........................
(setq ss (ssget))
(setq ent_circle (ssget "p" '(( 0 . "circle"))))
(command "_.select" ss "")
(setq ent_text (ssget "p" '(( 0 . "text"))))
(command "_.select" ss "")
(setq ent_line (ssget "p" '(( 0 . "line"))))
.....................