muou8 发表于 2019-3-9 18:38:09

求助- VBA画直线为什么没有CAD直接画直线的引导线

VBA中用 addline 在屏幕中指认两个点比如
Set a = ThisDrawing.ModelSpace.AddLine(ThisDrawing.Utility.GetPoint(, "frist"), ThisDrawing.Utility.GetPoint(, "second"))
可以在CAD中点取两个点生成直线

但是CAD直接生成的直线的过程中：


本人小白，期望大神解答

muou8 发表于 2019-3-9 18:57:19

老师老师在哪里

woaishuijia 发表于 2019-3-11 04:54:27

    Dim P1, L As AcadLine
    With ThisDrawing
      P1 = .Utility.GetPoint(, "first")
      Set L = .ModelSpace.AddLine(P1, .Utility.GetPoint(P1, "second"))
    End With

fatty0724 发表于 2019-3-12 16:00:40

楼上正解 带上第一点
页: [1]
查看完整版本: 求助- VBA画直线为什么没有CAD直接画直线的引导线