Entry point
|
Entry to the symbology procedure with the calling 'New Object'
|
Get the Calling Object
|
Get the object which is calling this procedure
|
Get 'SYMINS'
|
Get the value of the attribute 'Symbol Instruction' (SYMINS)
|
Has value ('SYMINS')?
|
Is the value of the attribute 'SYMINS' given?
|
Create 'List of Symbology Instruction' (Initially blank)
|
Create 'List of Symbology Instructions' to be presented at the position of the calling object. This list is initially blank.
|
Select Symbology Instructions
|
Select Symbology instruction(s) from the value of 'SYMINS' to the 'List of Symbology Instructions'.
There can be: AC(); AP(); LS(); LC(); SY(); TX(); TE().
The symbology instructions have to be added to the list in the order as they are in the SYMINS attribute value.
The symbology instruction must not be added in selected list if:
- it is not recognized as symbology instruction;
- it calls an invalid symbology name;
- it has invalid symbology parameters;
- it cannot be implemented for the calling object geometry (e.g. line symbology instructions for point object and etc.)
|
Is the Symbology Instruction(s) valid?
|
Is the List of Symbology Instructions empty?
(i.e. the previous Action could not select the correct symbology instructions from the value of 'SYMINS').
|
Symbolize Object
|
Using the selected Symbology Instruction(s) from the list to symbolize the calling object according to its geometry.
Point symbolization (i.e. SY(), TX() and TE()) have to be drawn in the middle point of the line or in the area centre of the calling object.
|
Exit Procedure
|
Symbolization is finished
|
Is Point?
|
Is the object of type point?
|
SY(NEWOBJ01)
|
Draw the symbol 'NEWOBJ01' at the location of the calling object.
|
Is Line?
|
Is the object of type line?
|
LC(NEWOBJ01)
|
Symbolize area boundary with the line pattern 'NEWOBJ01'.
|
SY(NEWOBJ01); LS(DASH,2,CHMGD)
|
Draw the symbol 'NEWOBJ01' in the centre of the calling area object.
Draw the area boundary as a dashed line, 2 units wide, in the colour 'CHMGD'.
|
Exit Procedure
|
Exit from the procedure with default symbolization
|