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

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

请教用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