求一个可以保留标注样式是 PU 程序（已解决。多谢 zhynt 大师的热情帮助）
本帖最后由 669423907 于 2011-6-16 12:24 编辑恳请论坛大师们帮帮忙，写一个可以保留标注样式是 PU 程序。小生先在此谢过了！ 思路：
命令: (command "purge")
nil
输入要清理的未使用对象的类型
[块(B)/标注样式(D)/组(G)/图层(LA)/线型(LT)/材质(MA)/多重引线样式(MU)/打印样式(P)/形(SH)/文字样式(ST)/多线样式(M
)/表格样式(T)/视觉样式(V)/注册应用程序(R)/零长度几何图形(Z)/空文字对象(E)/全部(A)]: 回复 zhynt 的帖子
谢谢你的帮助，我试试看。 回复 zhynt 的帖子
小生愚笨，不会拼，恳请zhynt大师帮帮忙啦！不胜感激了！ 本帖最后由 zhynt 于 2011-6-11 00:38 编辑
上面列出了purge命令的参数，不过这些参数只能一个一个的来。不能连续
如清理图中多余的图层就是（command "purge" "AL" "" "N")
如果不嫌麻烦就这样： 根据需要添加参数 (defun C:pu ()
(command "purge" "B" "" "N")
......
(command "purge" "E" "" "N")
) 回复 zhynt 的帖子
程序还是提示输入清理的未使用对象的类型，最后是找不到未参照的视觉样式！不会弄了！ 那就说明没有可清理的东西了。 保留标注样式也只是保留自己想要的吧?
如果你不是打算所有标注样式都要留的话就很简单,只要使用一下这种标注样式就不会被清理掉的了 对哦，我咋就没想到呢？
标题
回复 zhynt 的帖子比如在一份dwg文件里有10个标注样式，当前只用了4个。就没必要把暂时没用到的标注样式用上了。当下一次往此份dwg里添加某些图形时就用得着了。
页:
[1]
2