---

Koordinaten.zip

Hallo

Ich habe privat für mich ein DRAFTING-Makro geschrieben (ja das Rentnerdasein hat seine Vorzüge....), mit welchem man, ausgehend von einer bekannten Landeskoordinate (X- und Y-Koordinate) sowie bekannter Nordrichtung, weitere Koordinaten bestimmen kann. Die Koordinaten werden in eine Exceltabelle geschrieben.

Es läuft nur in Drafting, da ich nicht weiss, wie man dies in Annotation verpacken kann. In Drafting läuft es aber aus meiner Sicht einwandfrei. Vielleicht hat ja jemand Zeit und Lust und Know-How, dies für Annotation umzubauen .........

Im ZIP-File sind Makro, Exceltabelle sowie Anleitung enthalten. Das Makro steht zur freien Verfügung.

------------------
Herzlicher Gruss

Urs

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ha der Urs!!!!    Lange nichts gehört gelesen von Dir!  🙂  Schön das es dich auch noch gibt 👍

Zitat:

---

Original erstellt von Urs Thali:
Es läuft nur in Drafting, da ich nicht weiss, wie man dies in Annotation verpacken kann.

---

Alles wo 'es' interaktive wird muss man abdecken.  Man füttert mit Annotation sozusagen die ME10 Commandline im Blindflug.  Ganz vereinfacht ausgedrückt: alles was du mit "READ ... "  machst  muss man im Annotation als LISP UI nachbilden und in die 'imaginäre Drafting (=Annotator.exe) command line schubsen.

Damit könnte man den Makro Aufruf ja noch trigggern. (etwa so):

Code:

---

(sd-execute-annotator-command :cmd
  (format nil "Koord_auslesen ~A,~A ~A ~A ~A,~A ~A,~A"
    10 10 ;; READ PNT 'Ursprungspunkt antippen damit er aktiv wird' P2
    20    ;; READ NUMBER 'X-Koordinate eingeben [m]' X_KOR
    25    ;; READ NUMBER 'Y-Koordinate eingeben [m]' Y_KOR
    0 0  ;; READ PNT 'Ursprungspunkt bzw. bekannten Punkt antippen' UP
    0 1  ;; READ PNT 'Punkt im Norden, ausgehend vom Ursprungspunkt bzw. bekannten Punkt, antippen' UP_NORD
    ))

---

wobei die hier hardcodierten Werte dann aus dem Annotatiton LISP UI kämen.

Aber jetzt kommt der Punkt: WÄHREND Deines Makro Laufs wird dein Makro erneut interaktiv und ab da wirds dann... sagen wir mal... knifflig. Das sind die beiden Loops Zeile 70-124 und 128-182. 

Fragen/Ideen/Anregungen:

• Warum wird der Makro nicht mit vier 2D-Punkten aufgerufen? statt "PNT INT INT PNT PNT" ?  Zumal du ja aus der 2. und 3. Eingabe wieder direkt einen 2D Punkt baust.
• Sind diese beiden Schleifen nicht fast 1:1 das selbe? 52 Zeilen identischer Code bis auf ein paar (genaut 8) '+' und '-' Zeichen!  => das lässt sich zusammenfassen und in die Multiplikation kommt noch ein 'DIR_North'  welches entweder den Wert +1  oder -1 hat.
• man könnte aus der loop auch einen SubMakro machen, der dann mit +1 / -1 aufgerufen wird.
• den Dateiname würde ich eher mit (GETENV "TEMP")+'\Koordinaten.csv'  zusammenbauen statt mit hardcodiertem c:\temp
  

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Testweise kannst du (ihr) im Annotation mal folgendes eingeben:

Code:

---

(sd-execute-annotator-command :cmd "READ PNT 'Ursprungspunkt bzw. bekannten Punkt antippen' UP")

---

Da kannst dich dann dumm-und-dämlich klicken, das funktioniert nicht. Die Interaktion findet im Annotation unter Modeling Kontrolle statt. Der Annotator.exe wartet weiterhin auf einen Punkt.

Erst nach

Code:

---

(sd-execute-annotator-command :cmd "41,15"); also Simulaton der ME10 command line

---

Hat die ME10 Variable UP den Wert des Punktes.

Das bekommt man aber alles erst richtig mit, wenn man parallel den Annotator.exe einen ME10 Trace mit schreiben lässt!

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP