請問如何選取畫好的pline找到各節點座標跟bulge

fadai

謝謝大大

想請問一下這個問題

選取畫好的pline找到各節點座標跟bulge

目前座標已經解決 可是bulge一直抓不到 方法也有查到可是抓出來資料一直是0不正確

寫法在下面 有錯誤請大大們指正 謝謝

Public Sub ShowPolyLinePoint1()
    Dim objAcadEntity As AcadEntity
    
    Dim varPickedPoint As Variant
    Dim intIndex As Integer
    Dim varCoordinates As Variant
    Dim dblX As Double
    Dim dblY As Double
    Dim dblZ As Double
    Dim varbulge As Variant
    Dim objpline As AcadLWPolyline
    
    UserForm1.Hide
    
    ThisDrawing.Utility.GetEntity objAcadEntity, varPickedPoint, "請選擇 olyline"
    
    If TypeOf objAcadEntity Is AcadLWPolyline Then
        
        Set objLwpolyline = objAcadEntity
        
        
        
        varCoordinates = objLwpolyline.Coordinates
        
        varbulge = objLwpolyline.GetBulge(3)
        
      
        For intIndex = LBound(varCoordinates) To (UBound(varCoordinates) - 1) / 2
            '取得 (X,Y) 座標
            dblX = varCoordinates((intIndex) * 2)
            dblY = varCoordinates((intIndex) * 2 + 1)
            db1Z = varbulge((intIndex))
           
            MsgBox ("X(" + CStr(intIndex) + ")=" + CStr(dblX))
            MsgBox ("Y(" + CStr(intIndex) + ")=" + CStr(dblY))
            MsgBox ("bulde(" + CStr(intIndex) + ")=" + CStr(dblZ))
        Next
    End If

End Sub

woaishuijia

2. Public Sub ShowPolyLinePoint1()
3.     Dim objAcadEntity As AcadEntity
4.    
5.     Dim varPickedPoint As Variant
6.     Dim intIndex As Integer
7.     Dim varCoordinates As Variant
8.     Dim dblX As Double
9.     Dim dblY As Double
10.     Dim dblZ As Double
11. '    Dim varbulge As Variant
12. '    Dim objpline As AcadLWPolyline
13.     Dim objLwpolyline As AcadLWPolyline
14.    
15.     UserForm1.Hide
16.    
17.     ThisDrawing.Utility.GetEntity objAcadEntity, varPickedPoint, "請選擇 Polyline"
18.    
19.     If TypeOf objAcadEntity Is AcadLWPolyline Then
20.         
21.         Set objLwpolyline = objAcadEntity
22.         
23.         
24.         
25.         varCoordinates = objLwpolyline.Coordinates
26.         
27. '        varbulge = objLwpolyline.GetBulge(3)
28.         
29.       
30.         For intIndex = LBound(varCoordinates) To (UBound(varCoordinates) - 1) / 2
31.             '取得 (X,Y) 座標
32.             dblX = varCoordinates((intIndex) * 2)
33.             dblY = varCoordinates((intIndex) * 2 + 1)
34. '            db1Z = varbulge((intIndex))
35.             dblZ = objLwpolyline.GetBulge(intIndex)
36.            
37.             MsgBox ("X(" + CStr(intIndex) + ")=" + CStr(dblX))
38.             MsgBox ("Y(" + CStr(intIndex) + ")=" + CStr(dblY))
39.             MsgBox ("bulde(" + CStr(intIndex) + ")=" + CStr(dblZ))
40.         Next
41.     End If
42. End Sub

Public Sub ShowPolyLinePoint1()     Dim objAcadEntity As AcadEntity         Dim varPickedPoint As Variant     Dim intIndex As Integer     Dim varCoordinates As Variant     Dim dblX As Double     Dim dblY As Double     Dim dblZ As Double '    Dim varbulge As Variant '    Dim objpline As AcadLWPolyline     Dim objLwpolyline As AcadLWPolyline         UserForm1.Hide         ThisDrawing.Utility.GetEntity objAcadEntity, varPickedPoint, "請選擇 Polyline"         If TypeOf objAcadEntity Is AcadLWPolyline Then                  Set objLwpolyline = objAcadEntity                                    varCoordinates = objLwpolyline.Coordinates          '        varbulge = objLwpolyline.GetBulge(3)                         For intIndex = LBound(varCoordinates) To (UBound(varCoordinates) - 1) / 2             '取得 (X,Y) 座標             dblX = varCoordinates((intIndex) * 2)             dblY = varCoordinates((intIndex) * 2 + 1) '            db1Z = varbulge((intIndex))             dblZ = objLwpolyline.GetBulge(intIndex)                         MsgBox ("X(" + CStr(intIndex) + ")=" + CStr(dblX))             MsgBox ("Y(" + CStr(intIndex) + ")=" + CStr(dblY))             MsgBox ("bulde(" + CStr(intIndex) + ")=" + CStr(dblZ))         Next     End If End Sub

fadai

謝謝大大 問題已經解決了

想請問一下 關鍵是因為 Dim objLwpolyline As AcadLWPolyline 這句嗎？

可是不是也已經有了 objLwpolyline 不是已經是objAcadEntity了嗎？

為什麼還可以是AcadLWPolyline

小弟是新手 所以還不太懂 謝謝

woaishuijia

你的代码存在3个错误

1.

Dim objpline As AcadLWPolyline 中变量 objpline 与后面用到的 objLwpolyline 不一致.因此把这一行改为

Dim objLwpolyline As AcadLWPolyline

2.

varbulge = objLwpolyline.GetBulge(3) 与你的目的不符.GetBulge() 函数用于获取指定顶点的凸起值,这一行运行的结果是 varbulge 被赋予一个双精度数,就是多段线第4个顶点(索引值是你代码中的"3")的凸起值,而不是一个数组.因此把这行移到了循环体内部,针对每个顶点分别获取.

3.

db1Z = varbulge((intIndex)).首先 db1Z 中间的字符是阿拉伯数字"1"而不是你声明的字母"l",写错了;其次,前面已经说了 varbulge 不是一个数组;最后, intIndex 外面为什么要用两层括号呢?