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

muou8 · 发表于 2019-3-9 18:38:00

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

2aqq0vxndw4.PNG

本人小白，期望大神解答

muou8 · 发表于 2019-3-9 18:57:00

老师老师在哪里

woaishuijia · 发表于 2019-3-11 04:54:00

copy

    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:00

楼上正解带上第一点

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

发表回复

精选推荐