问题描述
我试图在不打开图形的情况下卸载 DWG 图形中的外部参照。代码运行无故障,但不会卸载外部参照。我注意到这些代码适用于 acad 文档,但由于我不想打开绘图,因此我需要使用 axdb 文档。有人有想法吗?
提前致谢
D
Sub NoXref()
Dim db As AcadDatabase
Dim doc As AXDBLib.AxDbDocument
Dim i As Integer
Set doc = ThisDrawing.Application.GetInterfaceObject("objectdbX.AxDbDocument.21")
doc.Open "C:\Users\32485\Google Drive\Projecten\TEK_oed 60\OED60 versie10.dwg"
Set db = doc.Database
For i = 0 To db.Blocks.Count - 1
If db.Blocks.item(i).IsXRef = True Then
db.Blocks.item(i).Unload
End If
Next i
doc.SaveAs doc.Name
End Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)