T_rot -->(T_rot)-->|Zeichenfolge|-->|Element|-->|Punkt|-->|Winkel| Dieses Makro plaziert Text um ein kreisfÎrmiges Objekt. DEFINE T_rot LOCAL txt LOCAL centerpoint LOCAL curr_catch LOCAL startpoint LOCAL N LOCAL Da LOCAL angle INQ_ENV 3 LET curr_catch (INQ 603) READ STRING "'Text' eingeben." txt IGNORE_BREAK CATCH ELEM READ PNT COMMAND 'Element angeben.' centerpoint CATCH curr_catch IF ((TYPE centerpoint)<>PNT) ENABLE_BREAK CANCEL END_IF ENABLE_BREAK INQ_ELEM centerpoint IF (((INQ 403)=CIRCLE) OR ((INQ 403)=ARC) OR ((INQ 403)=FILLET)) LET centerpoint (INQ 101) ELSE CANCEL END_IF READ PNT 'Anfangspunkt angeben.' startpoint C_CIRCLE centerpoint (LEN (startpoint-centerpoint)) C_LINE centerpoint startpoint READ NUMBER PNT 'Winkel eingeben.' RUBBER_ARC_CEN_END centerpoint startpoint angle IF ((TYPE angle)=PNT) LET n (ANG(centerpoint-startpoint)) LET angle (ANG(centerpoint-angle)) LET angle (INT(angle-n)*-1) END_IF IF (angle<0) LET angle (360+angle) END_IF DELETE C_LINES startpoint END DELETE C_CIRCLES startpoint END LET N (LEN txt) LET Da (angle/n) LET angle (ang (startpoint-centerpoint)) LET N 1 WHILE (N<=LEN Txt) TEXT_ANGLE (angle-90) TEXT (SUBSTR Txt N 1) startpoint LET angle (angle - Da) LET startpoint (centerpoint+PNT_RA (LEN (startpoint-centerpoint)) angle) LET N (N+1) END_WHILE END TEXT_ANGLE 0 END_DEFINE