Quantcast
Channel: MicroStation Programming Forum - Recent Threads
Viewing all articles
Browse latest Browse all 7260

RE: Get Begin -End point of a arc and curve

$
0
0

Both Arcs and Curves have StartPoint and EndPoint properties (in VBA), that you can access similar to:

    Dim oArcElement As ArcElement
    
    Set oArcElement = Element
    
    With oArcElement
        dPrimaryRadius = .PrimaryRadius
        dSecondaryRadius = .SecondaryRadius
        dSweepAngle = .sweepAngle
        dStartAngle = .StartAngle
        rotationMatrix = .Rotation
        CenterPnt = .CenterPoint
        StartPnt = .StartPoint
        EndPnt = .EndPoint
    End With

HTH,
Bob


Viewing all articles
Browse latest Browse all 7260

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>