[求助]：如何实现用LISP画的图形一次全部删除？

pandoras

如何用LISP实现程序画的图形是相互关联的？

比如用LISP画了一条直线，一个圆，删除直线的同时也删除圆？
就像AUTOCAD自己的标注一样，选中其中任何一部分，整个标注都被选中。

另外，选择集是个什么概念？
什么场合用？

lcrzj

是啊，我也想知道怎么弄！

f5612140

1.可用group
2.複選圖元,依條件過濾選擇集內的圖元,讀取圖元的資料或修改變更

pandoras

楼上兄弟可否说清楚点？还是没有明白你的意思。
代码如何写，小弟刚接触LISP不到两天。

你说的是不是这个意思：
用LISP程序画好的图，想要一次删除，还要在AUTOCAD 里面用命令group 将所画图形编组？

我想要的是画出来的图形直接就是一个整体。

lijiao

1、可以组成图块。
2、可以采用实体反应器。

silen618

在程序开始加：
(command "undo" "be")
在程序结束加：
(command "undo" "e")
就搞定了。试试……

pandoras

最初由 silen618 发布
[B]在程序开始加：
(command "undo" "be")
在程序结束加：
(command "undo" "e")
就搞定了。试试…… [/B]

这个要是中间还有别的操作的话就不行吧！

楼上的兄弟们，谢了！

sjylzf

(ssadd (entlast))可以解决如此问题。

sdwy19691229

试试 UNDO 命令如何？

xdkjzzz

我认为应采用实体反应器

xyp1964

不用太复杂，试试：
[php]
(defun c:test (/ ss1 ss2 ss3)
  (setq ss1 (ssget "X"))                ;现有物体选择集
  (userlsp)                                ;用户程序内容
  (setq ss2 (ssget "X"))                ;现有物体选择集
  (command "_.select" ss2 "R" ss1)        ;选择集之差
  (setq ss3 (ssget "p"))                ;新选择集
  (command "-group" "C" "*" "" ss3 "")        ;建立匿名组
  (princ)
)

(defun userlsp ()
  ;;测试
  (command "Line" (list 0 0) (list 1000 2000) "")
  (command "circle" (list 1000 1000) 5000)
  (command "circle" (list 0 0) 3000)
)
[/php]

pandoras

最初由 xyp1964 发布
[B]不用太复杂，试试：
[php]
(defun c:test (/ ss1 ss2 ss3)
  (setq ss1 (ssget "X"))                ;现有物体选择集
  (userlsp)                                ;用户程序内容
  (setq ss2 (ssget "X"))                ;现有物体选择集
  (command "_.select" ss2 ... [/B] ;选择集之差

首先谢谢楼上的各位。

如果图里面物体很多，那么选这个差集会不会很慢？
用ssadd(enlast)是不是要好一些。
可我用ssadd(enlast)老用不好,是不是这样：
...
(command "line" pt1 pt2 "")
(ssadd  (entlast) ssname1)

(command "line" pt2 pt3 "")
(ssadd (entlast) ssname1 )

(command "-group" "C" "*" "" ssname1 "")   
执行到第一条直线后就退出了，不知道哪里出了错。

还有一个关于匿名组的问题：
如果在循环里面这个匿名组会不会在下次循环时重名？


哪位用过ssget(enlast)？这个怎么用。
这个ss类函数和ent类函数搞得我头大。有没有哪里有专题。