[求助]選擇集問題

Alan · 发表于 2003-5-12 11:10:00

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

Taoyimaier · 发表于 2003-5-12 21:09:00

...
(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))
)
...
不知道是不是这个意思

Taoyimaier · 发表于 2003-5-13 21:11:00

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

龙龙仔 · 发表于 2003-5-14 08:16:00

..........................
(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"))))
.....................

[求助]選擇集問題

发表回复

精选推荐

浏览过的版块