社区 › 编程申请 › 获取组名清单lisp程序

meflying 发表于 2004-3-10 21:24:00

如果大家都跟你一样，我就成富翁了。。。

wyj_007 发表于 2004-3-11 12:44:00

您付出了智慧的劳动，就算成了富翁那是很光荣的事情。在我们这儿，设计师很受人们尊重，大都也很富有。也只有这样，社会才会更进步繁荣。说实在的，我本来或许一辈子还在地里，正是有了许多象你这样的人们和加上本人的勤奋，我才有了今天。


我这次上传了根据您的关键语句设计的Group清理程式，主要用于清理无效的废组名。

Michael527 发表于 2004-3-12 13:08:00

敬佩

莫名 发表于 2004-3-12 22:23:00

勤劳智慧的人+热心的人


使世界充满爱！

wyj_007 发表于 2004-3-15 15:31:00

谢谢！


这个软件功能是很好的，可以在不减少有用组名的情况下，最大限度清理无用组名，是PURGE命令的极好补充，因为PURGE命名无法清理无用组名，而用wblock命名虽减了肥但把所有组定义不管三七二一都清理掉了，辛辛苦苦做的组砍了太可惜了。

wyj_007 发表于 2005-4-7 10:14:00

不知道大家知道组的作用,今天我重新把它顶上去,让朋友们多关注一下CAD里的这个组的功能,说真的它的确很好用的.

BDYCAD 发表于 2005-4-7 11:40:00

从前我清理公司所有图纸文件(7600多个左右)由於制图时用组很多, 所以当时也和你一样碰到这个难题后来用过VL 去清除组. 也用过VB清除过. 以下是VBA的代码.



大家可作参考:



'清理组


'EF编写<BR>Sub DelAllGroup()<BR>                       Dim groupObj As AcadGroup<BR>                       For Each groupObj In ThisDrawing.Groups<BR>                                                       groupObj.Delete<BR>                       Next<BR>End Sub

bai2000 发表于 2007-6-14 14:43:00

烦哪位再发个炸散组并清除组的lsp

abcxyz0517 发表于 2007-6-21 08:52:00

bai2000发表于2007-6-14 14:43:00static/image/common/back.gif烦哪位再发个炸散组并清除组的lsp

<p>恩</p><p>很有价值</p>

lvchunhu 发表于 2010-9-7 19:40:00

有什么办法提取一个组的组名么?

查看完整版本: 获取组名清单lisp程序