Sub Center_E2E_Center()
    Dim P As Variant
    Dim P1 As Variant, P2 As Variant
    Dim E1 As AcadEntity
    Dim E2 As AcadEntity
    On Error GoTo xErr
xNext:
    ThisDrawing.Utility.GetEntity E1, P, "第一个对象:"
    P1 = GetCenter(E1)
    E1.Visible = False
    ThisDrawing.Utility.GetEntity E2, P, "第二个对象:"
    P2 = GetCenter(E2)
    E1.Move P1, P2
    E1.Visible = True
    GoTo xNext
xErr:
End Sub

影音源文件地址：http://www.ntsjyt.net/gx/1.swf

Private Sub UserForm_Initialize()
    '根据AutoCAD的版本来确定使用ObjectDBX的版本
    If Left(Version, 2) = "15" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    End If
End Sub