---

Hallo Lispler,

ich hab' ein kleines Programm, mit dem ich mir eine Bogenbemaßung erzeugen kann. Wenn ich also die Funktion starte, muss der Anwenden einen Bogen auswählen, die Position angeben, und die Bemaßung wird gezeichnet (auf dem richtigen Layer etc.).

Zum Zeichnen der Bemaßung dient folgender Befehl:
(command "_dimangular" es "_text" (strcat "{\\fAMGDT|b0|i0|c0|p2;k}" (rtos len 2)))

Mein Problem:
Nach dem Aufruf von "(COMMAND "_DIMANGULAR" ...) läuft die Lisp einfach weiter. Das äußert sich wie folgt:
Der Benutzer wird aufgefordert, den zu bemaßenden Bogen anzugeben. Klickt er einen Bogen an, ist folgender Befehl aktiv:
"Position des Maßbogens angeben oder [Mtext/Text/Winkel]:"
Der Benutzer soll also die Position der Bemaßung angeben.

Dazu kommt der Benutzer allerdings nicht, weil die Lisp im Hintergrund sofort in das (COMMAND "AMRESCALE" ...) reinläuft und die Parameter an die Positionierungsabfrage weitergibt. Jetzt erhalte ich natürlich entsprechende Fehlermeldungen von wegen falscher Paramter etc.

Meine Frage:
Wie kann ich Lisp nach dem ersten COMMAND warten lassen, bis die Bemaßung vollständig fertig ist? Der AMRESCALE-Befehl soll dann erst aufgerufen werden.

Danke und ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

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

---

Prinzipiell mit (Command .. pause ...)

Edit: aber guck doch auch hier : http://ww3.cad.de/foren/ubb/Forum54/HTML/001651.shtml

oder zum warten lassen http://ww3.cad.de/foren/ubb/Forum145/HTML/000107.shtml

Thomas

------------------

[Diese Nachricht wurde von CADmium am 04. Feb. 2004 editiert.]

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

---

Hallo Thomas,

danke erst mal für die schnelle Antwort. Das mit dem PAUSE hab' ich schon probiert, aber ich krieg's nicht so ganz hin. Hab ich's vielleicht an der falschen Stelle? Ich hab's derzeit ganz am Ende:
(command "_dimangular" es "_text" (strcat "{\\fAMGDT|b0|i0|c0|p2;k}" (rtos len 2)) pause)

Danke und ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

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

---

Hallo Wolfgang,

das ist so, wenn man versucht mit (command ..) zu arbeiten. Das (command ..) lässt sich nicht ausbremsen.
Willst du den Winkelbemaßung-Befehl nutzen um eine Bogenlängenbemaßung zu erhalten, dann gibt es 2 Wege:
a) zunächst den Winkel bemaßen und anschließend das Tool starten, welches dir die Bogenlänge berechnet und auch einträgt.
b) das in a) geschriebene durch einen Reactor machen lassen. Aber Vorsicht, nicht dass du nie wieder eine Winkelbemaßung machen kannst, weil nur noch Bogenlängen bemaßt werden.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

In eine Forum soll man nicht fluchen, also lass' ich's.

Die Sache ist ganz anders, als ich dachte. Mein Problem war, das ich AMRESCALE nicht mit (COMMAND ...), sondern mit (C:AMRESCALE) aufrufen muss.
Deshalb hab' ich ständig die Fehlermeldung von wegen ungültiger Befehl erhalten. Ich hab' das lediglich falsch interpretiert und dachte, es läge an PAUSE etc.
Da ergibt sich zwar ein weiteres Problem, dazu aber mehr im nächsten Threat (davor probier' ich aber selbst noch ein wenig).

Danke an alle Beteiligten, ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

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