不确定顶点数目的情况下怎么绘制多段线？

ryui

点的数量是由变量给定，需要据此生成多端线，怎么用vba实现呢？

先谢谢了！

xinghesnak

不能先学定数目再画吗？

ryui

想连续生成截面，每个截面复杂程度不一样啊。

storyst

2.   Dim index As Integer   
3.     index = 2
4.    
5.     Dim pt1 As Variant
6.     pt1 = ThisDrawing.Utility.GetPoint(, "输入第一点:")
7.     If Err Then                     
8.         Err.Clear
9.         Exit Sub
10.     End If
11.     Dim ptPrevious As Variant, ptCurrent As Variant      
12.     ptPrevious = pt1
13.    
14. nextpt:
15.     ptCurrent = ThisDrawing.Utility.GetPoint(ptPrevious, "输入下一点:")
16.     If Err Then                    
17.         Err.Clear
18.         Exit Sub
19.     End If
20.    
21.     Dim objPline As AcadLWPolyline
22.     If index = 2 Then
23.         Dim points(0 To 3) As Double
24.         points(0) = ptPrevious(0)
25.         points(1) = ptPrevious(1)
26.         points(2) = ptCurrent(0)
27.         points(3) = ptCurrent(1)
28.         Set objPline = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
29.     ElseIf index > 2 Then
30.         Dim ptVert(0 To 1) As Double
31.         ptVert(0) = ptCurrent(0)
32.         ptVert(1) = ptCurrent(1)
33.         objPline.AddVertex index - 1, ptVert
34.     End If
35.     index = index + 1
36.     ptPrevious = ptCurrent
37.     GoTo nextpt

  Dim index As Integer        index = 2         Dim pt1 As Variant     pt1 = ThisDrawing.Utility.GetPoint(, "输入第一点:")     If Err Then                              Err.Clear         Exit Sub     End If     Dim ptPrevious As Variant, ptCurrent As Variant           ptPrevious = pt1     nextpt:     ptCurrent = ThisDrawing.Utility.GetPoint(ptPrevious, "输入下一点:")     If Err Then                             Err.Clear         Exit Sub     End If         Dim objPline As AcadLWPolyline     If index = 2 Then         Dim points(0 To 3) As Double         points(0) = ptPrevious(0)         points(1) = ptPrevious(1)         points(2) = ptCurrent(0)         points(3) = ptCurrent(1)         Set objPline = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)     ElseIf index > 2 Then         Dim ptVert(0 To 1) As Double         ptVert(0) = ptCurrent(0)         ptVert(1) = ptCurrent(1)         objPline.AddVertex index - 1, ptVert     End If     index = index + 1     ptPrevious = ptCurrent     GoTo nextpt

是不是要这样?

ryui

嗯，就是楼上这个方法了，用不断添加点的方式实现，谢谢！

chtd

为什么不用sendcommand呢？