社区 › VB › AcadLWPolyline的用法

兰州人 发表于 2009-3-4 09:30:00

AcadLWPolyline的用法

AcadLWPolylinej的节点数通过(.Coordinates+1)/2可确定其只有X,Y坐标.
以下程序的练习是读其数据后,再反过来做图.
Sub ls()
Dim LWPl As AcadLWPolyline
Dim pBugle() As Double
With ThisDrawing
    Set LWPl = .HandleToObject("87")
    With LWPl
      p1 = .Coordinates
      ReDim pBugle((UBound(p1) + 1) / 2 - 1)
      For ii = 0 To UBound(pBugle)
      'For jj = 0 To 2
      pBugle(ii) = .GetBulge(ii)
      Next ii
    End With
    Set LWPl = .ModelSpace.AddLightWeightPolyline(p1)
    .Regen acActiveViewport
    For ii = 0 To UBound(pBugle)
      With LWPl
      .SetBulge ii, pBugle(ii)
      ThisDrawing.Regen acActiveViewport
      End With
    Next ii
End With

End Sub

anwei003 发表于 2009-6-24 13:43:00

是不是有弧度和没弧段都一样啊！

乖乖的过个好年 发表于 2011-6-8 16:18:00

关注弧度问题

查看完整版本: AcadLWPolyline的用法