Software Developer's Kit - ChemDraw

Send comments on this topic
PositioningAngle Property
See Also 

Description

Member of ChemDraw Control.ObjectTag.

Sets and returns the angle at which this tag is positioned.

Property type

Read-write property

Syntax

Visual Basic
Public Property PositioningAngle() As Double

Return Type

Double

Remarks

Sets and returns the angle at which this tag is positioned, if it is positioned by angle. The angle is expressed in radians.

Example

'Shows example of PositioningAngle property
 Dim myObjectTag as ChemDrawControl10Ctl.ObjectTag
 Dim myObject as ChemDrawControl10Ctl.Object
 Dim vName as string

 Private Sub Load_ObjectTag_Click()
    If  myObjectTag is Nothing Then
        vMessage = MsgBox(“No ObjectTag is loaded”, vbCritical + vbOKOnly, “Error”)
        vName = “Name_of_ObjectTag”
        ‘Makes an ObjectTag
        myObject.MakeObjectTag vName, myObjectTag, True
        ‘ObjectTag must be visible
        myObjectTag.Visible = True
        ‘Assigns the content of vString to the ObjectTag.StringValue 
        myObjectTag.StringValue = vString 
        ‘Positions Tag by angle  
        myObjectTag.PositioningType = kCDPositioningTypeAngle 'Value 1
        myObjectTag.PositioningAngle = 20 
    End If
End Sub

See Also