myfreemind 发表于 2003-4-16 00:11:00

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

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 发表于 2003-4-16 23:15:00

因为这是个事件，是通过双击鼠标来触发

页: [1]
查看完整版本: 你的代码我运行后宏显示框中是空白，我没有办法运行，是怎么回事？