DesignCad Survey Macros - That Darned Bearing Command

'Brng Dist.d3m
'This sets the bearing command to
'hundredths and seconds
'and also adds a foot mark
'to the distance.
''''''''''''''''''''''''
'This sets defaults for the bearing command
'first we do a practice one, and set everything
>ID_BEARING
{
  <Justification 0
  <Pointxyz 10, 10, 0
  <Pointxyz 40, 50, 0
  <Pointxyz 40, 50, 0
  <Type 0
  <DistanceFormat 0
  <AngleFormat 4
  <AnglePrecision 0
  <DistancePrecision 2
  <Suffix "1"
  <Reverse 0
  }
'then we erase the practice text
'the settings remain set
>Undo
{
}
'''''''''''''''''''''''''''''''''

SYS(7)=2  'Current distance precision [-7<=x<=15]
SYS(8)=4  'Current angular precision [-7<=x<=15]
SYS(23)=1 'Mathematical or geographical angles [0=Math, 1=Geo]

SetPoint "Set 2 points for measuring distance and angle.", 2
PointVal x1 y1 z1 1
PointVal x2 y2 z2 2

' Enable silent mode to disable the text box for the AngleDistance 'command
Sys(36) = 1

>AngleDistance
{
<PointXYZ [x1, y1, z1]
<PointXYZ [x2, y2, z2]
}

' Disable the silent mode
Sys(36) = 0

'Message "The distance is ", Sys(650)
'Message "The X angle is ", Sys(651)

Precision 2
Dist$ = SYS(650)

Precision 0
IF SYS(651) <= 90 then goto ne
IF SYS(651) <= 180 then goto nw
IF SYS(651) <= 270 then goto sw
IF SYS(651) <= 360 then goto se
Angle$ = SYS(651)

ne:
'message "this is ne"
'Set quaadrant and direction
BrngD=90-sys(651)
'separate out the degrees
Angle$=int(BrngD)
'begin the text string
Angle$="N "+Angle$+"�"
'separate out the decimal portion
'for the minutes
BrngM=BrngD-int(BrngD)
'convert decimal to DMS
BrngM=BrngM*60
'convert to string
Minute$=int(BrngM)
'add the strings together
Angle$=Angle$+Minute$+"'"
'separate out the decimal portion
'for the seconds
BrngS=BrngM-int(BrngM)
BrngS=BrngS*60
Second$=BrngS
Angle$=Angle$+Second$+"'' E"
TextAngle=SYS(651)
goto print

nw:
BrngD=sys(651)-90
Angle$=int(BrngD)
Angle$="N "+Angle$+"�"
BrngM=BrngD-int(BrngD)
BrngM=BrngM*60
Minute$=int(BrngM)
Angle$=Angle$+Minute$+"'"
BrngS=BrngM-int(BrngM)
BrngS=BrngS*60
Second$=BrngS
Angle$=Angle$+Second$+"'' W"
TextAngle=SYS(651)+180
goto print

sw:
Precision 10
BrngD=270-sys(651)
Precision 0
Angle$=int(BrngD)
Angle$="S "+Angle$+"�"
Precision 10
BrngM=BrngD-int(BrngD)
BrngM=BrngM*60
Precision 0
Minute$=int(BrngM)
Angle$=Angle$+Minute$+"'"
BrngS=BrngM-int(BrngM)
Precision 10
BrngS=BrngS*60
Precision 0
Second$=BrngS
Angle$=Angle$+Second$+"'' W"
Precision 10
TextAngle=SYS(651)+180
goto print

se:
BrngD=SYS(651)-270
Angle$=int(BrngD)
Angle$="S "+Angle$+"�"
BrngM=BrngD-int(BrngD)
BrngM=BrngM*60
Minute$=int(BrngM)
Angle$=Angle$+Minute$+"'"
BrngS=BrngM-int(BrngM)
BrngS=BrngS*60
Second$=BrngS
Angle$=Angle$+Second$+"'' E"
TextAngle=SYS(651)
goto print

print:
Sys(36) = 1  'Silent mode on
SYS(242)=1  'Select object when created [0=no, 1=yes]
>text
{
<Justification 1 '0 = left, 1 = center, 2 = right
<text  [Angle$]"    "[Dist$]"'"
<angle [TextAngle]
<PointXYZ [1, 1, 1]
}

Sys(36) = 0  'Silent mode off

>move
{
}

SYS(242)=0  'Select object when created [0=no, 1=yes]

'''''''''''''''''''''''''''
'I just stick a save in every macro
'there's never really a bad time to save
>Save
{
}
'''''''''''''''''''''''''''''''''
End

These are stand-alone examples. The macros in the main package all work together and will confuse the user (and the computer) if used separately but you can use any of these any way you want.
To use any one of these you just select all from the appropriate textbox, copy and paste into a text file with a .d3m extension.
Then just use it like any other macro. Both macros use the text font and size already in use.