yltc 发表于 2008-7-15 09:10:00

[求助]请教用VB如何画多段线

请教用VB如何画多段线

sxz4494 发表于 2009-3-8 22:01:00

我也想知道如何画 ，难道没有人会吗

zzyong00 发表于 2009-3-10 17:20:00

Sub Example_AddPolyline()
    ' 该示例在模型空间中创建多段线。
   
    Dim plineObj As AcadPolyline
    Dim points(0 To 14) As Double
   
    ' 定义二维多段线顶点
    points(0) = 1: points(1) = 1: points(2) = 0
    points(3) = 1: points(4) = 2: points(5) = 0
    points(6) = 2: points(7) = 2: points(8) = 0
    points(9) = 3: points(10) = 2: points(11) = 0
    points(12) = 4: points(13) = 4: points(14) = 0
      
    ' 在模型空间中创建多段线
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
    ZoomAll
   
End Sub

qq365305753 发表于 2019-10-4 15:02:36

zzyong00 发表于 2009-3-10 17:20


大佬 在excel vba 能否实现

风言无际 发表于 2019-10-5 12:25:57

qq365305753 发表于 2019-10-4 15:02
大佬 在excel vba 能否实现

可以实现。在EXCEL VBA中引用CAD类库就可以了。
页: [1]
查看完整版本: [求助]请教用VB如何画多段线