你的代码我运行后宏显示框中是空白，我没有办法运行，是怎么回事？

myfreemind

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
    Dim Bp, Ep As Variant
     Bp = ThisDrawing.Utility.GetPoint(, "选择端点: ")
     Ep = ThisDrawing.Utility.GetPoint(Bp, "选择终点: ")
     Dim obj As AcadLine
     Set obj = ThisDrawing.ModelSpace.AddLine(Bp, Ep)
End Sub

mccad