SetBulge设置多段线在给定索引位置的凸度

兰州人

SetBulge语法   来源http://www.mjtd.com/object/acad2004/idh_setbulge.htm

在AcadPolyline中有type项,在AcadLWPolyline无Type项

在AcadLWPolyline中可以用GetBulge，获得凸度

在AcadPolyline中有type项，Object.Type=0时可以用GetBulge，获得凸度。

AcadLWPolyline 的属性 -----无TYPE项

在AcadPolyline 属性 -------中有TYPE项，如果type=0 (

acSimplePoly

简单多段线)

Type ----------------------------------此项是凸度的关键要素

Type ----------------------------------此项是凸度的关键要素

Type ----------------------------------此项是凸度的关键要素

兰州人

Sub ls()
  Dim Pl As AcadLWPolyline, Ppl As AcadPolyline, PpLl As AcadPolyline
  Dim Ent As AcadEntity
  Dim aa() As Double, bb() As Integer
  Dim plineObj As AcadLWPolyline
  Set Ppl = ThisDrawing.HandleToObject("87")

    ReDim aa(0 To UBound(Ppl.Coordinates)) As Double
    For jj = 0 To UBound(Ppl.Coordinates)
      aa(jj) = Ppl.Coordinates(jj)
    Next jj

  Set PpLl = ThisDrawing.ModelSpace.AddPolyline(aa)
  PpLl.color = acRed

  ThisDrawing.SendCommand "_Pedit" & vbCr & "l" & vbCr & "f" & vbCr & vbCr
 
  Debug.Print
End Sub