Hat sich erledigt!
hätte etwas besser suchen sollen.
Mit diesem Makro funktioniert es:
DEFINE Stiftlin_Aend1
LOCAL P1
LOCAL P2
LOOP
READ PNT 'Element antippen oder Elemente wählen' P1
INQ_ELEM P1
IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE))
BEEP
ELSE_IF (INQ 403 = END)
READ PNT 'gegenüberliegenden Eckpunkt des Rahmens wählen' RUBBER_BOX P1 P2
CHANGE_LINETYPE SOLID P1 P2 END
CHANGE_COLOR WHITE P1 P2 END
ELSE
CHANGE_LINETYPE SOLID P1 END
CHANGE_COLOR WHITE P1 END
END_IF
END_LOOP
END_DEFINE
DEFINE Stiftlin_Aend2
LOCAL P1
LOCAL P2
LOOP
READ PNT 'Element antippen oder Elemente wählen' P1
INQ_ELEM P1
IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE))
BEEP
ELSE_IF (INQ 403 = END)
READ PNT 'gegenüberliegenden Eckpunkt des Rahmens wählen' RUBBER_BOX P1 P2
CHANGE_LINETYPE DASHED P1 P2 END
CHANGE_COLOR RED P1 P2 END
ELSE
CHANGE_LINETYPE DASHED P1 END
CHANGE_COLOR RED P1 END
END_IF
END_LOOP
END_DEFINE
DEFINE Stiftlin_Aend3
LOCAL P1
LOCAL P2
LOOP
READ PNT 'Element antippen oder Elemente wählen' P1
INQ_ELEM P1
IF ((INQ 403 = C_LINE) OR (INQ 403 = C_CIRCLE))
BEEP
ELSE_IF (INQ 403 = END)
READ PNT 'gegenüberliegenden Eckpunkt des Rahmens wählen' RUBBER_BOX P1 P2
CHANGE_LINETYPE DOT_CENTER P1 P2 END
CHANGE_COLOR RED P1 P2 END
ELSE
CHANGE_LINETYPE DOT_CENTER P1 END
CHANGE_COLOR RED P1 END
END_IF
END_LOOP
END_DEFINE
Danke an thomas.h
Linienart und Farbe ändern (4. Beitrag)
Grüße Marco
------------------
Buss SMS Canzler GmbH
Konstruktion
www.sms-vt.com
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP