[求助]：一个关于purge命令的lisp应该写

Groovy

purge命令执行以后要连续在键盘上面按两个a,不知道这样的lisp要怎么样写,才能使用一个命令就能实现,而不用那么麻烦的按两次a,
请教,谢谢

snoopychen

在14下经常用
[php]
(defun c:pp()
(command "purge" "all" "" "n"  "")
(command "purge" "all" "" "n"  "")
)
[/php]
不过用高版本的cad似乎不用这样了

xyp1964

2. [FONT=courier new](defun C:PUU ()
   
3.   (repeat 3 (COMMAND "-PURGE" "A" "" "n"))
   
4.   (princ)
   
5. )[/FONT]

[FONT=courier new](defun C:PUU ()<br />   (repeat 3 (COMMAND "-PURGE" "A" "" "n"))<br />   (princ)<br /> )[/FONT]

YueFeng

1. 
   
2.   [FONT=courier new]
   
3. (Defun $YF_PurgeAll()
   
4.    (VLA-PurgeAll (VLA-Get-ActiveDocument (VLAX-Get-Acad-Object)))
   
5. )
   
6.   [/FONT]
   

复制代码

Groovy

不愧是斑竹啊,厉害,
还是斑竹的好用,而且没有那么多的命令执行过程显示在命令行,谢谢

win-gf

最初由 YueFeng 发布
[B]

1. 
   
2.   [FONT=courier new]
   
3. (Defun $YF_PurgeAll()
   
4.    (VLA-PurgeAll (VLA-Get-ActiveDocument (VLAX-Get-Acad-Object)))
   
5. )
   
6.   [/FONT]
   

复制代码

[/B]

only run purge once...

Groovy

一次好像就能够清干净啊

橄榄滋味

(Defun $YF_PurgeAll()
   (VLA-PurgeAll (VLA-Get-ActiveDocument (VLAX-Get-Acad-Object)))
)
这样是全部清理，请问怎样只清理块不清理别的呢？
问题是这样的，为了有动态效果，我用entmake作了尺寸实体，又用entdel删除，这样鼠标移动时，这个尺寸会跟着鼠标走，但是产生了大量的无名块，名称是*D.....，本想用command pugre来清理，可是产生大量提示，如果用上面的方法，却做了全部清理，请问如何用上面的方法，仅仅清理块？
这种动态效果，大家是怎么处理的？