Member of ChemDraw Control.Arrow
Sets and returns the angular size of this arrow.
Public Property AngularSize() As Double
This property measures the angle subtended by the curve of the arrow measured from its center of curvature.
The arrow angle is measured in degrees, with decimals and sign. Straight arrows have an AngularSize=0. Curved arrows have AngularSize<>0. Negative values will curve the arrow clockwise, positive values will curve the arrow anticlockwise.
If a straight arrow (in the drawing with a dashed line) is changed to Angular Size = 180 the arrow will curve forming half a circle (bold arrow) whose center point will be the arrow´s original End point. The original End point of the arrow becomes the center of the curve. The original Start point remains the same.
In Control Version 10.0, when first drawn, a straight arrow returns AngularSize as 0.5, which is meaningless. If you set the angular size to 0.5 for a straight arrow, it almost disappears because it is a very small angle.
|'Declares variable vArrow|
Dim vArrow As ChemDrawControl10Ctl.Arrow
'Checks that there is an arrow loaded in the variable
If Selection.Arrows.Count < 1 Then
Private Sub cmdAngularSize_click()