lyb_dsa 发表于 2004-8-27 10:29:00

[原创]可以purge文件夹内的所有DWG文件

可以purge文件夹内的所有DWG文件


在2002下通过，命令：klpurgeall

citykunan 发表于 2004-8-27 14:22:00

龙班主也有一个批量purge的程序，不需再打开另一个cad的。


我请问lyb_dsa兄，你一张张打开图纸，是通过什么办法在每一张图纸加载purge命令的，谢谢。

lyb_dsa 发表于 2004-8-27 15:41:00

(setq cadobj (vlax-create-object "AUTOCAD.Application"))


(setq        docobj<BR>                                       (vla-open<BR>                                               (vla-get-documents cadobj)<BR>                                                        "文件名“                                       )        <BR>                )


(vla-purgeall docobj)

meflying 发表于 2004-8-27 15:54:00

使用(setq cadobj (vlax-get-acad-object))比较好些


当然,使用OBJECTDBX就更好了

citykunan 发表于 2004-8-27 16:01:00

我原来想是不是有什么新的办法，和龙版主差不多。看来也没办法实现批量bind. : (


但是程序编的真的不错。

alwaysbin 发表于 2004-8-27 21:10:00

刚才试了一下，感觉还不错。


不过有个问题，我很多图是R14格式的，（因为要拿给别人，所以只能存为这个版本。）在purge以后就自动变成了2000格式的了，是否还得批量转换一次？？

citykunan 发表于 2004-8-28 16:16:00

用工具

killer9806 发表于 2006-6-6 14:53:00

试了一下，还可以哦

zrw_hunter 发表于 2008-7-31 13:33:00

不错，谢谢……，开始使用中……
页: [1]
查看完整版本: [原创]可以purge文件夹内的所有DWG文件