---

Hallo,

ich glaube ich hatte dieses Thema schon mal versucht. Ich würde im Annotation gerne den Befehl Text erstellen aufrufen, den TExt auch eingeben, dann aber noch positionieren können.
Mit

Code:

---

am_create_text "3-000330~%Linsenschraube~%M6x16~%DIN 7985~%Stahl verzinkt"

---

geht das ja auch.
Aber wie ist das wenn ich in einem def drin bin, dann klappt das irgendwie nicht und leider klappt sd-call-cmds bei Annotation ja nicht.

Ich möchte aus einer Textdatei eine Zeile rauslesen und diese dann als Text im Annotation platzieren können.

Code:

---

(defun auslesen (file)
(sleep 0.5)
(with-open-file (str file :direction :input)
(do ((line (read-line str nil 'eof)
(read-line str nil 'eof)))
((eql line 'eof))
(setq texte (format nil "~A" line))
)
)
am_create_text (format nil "3-000330~%Linsenschraube~%M6x16~%DIN 7985~%Stahl verzinkt")
)

---

Die Variable texte wird noch nicht verwendet, aber nur das ihr das Prinzip versteht.

Danke und

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

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

---

Hallo

den Text aus der Textdatei bekommst du raus?

Wenn ja dann einfach an den Mauszeiger hängen mit

(Code-Schnipsel)

:after-input
(progn
  (sd-execute-annotator-command :cmd (format nil "TEXT '~A' " text-variable))
  );;ende progn

Gruß tAiNo

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

---

Hallo taiNo,

erst mal danke für den Tipp, damit ruft man ja die Draftign Befehle auf, richtig?
Den TExt aus der Textdatei bekomme ich raus, aber mit dem Befehl komme ich so im Annotation nicht ganz zurecht, kann den Text dann nciht absetzen.
Auch das :after-input habe ich so ja nicht drin.
Wenn ich klappen müsste, sollte ich doch den Befehl auch einfach so

Code:

---

(sd-execute-annotator-command :cmd (format nil "TEXT 'Hallo~%Welt!'"))

---

ausführen können, oder?

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

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

---

beispiel_funktion.lsp

Hallo Greskamp,

anbei mal ein kleines Beispiel mit dem Text.
Schau es dir mal an.

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

---

Das klappt super, einwandfrei...
im lisp habe ich halt gefährliches halbwissen, wenn überhaupt.
Ich danke dir, werde mir daraus einen passenden Code stricken.

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

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

---

Zitat:

---

Original erstellt von Greskamp:
leider klappt sd-call-cmds bei Annotation ja nicht.

---

Sorry.  Aber diese Aussage ist einfach falsch!

sd-call-cmds ist auch in Annotation unterstuetzt. Man muss es halt hier, wie auch im 3D, richtig aufrufen.

Mid sd-call-cmds rufst du eineen Dialog (eine action) auf und diese wird KOMPLETT ausgeführt ohne jegliche interaction. Und SO ist das auch gewollt.

Wenn ich deinen Ursprungliche LISP schnipssel ansehe, vermute ich das Du die Textdatei komplett leses willst und als _einen_ Text dann _interactive_ platzieren willst?

Den Text mit reinen ME10 Mitteln zu platzieren ist vielleicht nicht ganz so gut (je nach anwendungsfall). Du umgehst dann evlt. ein wenig das "Besitzer" konzept vom Annotation.

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

---

Mal noch was "in den Raum schmeiss" .. 

Du willst einen Text von einer Datei lesen und diesen, am Cursor hängend, platzieren?  So habe ich zumindest einen der obigen Zwischenschritte gelesen.

Warum nimmst du nicht AM_LOAD_ASCII_FILE  , bzw CTRL-O und dann *.txt option?

oder bin ich da auf dem hohlen Holzweg gerade?

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