Visual Basic Customization

Visual Basic Customization

Reply
*malcolm
Message 1 of 2 (99 Views)

reverse / bulge

99 Views, 1 Replies
04-28-2000 02:57 PM
I am writting a program that will reverse the direction of a polyline.

given a bulge factor what is the eaiest way to calculate a bulge for
the reverse direction ?

Changing the sign i.e from + to - does not work.
Yes, I do understand that there are programs that exist.
*malcolm
Message 2 of 2 (99 Views)

Re: reverse / bulge

04-28-2000 03:37 PM in reply to: *malcolm
Sorry my mistake.
changing the sign does work.

for anyone that is intrested, here it is

'program to reverse the direction of a pline
Private Sub reverse_pline(plineObj As Variant)
Dim pts() As Double
Dim bulge() As Double
Dim legs As Integer
Dim retcoord As Variant

Dim i As Integer
Dim i2 As Integer

retcoord = plineObj(0).Coordinates
ReDim Preserve pts(UBound(retcoord))

legs = (UBound(retcoord) / 2) - 1
ReDim Preserve bulge(legs)

For i = legs To 0 Step -1
bulge(i) = plineObj(0).GetBulge(legs - i) * -1
Next i

For i = UBound(retcoord) To 0 Step -2
i2 = UBound(retcoord) - i
pts(i2 + 1) = retcoord(i)
pts(i2) = retcoord(i - 1)
Next i

plineObj(0).Coordinates = pts
For i = 0 To legs
plineObj(0).SetBulge i, bulge(i)
Next i

End Sub
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.