---

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

---

Da ja die LISPler hier überwiegen ..  vielleicht möchte ja jemand eine Fingerübung machen.

Hier mal eine erste Vorlage:

Code:

---

(defun calc-up-point (p1-bez
                      upx1 upy1
                      x-kor y-kor
                      alphanord
                      alphawest)
  (let* ((beta      (atan (/ upy1 upx1)))
         (betaabs   (abs beta))
         (gamma     (+ alphanord beta))
         (mass-a    (sqrt (+ (* upx1 upx1)
                             (* upy1 upy1))))
         (new-x nil)
         (new-y nil))

    ;; Die Prüfung auf (90-alphawest-betaabs)
    ;; ist im Original wirkungslos, da beide Zweige
    ;; identischen Code enthalten.

    (if (>= upx1 0)
        (progn
          (setq new-x (+ x-kor (* mass-a (cos gamma))))
          (setq new-y (+ y-kor (* mass-a (sin gamma)))))
        (progn
          (setq new-x (- x-kor (* mass-a (cos gamma))))
          (setq new-y (- y-kor (* mass-a (sin gamma))))))

    (format nil "~A,~A,~A"
            p1-bez
            new-x
            new-y)))

---

Und ein bischen Dialog

Code:

---

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Callback für NEXT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun up-next-cb (origin
                   x-kor
                   y-kor
                   next-pnt
                   nord-pnt)

  ;; Hier später deine Berechnung

  (calc-up-point
    origin
    x-kor
    y-kor
    next-pnt
    nord-pnt)

  ;; Werte im Dialog belassen
  :Ok)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dialog
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(sd-defdialog 'up_coordinate_dialog
  :Dialog-title '(sd-multi-lang-string "UP Coordinates" :german "UP Koordinaten")
  :module "ANNOTATION"

  :variables
  '(
    (origin
      :value-type :Point-2d
      :title (sd-multi-lang-string "Origin" :german "Ursprung")
      :Prompt-text (sd-multi-lang-string "Select origin point to activate it" :german "Ursprungspunkt antippen damit er aktiv wird"))

    (x_kor
      :value-type :integer
      :title (sd-multi-lang-string "X Coordinate" :german "X-Koordinate")
      :Prompt-text (sd-multi-lang-string "Enter X coordinate [m]" :german "X-Koordinate eingeben [m]"))

    (y_kor
      :value-type :integer
      :title (sd-multi-lang-string "Y Coordinate" :german "Y-Koordinate")
      :Prompt-text (sd-multi-lang-string "Enter Y coordinate [m]" :german "Y-Koordinate eingeben [m]"))

    (next_pnt
      :value-type :Point-2d
      :title (sd-multi-lang-string "Reference Point" :german "Bezugspunkt")
      :Prompt-text (sd-multi-lang-string "Select origin point or known point" :german "Ursprungspunkt bzw. bekannten Punkt antippen"))

    (nord_pnt
      :value-type :Point-2d
      :title (sd-multi-lang-string "North Point" :german "Nordpunkt")
      :Prompt-text (sd-multi-lang-string "Select point north of origin/reference point" :german "Punkt im Norden, ausgehend vom Ursprungspunkt bzw. bekannten Punkt, antippen"))

    (next
      :title (sd-multi-lang-string "Next" :german "Nächste")
      :Push-action (sd-call-cmds (next-action))
      :next-variable 'next_pnt)
  )

  :local-functions
  '(
    (next-action ()
      (calc-up-point origin x_kor y_kor next_pnt nord_pnt))
  )

  :initial-variable 'origin
)

---

Nein, funktionieren tut das noch nicht 😉

------------------
● 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