yanasdf789 发表于 2013-1-17 11:20:15

在 vb 中如何执行 “purge"

cadapp.ActiveDocument.SendCommand "PURGE" & vbCr & "la"&vbCr& "NET"& vbCr "N"&Chr(13)

这样写 哪里错了！！！！！1

yanasdf789 发表于 2013-1-17 11:20:48

NET 为图层名

wuyunpeng888 发表于 2013-2-2 13:37:58

真不明白你为什么要这样用VBA呢？
thisdrawing.purgeall方法

gfwu888 发表于 2018-4-17 10:08:19

wuyunpeng888 发表于 2013-2-2 13:37
真不明白你为什么要这样用VBA呢？
thisdrawing.purgeall方法

楼主yanasdf789的想法是正确的，这样可以删除想要删除的图层了，而thisdrawing.purgeall方法则是把所有的都清理了

mikewolf2k 发表于 2018-4-17 13:16:46

哪里错了？会弹出purge对话框？用_purge试试，命令行，只要后面参数都对，就没问题。

mikewolf2k 发表于 2018-4-17 13:26:31

试了下，这个可以：
    ActiveDocument.SendCommand "(command ""purge"" )" & vbCr & "LA" & vbCr & "NET" & vbCr & "N" & vbCr

wuyunpeng888 发表于 2018-4-24 11:52:22

要删除图层直接删，用了你也清理不掉,还是多余

wuyunpeng888 发表于 2018-4-24 11:53:16

Thisdrawing.layers.item("NET").delete

wuyunpeng888 发表于 2018-4-24 11:54:38

本帖最后由 wuyunpeng888 于 2018-4-24 12:31 编辑

没用就可以删，删不掉有异常就是被占用了，清理也没用

wuyunpeng888 发表于 2018-12-4 16:42:59

gfwu888 发表于 2018-4-17 10:08
楼主yanasdf789的想法是正确的，这样可以删除想要删除的图层了，而thisdrawing.purgeall方法则是把所有的 ...

那这想法就更有问题了，直接用对象的delete方法呀
on error resume next
thisdrawing.layers.item("la").delete
页: [1]
查看完整版本: 在 vb 中如何执行 “purge"