如何引用 AutoCAD 块

Question

我有 autocad 项目，其中有 1 个动态块，我正在尝试从 excel 更改。 这是我用来更改块的 vba 脚本：

Dim dybprop As Variant, i As Integer
Dim bobj As AcadEntity
For Each bobj In ACADApp.ModelSpace
If bobj.ObjectName = "AcDbBlockReference" Then
If bobj.IsDynamicBlock Then
If bobj.EffectiveName = "AdjBlock" Then
dybprop = bobj.GetDynamicBlockProperties
For i = LBound(dybprop) To UBound(dybprop)
If dybprop(i).PropertyName = "Distance1" Then
dybprop(i).Value = 50.75
Acad.Application.Update
End If
Next i
End If
End If
End If
Next
End With

当我在AutoCAD VBA中运行它时，它运行良好。比我正在创建 Excel VBA 项目并复制此代码。在运行它之前，我创建了与现有 AutoCad 项目的连接，如下所示：

On Error Resume Next
Dim ACADApp As AcadApplication
Dim a As Object
Set a = GetObject(, "AutoCAD.Application")
If a Is Nothing Then
Set a = CreateObject("AutoCAD.Application")
If a Is Nothing Then
MsgBox "AutoCAD must be running before performing this action.", vbCritical
Exit Sub
End If
End If
Set ACADApp = a
Set ACADApp.ActiveDocument = ACADApp.Documents.Open("c:KIRILLProgrammingDrawing1_VBATest.dwg")

当我从Excel VBA运行它时 - AutoCAD项目出现，但没有任何变化。老实说，我不知道为什么在 Excel VBA 中它不起作用，而在 AutoCAD 中它不起作用。可能是以前有人遇到过这个问题？提前谢谢。

附言完整的 Excel VBA 代码：

Sub Button9_Click()
On Error Resume Next
Dim ACADApp As AcadApplication
Dim a As Object
Set a = GetObject(, "AutoCAD.Application")
If a Is Nothing Then
Set a = CreateObject("AutoCAD.Application")
If a Is Nothing Then
MsgBox "AutoCAD must be running before performing this action.", vbCritical
Exit Sub
End If
End If
Set ACADApp = a
Set ACADApp.ActiveDocument = ACADApp.Documents.Open("c:KIRILLProgrammingDrawing1_VBATest.dwg")
Dim dybprop As Variant, i As Integer
Dim bobj As AcadEntity
For Each bobj In ACADApp.ModelSpace
If bobj.ObjectName = "AcDbBlockReference" Then
If bobj.IsDynamicBlock Then
If bobj.EffectiveName = "AdjBlock" Then
dybprop = bobj.GetDynamicBlockProperties
For i = LBound(dybprop) To UBound(dybprop)
If dybprop(i).PropertyName = "Distance1" Then
dybprop(i).Value = 50.75
Acad.Application.Update
End If
Next i
End If
End If
End If
Next

End Sub

Answer 1

您是否尝试过添加参考库？

您可以转到：

工具->参考

并添加：

[AutoCAD 20xx 类型库]