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

yltc

请教用VB如何画多段线

sxz4494

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

zzyong00

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

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

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

大佬 在excel vba 能否实现

风言无际

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

可以实现。在EXCEL VBA中引用CAD类库就可以了。