'选择颜色对话框
Private Declare Function acedSetColorDialog Lib "acad.exe" _
     (color As Long, ByVal bAllowMetaColor As Boolean, ByVal nCurLayerColor As Long) As Boolean
'显示提示对话框
Private Declare Function acedAlert Lib "acad.exe" (ByVal str As String) As Long

' 显示文本窗口(AutoCAD 命令行文本窗口)
Private Declare Function acedTextScr Lib "acad.exe" () As Long
' 隐藏文本窗口
Private Declare Function acedGraphScr Lib "acad.exe" () As Long
' 命令行提示
Private Declare Function acedPrompt Lib "acad.exe" (ByVal str As String) As Boolean
' 卸载 arx
Private Declare Function acedArxUnload Lib "acad.exe" (ByVal str As String) As Long

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