Code: Select all
Dim topdoc As TopSolid.DocumentDesign = TopApp.ActiveDocument
For Each topCurve As TopSolid.Curve In topdoc.Curves
If topCurve.Element.NameOrIdentifier = "@636" Then
topCurve.MakeRefDirection.ReverseDirection()
Exit For
End If
Next
Second Somehow the ReverseDirectioin() function doesn't work. Although i do get a reference to the curve, the ReverseDirection has no effect. What am i doing wrong here? Anybody any ideas? I'm kind of stuck here!
I'm using VisualStudio 2008 on a Vista computer b.t.w. in case this is some kind of weird compatibility issue...