From Microstation VBA Wiki
Jump to: navigation, search

The CreateArcElement1 function is easiest for 2D drawings because it only requires three points: starting and ending points along the arc along with the center of the arc.

Dim ptStart As Point3d
Dim ptEnd As Point3d
Dim ptOrigin As Point3d
Dim oArc As ArcElement
Set oArc = CreateArcElement1(Nothing, ptStart, ptOrigin, ptEnd)
ActiveModelReference.AddElement oArc

When showing an arc for an angle callout, you place arrowheads on the ends of the arc. To correct the angle of the arrowhead (rather than place the arrowhead at the angle of a tangent at the end of the arc), apply a correction factor based on the length of the arrowhead and the radius of the arc, where atn() is the arctangent:

deltaAngle = atn(length_arrowhead/arc_radius)