DrawingLeader (Object)

Represents a drawing leader in a drawing view.

Properties


Property AllAround() As
Returns or sets the status of all around.
Example:
This example retrieves the status of all around on MyLeader drawing leader. 
 oSymbol = MyLeader.AllAround
Property AnchorPoint() As
Returns or sets anchor point.
Example:
This example retrieves the anchor point on MyLeader drawing leader. 
 oAnchorPoint = MyLeader.AnchorPoint
Property AnchorSymbol() As
Returns or sets the anchor symbol of the drawing leader. AnchorSymbol 0 : No anchor symbol 1 : All-Around style (circle) - For GDT, Text, Table 2 : All-Over (2 concentric circles) - For GDT, Text, Table 3 : AllAboutWithHorLine (square with an horizontal line) - For GDT, Text, Table 4 : AllAboutWithVerLine (square with a vertical line) - For GDT, Text, Table 5 : AllAroundPartial (half circle) - For GDT, Text, Table 6 : AllOverPartial (2 half concentric circles) - For GDT, Text, Table 7 : AllAboutWithHorLinePartial (half square with an horizontal line) - For GDT, Text, Table 8 : AllAboutWithVerLinePartial (half square with an vertical line) - For GDT, Text, Table 9 : Flag (Flag) - For welding annotation only 10 : FlagAndAllAround (Flag And AllAround) - For welding annotation only
Property HeadSymbol() As
Returns or sets symbol type of head side.
Example:
This example retrieves the symbol type of head side on MyLeader drawing leader. 
 oSymbol = MyLeader.HeadSymbol
Property HeadTarget() As
Returns or sets target element of head side.
Example:
This example retrieves the target element of head side on MyLeader drawing leader. 
 oTarget = MyLeader.HeadTarget
Property Leaders() As (Read Only)
Returns the secondary drawing leader collection of the drawing leader.
Example:
This example retrieves in LeaderCollection the collection of leaders of the Myleader drawing leader. 
 Dim LeaderCollection As DrawingLeaders
 Set LeaderCollection = MyLeader.Leaders
Property NbInterruption() As (Read Only)
Returns the number of interruptions of leader path.
Example:
This example retrieves the number of interruptions on MyLeader drawing leader. 
 oNbInterruption = MyLeader.NbInterruption
Property NbPoint() As (Read Only)
Returns the number of points of leader path.
Example:
This example retrieves the number of points on MyLeader drawing leader. 
 oNbPoint = MyLeader.NbPoint

Methods


Sub AddInterruption( iFirstPointX, iFirstPointY, iSecondPointX, iSecondPointY)
Add an interruption to an leader.
Parameters:
iFirstPointX
X coordinates of first point.
iFirstPointY
Y coordinates of first point.
iSecondPointX
X coordinates of second point.
iSecondPointY
Y coordinates of second point.
Example:
This example adds an interruption to MyLeader. 
 iFirstPointX = 10.
 iFirstPointY = 20.
 iSecondPointX = 20.
 iSecondPointY = 20.
 MyLeader.AddInterruption iFirstPointX, iFirstPointY, iSecondPointX, iSecondPointY
Sub AddPoint( iNum, iX, iY)
Add a point to an leader.
Parameters:
iNum
Point number. Point will be inserted at iNum+1 position.
iX
X coordinates of point to add.
iY
Y coordinates of point to add.
Example:
This example adds a point to MyLeader. 
 iNum = 1
 iX = 10.
 iY = 20.
 MyLeader.AddPoint iNum, iX, iY
Func GetInterruptions( oInterruptions) As
Get leader path.
Parameters:
oInterruptions
List of interruptions coordinates (X1,Y1,X2,Y2,.....Xn,Yn).
Returns:
oNbInterruptions Number of interruptions.
Example:
This example gets interruptions of MyLeader path. 
 oNbInterruptions = MyLeader.GetInterruptions(oInterruptions)
Sub GetPoint( iNum, oX, oY)
Get leader point coordinates.
Parameters:
iNum
Point number.
oX
X coordinates of point.
oY
Y coordinates of point.
Example:
This example gets a point to MyLeader. 
 iNum = 1
 MyLeader.GetPoint(iNum, oX, oY)
Func GetPoints( oPoints) As
Get leader path.
Parameters:
oPoints
List of points coordinates (X1,Y1,X2,Y2,.....Xn,Yn).
Returns:
oNbPoints Number of points.
Example:
This example gets points of MyLeader path. 
 oNbPoints = MyLeader.GetPoints(oPoints)
Sub ModifyPoint( iNum, iX, iY)
Modify a point of an leader.
Parameters:
iNum
Point number to modify.
iX
X coordinates of new point.
iY
Y coordinates of new point.
Example:
This example modifys a point to MyLeader. 
 iNum = 1
 iX = -10.
 iY = -20.
 MyLeader.ModifyPoint iNum, iX, iY
Sub RemoveInterruption( iNum)
Remove an interruption to an leader.
Parameters:
iNum
Interruption number to delete.
- If iNum equals to 0, all interruptions will be removed.
Example:
This example removes an interruption from MyLeader. 
 iNum = 2
 MyLeader.RemoveInterruption iNum
Sub RemovePoint( iNum)
Remove a point from an leader.
Parameters:
iNum
Point number to delete.
Example:
This example removes a point from MyLeader. 
 iNum = 2
 MyLeader.RemovePoint iNum