---

Hallo,

ich würde gerne ein Programm schreiben wo ich auch die Makrosprache (Me10) brauche. Den Weg von Lisp in Makro bekomme ich hin.

Code:

---

(sd-execute-annotator-command :cmd (format nil "~a ~s ~s" "Textpunkt_ausle" sel_Texxt_Punkt "1000,1000" sel_Texxt ))

---

In dem Makro ermittle ich dann über inq_elem den Textursprungspunkt eines Textes.

Code:

---

LOCAL Text_UrSprung
inq_elem Sel_Teexxt_Pu
LET Text_UrSprung (inq 101)

---

Jetzt fehlt mir aber der Befehl oder die Vorgehensweise wie ich diese Textursprungspunkt wieder ins Lisp bekomme damit ich mit dem Punkt arbeiten möchte.

Wäre super wenn mir jemand helfen könnte

------------------
Gruß Peter

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

---

Quick and Dirty ungetestet:

Code:

---

(setf mytextursprung (sd-execute-annotator-command :cmd (format nil "~a ~s ~s" "Textpunkt_ausle" sel_Texxt_Punkt "1000,1000" sel_Texxt )))

---

In dem Makro ermittle ich dann über inq_elem den Textursprungspunkt eines Textes.

Code:

---

LOCAL Text_UrSprung
inq_elem Sel_Teexxt_Pu
LET Text_UrSprung (STR (inq 101))
LET lispstring (DOCU_CSTRING_TO_LSTRING Text_UrSprung)
LET isopen (DOCU_OPEN_CONNECTION_TO_SD)
LET done (DOCU_ADD_LINE_TO_SD lispstring)
LET isclosed (DOCU_CLOSE_CONNECTION_TO_SD)

---

Der Returnwert ist immer ein String und muss im LISP wieder aufgedröselt werden

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Hallo Walter,

kannst du mir noch verraten wie die Variable dann im LISP heißt wenn ich mir die mit

Code:

---

display

---

anzeigen lassen möchte?

Code:

---

(Display lispstring)
(Display done)

---

beides klappt nicht.

------------------
Gruß Peter

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

---

Sorry, hatte das

Code:

---

(setf mytextursprung

---

übersehen, nur bekomme ich jetzt ein NIL als Display angezeigt...

------------------
Gruß Peter

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

---

Hallo Walter,

danke für die Hilfe, aber irgendwie will das überhaupt nicht. Ich habe jetzt auch die Hilfe im iKIT dazu gefunden, da steht das drin was du mir auch geschrieben hast, aber ich bekomme keinen Wert ins LISP. Nicht mal wenn ich einfach nur meinen Namen als Text eingebe. Schon irgendwie komisch und schade.

------------------
Gruß Peter

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

---

Hallo,

nur das zum Abschluß und als Ergebnis, wenn es andere noch verwenden wollen. Mit der Lösung hat es dann bei mir geklappt.

Hier der Aufruf im Lisp:

Code:

---

(setq mytext_Formatierung (sd-execute-annotator-function :fnc (format nil "Textpunkt_ausle1 ~a" sel_Texxt_Punkt)))

---

und hier der Code im ME-Makro:

Code:

---

DEFINE Textpunkt_ausle1
PARAMETER Sel_Teexxt_Pu

inq_elem Sel_Teexxt_Pu

LET Text_Formatierung (STR (inq 3))

let pid_1 (DOCU_CSTRING_TO_LSTRING Text_Formatierung)

(DOCU_OPEN_CONNECTION_TO_SD)
(DOCU_ADD_LINE_TO_SD pid_1)
(DOCU_CLOSE_CONNECTION_TO_SD)
END_DEFINE

---

Damit läuft das Programm jetzt

------------------
Gruß Peter

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