如何用LISP先清CAD垃圾再保存？

dinosaurhxe

我想编这样一小段，键入命令后先调用PURGE清楚图形中的多余垃圾对象，再保存文件。但调用PURGE时似乎不能像在CAD中直接使用PURGE可以清理嵌套项目。比如说A层上仅有一个块B，而我又把B删除了，那么应该是清理完块B之后，连同A层也一起清理，但LISP调用能实现吗？请前辈们指点，谢谢！

2. (command "purge" "A" "" "N")

(command "purge" "A" "" "N")

ZZXXQQ

PURGE只能清除当前不用的项目。要想清除得更干净，多次调用PURGE。

dinosaurhxe2

如果用程序，怎样才能判断是否已经清理得差不多了呢？

dinosaurhxe

Purge看来Repeat几次就可以了，现在是save比较麻烦。lisp调用的save都是命令行形式的，似乎不能像直接在CAD里键入SAVE一样弹出对话框来。我的意思是如果文件已经保存过，则直接保存，如果文件尚未保存在，则弹对对话框，不知道LISP容易实现否？

yedajiang

(vl-cmdf "-purge" "a" "*" "N")

直接执行上面的代码就可以全部清理了。

phoenixdjq

(defun c:fd()
(command "zoom" "e")
(command "-purge" "a" "" "n" )            ;清除垃圾
(command "qsave")                         ;保存

(setq nowdwg (getvar "dwgname"))          ;取得当前文件的名称
(setq path (findfile nowdwg))             ;寻找当前文件的路径
(setq strle (strlen path))                ;当前文件路径的长度
(setq bak1 (substr path 1 (- strle 4)))   ;去掉倒数第四以后的字符(即去掉扩展名)
(setq bak (strcat bak1 ".bak"))           ;把扩展名改为bak
(command "DEL" bak)                       ;删除bak文件
(command "del" "plot.log")                ;删除打印文件
(command "_close" "y" )                   ;关闭当前的文件,继续进行下一个文件的操作
)

这个程序是早就做的，清理垃圾，然后保存，再删除bak文件，然后退出cad的当前窗口

说明都写好了，自己可以调整一下

dinosaurhxe2

yedajiang发表于2007-12-4 16:23:00(vl-cmdf \"-purge\" \"a\" \"*\" \"N\")直接执行上面的代码就可以全部清理了。

似乎也不完全是，我采用上面的代码用，再purge看，还有一个图层可以清理。