|
CoCreate Programmierung : [ME10] Macro
stb68 am 12.08.2009 um 09:51 Uhr (0)
Hallo RobCraven,Du musst Deinem Macro auch einen Namen geben. Der steht hinter "DEFINE".Also z. B.DEFINE MyLine LOCAL P1 LOCAL P2READ PNT Einfügepunkt anklicken P1{ CS_REF_PT RELATIVE P1 let P1 (0,0)} { Koor. Ursprung nach P0}let P2 (PNT_XY ((X_OF P1)+10) (Y_OF P1))LINE TWO_PTS P1 P2END_DEFINEDanach kannst Du das Makro MyLine aus der Befehlszeile starten.GrüßeStephan------------------Alles wird gut ...
| | In das Form CoCreate Programmierung wechseln |
|
CoCreate Programmierung : [ME10] Macro
stb68 am 13.08.2009 um 08:52 Uhr (0)
Hallo RobCreaven,LEADER_LINE musst Du mit 2 * END beenden.Also:LEADER_LINE TWO_PTS P2 P1 END END.Das erste END beendet die Punkteeingabe, Du könntest hier auch unendlichviele Punkte angeben, das zweite END den Befehl selbst.GrußStephan------------------Alles wird gut ...
| | In das Form CoCreate Programmierung wechseln |
|
CoCreate Programmierung : [ME10] Macro
stb68 am 13.08.2009 um 09:38 Uhr (0)
Hallo RobCraven,hier habe ich den Code mal überarbeitet, dass er bei mir funktioniert:DEFINE Einst_laden { setzt Einstellungen } IF (M=1) COLOR EINST_03_201 { setze aktuelle Geometriefarbe } END_IFEND_DEFINEDEFINE Einst_speichern { speichert Einstellungen } IF (M=1) INQ_ENV 3 LET EINST_03_201 (INQ 201) { aktuelle Geometriefarbe } END_IFEND_DEFINEDEFINE Linie LOCAL P1 LOCAL P2 let M (1) Einst_speichern READ PNT EinfÏgepunkt anklicken P1 CS_REF_PT RELATI ...
| | In das Form CoCreate Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |