关于引用对象层次结构中的对象 （VBA/ActiveX）

可以直接引用对象，也可以通过用户定义的变量引用对象。若要直接引用对象，请在调用层次结构中包含该对象。

例如，以下语句在模型空间中添加一行。请注意，层次结构以 开头，转到对象，然后调用该方法：ThisDrawingModelSpaceAddLine

Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double
Dim LineObj as AcadLine
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0
Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)

要通过用户定义的变量引用对象，请将变量定义为所需类型，然后将变量设置为适当的对象。例如，以下代码定义一个 type 的变量 （），并将该变量设置为等于当前模型空间：moSpaceAcadModelSpace

Dim moSpace As AcadModelSpace
Set moSpace = ThisDrawing.ModelSpace

然后，以下语句使用用户定义的变量向模型空间添加一行：

Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double
Dim LineObj as AcadLine
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0
Set LineObj = moSpace.AddLine(startPoint,endPoint)

Sub Ch2_FindFirstEntity()
    ' This example returns the first entity in model space
    On Error Resume Next

    Dim entity As AcadEntity
    If ThisDrawing.ModelSpace.count <> 0 Then
        Set entity = ThisDrawing.ModelSpace.Item(0)
        MsgBox entity.ObjectName + _
 " is the first entity in model space."
    Else
        MsgBox "There are no objects in model space."
    End If
End Sub