明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1564|回复: 10

在 vb 中如何执行 “purge"

[复制链接]
发表于 2013-1-17 11:20 | 显示全部楼层 |阅读模式
cadapp.ActiveDocument.SendCommand "PURGE" & vbCr & "la"&vbCr& "NET"& vbCr "N"&Chr(13)

这样写 哪里错了!!!!!1
 楼主| 发表于 2013-1-17 11:20 | 显示全部楼层
NET 为图层名
发表于 2013-2-2 13:37 | 显示全部楼层
真不明白你为什么要这样用VBA呢?
thisdrawing.purgeall方法
发表于 2018-4-17 10:08 | 显示全部楼层
wuyunpeng888 发表于 2013-2-2 13:37
真不明白你为什么要这样用VBA呢?
thisdrawing.purgeall方法

楼主yanasdf789的想法是正确的,这样可以删除想要删除的图层了,而thisdrawing.purgeall方法则是把所有的都清理了
发表于 2018-4-17 13:16 | 显示全部楼层
哪里错了?会弹出purge对话框?用_purge试试,命令行,只要后面参数都对,就没问题。
发表于 2018-4-17 13:26 | 显示全部楼层
试了下,这个可以:
    ActiveDocument.SendCommand "(command ""purge"" )" & vbCr & "LA" & vbCr & "NET" & vbCr & "N" & vbCr
发表于 2018-4-24 11:52 | 显示全部楼层
要删除图层直接删,用了你也清理不掉,还是多余
发表于 2018-4-24 11:53 | 显示全部楼层
Thisdrawing.layers.item("NET").delete

点评

这才是正确答案,VBA发送sendcommand方法是没有办法时的办法,没有返回值,确实不好用。  发表于 2018-4-25 16:03
发表于 2018-4-24 11:54 | 显示全部楼层
本帖最后由 wuyunpeng888 于 2018-4-24 12:31 编辑

没用就可以删,删不掉有异常就是被占用了,清理也没用
发表于 2018-12-4 16:42 | 显示全部楼层
gfwu888 发表于 2018-4-17 10:08
楼主yanasdf789的想法是正确的,这样可以删除想要删除的图层了,而thisdrawing.purgeall方法则是把所有的 ...

那这想法就更有问题了,直接用对象的delete方法呀
on error resume next
thisdrawing.layers.item("la").delete
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:08 , Processed in 0.276127 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表