---

Hallo!

Hihi, das hab' ich mir so gedacht...

Ich habe hier seit einiger Zeit zwei Makros eingebunden, mit denen Hinweislinien mit Pfeil, bzw. Punkt erzeugt werden, wobei der erste Teilstrich orthogonal ausgerichtet wird. Das ist hilfreich bei Texten, die man auf diese Weise anzieht. Ist auch alles super.
Nur hat dieser Befehl LEADER_LINE die Eigenschaft, sich nach der aktuellen Linienfarbe zu richten und nicht nach dem, was man unter "Bezugslinienvorgaben" eingestellt hat. Also habe ich vor dem Befehlsaufruf die richtige Linienfarbe eingestellt. Auch das funktioniert.
Nun habe ich mir eben gedacht, es wäre ja hilfreich, wenn nach dem Befehl wieder die vorher eingestellte Linienfarbe aktiviert würde. Also habe ich zu Beginn des Makros diese ausgelesen (INQ_ENV 3 - INQ 201) und habe sie am Ende des Makros wieder gesetzt.

Dummerweise ist aber der Befehl für die Hinweislinie am Makroende noch gar nicht beendet, sondern es erfolt nur der Aufruf mit den ersten beiden Punkten (die halt ausgerichtet wurden): LEADER_LINE P1 P2. Danach hat der User ja noch die Möglichkeit weitere Knickpunkte anzugeben, oder die Linie zu unterbrechen. Das konnte und wollte ich nicht auch noch im Makro erschlagen. Nur - weil der Befehl noch aktiv ist und dann die Linienfarbe zurückgesetzt wird, wird die Hinweislinie in der aktuellen, also falschen Farbe erstellt.

Ich nehme mal an, dass es für das Problemchen aber keine Lösung gibt, oder? Ich schätze, diese Erweiterung darf ich wieder rausnehmen? Oder hat hier jemand einen Tipp?

Viele Grüße
Tom

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

---

Du könntest versuchen, die Eingabe der Punkte in eine Schleife zu verpacken, die nicht nur Punkt-Eingaben verdaut, sondern auch andere User-Reaktionen z.B.

Code:

---

  ...
  LOOP
    {Werte setzen}
    {Geometrie starten}
    LET prmpt ('naechster Punkt (Abschluss=letzter Punkt oder ENDE)')
    LOOP
      READ PNT COMMAND PROMPT prmpt RUBBER_LINE  p1 p2
    EXIT_IF ((TYPE p2)=PNT)
    EXIT_IF ((TYPE p2)=COMMAND)
    END_LOOP
  EXIT_IF (p2=END)
  EXIT_IF (p2=END_PART)
  EXIT_IF(LEN(p2-p1)<0.01)
    {Geometrie fortsetzen}
  END_LOOP
  {Werte ruecksetzten}
  ...

---

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

Walter
DC4 Technisches Büro GmbH

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

---

Hallo Walter!

Danke für den Tipp. Aber eigentlich wollte ich genau diese Programmiererei vermeiden, um unvorhergesehene Ergebnisse zu vermeiden. Ganz so versiert bin ich in dieser Programmierung doch nicht.
Ausserdem ist die Unannehmlichkeit, die ich abschaffen wollte, nicht so groß, dass sie meiner Meinung nach den Aufwand rechtfertigen würde.

Auf jeden Fall aber nochmals heißen Dank für deine Hilfe.

Viele Grüße
Tom

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

---

Posis.txt

Hallo Tom,
hier habe ich ein komplettes Beispiel für dich.

Schöne Grüße
Bernd

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