---

am_posnum.lsp.txt

Anläßlich der beiden Vorgängerthreads stelle ich als Beispiel zum Text- und Geometrieerzeugen in Annotation ein Makro hier rein, mit dem man Textfahnen wie Positionsnummern erzeugen kann (ist bei uns so in Gebrauch).
Mit (load "pfad/am_posnum.lsp") hat man einen neuen Eintrag in der Toolbox:
Die Textfahne mit Unterstrich, Bezugslinie und Endpunkt besteht komplett aus "echten" Geometrielinien und ist als eigene Skizze zunächst dem aktuellen Blatt zugeordnet, kann dann aber nachträglich einer Ansicht zugeordnet werden, auch Blockweise mit Suchrahmen, da hierbei nur genau mit diesem Makro erzeugte Texte erkannt werden. Mit "Dehnen" können die Texte nachträglich verschoben werden, ohne ihren Bezugspunkt zu verlieren.
Als besonderes Goodie werden Texte, die mit ganzen Zahlenwerten beginnen, automatisch um eins erhöht, z.B. "1N", "2N" etc.

------------------
DC4 Technisches Büro GmbH

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

---

Fehler.jpg

Hallo Walter,
sieht ja super aus, DANKE!
Leider kommt bei mir, wenn ich die Textposition auf der Zeichnung anklicken will, eine Fehlermeldung (siehe Bild).
Was mach ich da falsch?
Danke

------------------
Hier werden Sie geholfen:
www.3D-Papst.de

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

---

Welche Version von OSD hast Du im Einsatz? Mit 11.6 kann ich die Fehlermeldung nicht provozieren. Es sieht so aus, als wäre der Befehl "gpntdocu_x" (und "gpntdocu_y") noch nicht zur Verfügung

------------------
DC4 Technisches Büro GmbH

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

---

Habe W2K und OSD 11.6(B). Würde mich echt ärgern wenn es nicht funktionieren würde weil es genau das ist was ich suche!!
Kannst du mir bitte vielleicht doch irgendwie weiter helfen? :-(

------------------
Hier werden Sie geholfen:
www.3D-Papst.de

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

---

Diese Info hab ich in der Datei anno_dg.html gefunden:

Receiving a raw pick
Sometimes it is required not to select an existing ME10 object but to simply get a certain position in 2D space by picking into empty space.
Creating a polygon of lines is a typical task requiring this functionality.

To get a point simply set the value type

:docupntcnp

The LISP object returned is of type

gpntdocu

This is a structure containing two members

(gpntdocu_x point)
returns the x coordinate
(gpntdocu_y point)
returns the y coordinate
Example
Task: "Write a dialog to create rectangles"

;; this is SolidDesigner LISP code
(in-package  li)
(sd-defdialog 'sd-am_geo_rectangle
  :dialog-control :sequential-loop
  :variables '(
      (rectangle-start
        :value-type :docupntcnp
        rompt-text ("Indicate corner of rectangle" 1)
        :after-input (sd-execute-annotator-command :cmd
                      (format nil "LINE ASSIST RECTANGLE ~A,~A"
                                  (gpntdocu_x rectangle-start)
                                  (gpntdocu_y rectangle-start)))
      )
      (rectangle-end
        :value-type :docupntcnp
        rompt-text ("Indicate opposite corner of rectangle" 2)
        :after-input (sd-execute-annotator-command :cmd
                      (format nil "~A,~A"
                                  (gpntdocu_x rectangle-end)
                                  (gpntdocu_y rectangle-end)))
        :next-variable rectangle-start
      )
    )
  k-action '(sd-execute-annotator-command :cmd "end")
  :cancel-action '(sd-execute-annotator-command :cmd "end")
  )

Hilft aber auch nicht wirklich weiter, oder? Hab doch 11.6, müsste also auch funzen?!?!?

------------------
Tipps und Tricks zum OSD:
www.3D-Papst.de

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

---

Hallo Heiko,

das Ganze ist irgendwie rätselhaft, bei mir läufts mit der selben Softwarekombination fehlerfrei. Irgendwie "verliert" OSD den Bezug zum richtigen package. Versuchs mal auf die "Harte Tour":
Ersetze die entsprechende Variablendefinition im Makro mit
(ppnt :value-type :docupntcnp
:prompt-text "Bezugspunkt fuer Positionsnummer angeben"
:title "Textposition"
:after-input (sd-execute-annotator-command :cmd
(format nil "LEADER_LINE ~A,~A"
(oli::gpntdocu_x ppnt)
(oli::gpntdocu_y ppnt)))
)

Bei mir hats zwar auch ohne das oli:: funktioniert, aber die Wege von LISP sind zuweilen unergründlich

------------------
DC4 Technisches Büro GmbH

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

---

Fehler1.jpg

SIEG!
Jetzt wird der Pospfeil gezeichnet, aber es kommt noch immer eine Fehlermeldung, diesmal eine andere. Heißt das dass ich oli: noch öfters eingeben muss?

Den Unterstrich an der Zahl bekam ich weg. Gibts ne Möglichkeit die Größe des Kreises auf 1,5 mm zu ändern, sowie dass der Kreis evtl. gefüllt ist? (Schraffur mit 0 Abstand?).
Ich werd verrückt wenn es echt noch funzen würde!!

Den oli:: hab ich vor jeden put_buffer Befehl gesetzt und die Fehlermeldungen sind weg! Jetzt nur noch das Prob der Größe des Kreises und der Füllung.

Die Größe des Kreises hab ich, jetzt noch die Füllung. Die bekomme ich bestimmt nicht hin :-(

------------------
Tipps und Tricks zum OSD:
www.3D-Papst.de

[Diese Nachricht wurde von 3D-Papst am 02. Juni 2003 editiert.]

[Diese Nachricht wurde von 3D-Papst am 02. Juni 2003 editiert.]

[Diese Nachricht wurde von 3D-Papst am 02. Juni 2003 editiert.]

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

---

Mit den Schraffurfunktionen hab ichs auch nicht hinbekommen, bis man ad drauf kommt, wächst einem der Bart durch den Schreibtisch wie weiland Kaiser Barbarossa.
Aber "quick and dirty" für deinen Punktdurchmesser:
...
(AM_GEO_DEFAULT :pen_size 0.75)
(sd-call-cmds (AM_GEO_CIRCLE :GO :OK pp 0.375) :failure (setf fehler t))
(AM_GEO_DEFAULT :pen_size 0.0)
...
PS:
Die Geschichte mit dem oli:: kommt mir trotzdem spanisch vor, mit (use-package :oli) am Anfand der Datei sollte eigentlich alles "erschlagen" sein, aber so ist LISP...

------------------
DC4 Technisches Büro GmbH

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

---

am_posnum.lsp.txt

Am Schluß noch die reparierte Version mit gefüllten Kreisen für alle anderen 

------------------
DC4 Technisches Büro GmbH

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

---

SUPER!
1000 Dank! So wollte ich es haben.
Ich wäre froh wenn ich nur annähernd solche Lisp-Progis schreiben könnte, denn Ideen zu Progis hätte ich genug.
Noch ne Frage: Darf ich es auf meiner Homepage zum download anbieten?

------------------
Tipps und Tricks zum OSD:
www.3D-Papst.de

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

---

Hallo Walter,
So ein ähnliches Makro hab ich auch schon immer gesucht. Nur müßte in meinem Anwendungsfall das Makro zur Beschriftung die ersten 8 Zeichen des Teilenamens einlesen. Im ME10 klappt das wunderbar (Kontur des Teils angeklickt=> Einlesen des Teilenamens), aber ob das im Annotation überhaupt möglich ist?

Gruß
Edgar

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

---

am_teilnum.lsp.txt

Dem Manne kann geholfen werden 

PS: so viel Zeit hab ich nur selten 

------------------
DC4 Technisches Büro GmbH

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

---

Perfekt!
Vielen Dank!

Gruß
Edgar

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

---

Hallo Walter,
ich habe mir das Tool das du für Edgar erweitert hast heruntergeladen und finde es sehr praktisch. Leider bekomme ich dabei diese Fehlermeldung „Aktion abgebrochen  (am_text_settings/signal/sigsegv) „.Was aber nicht heißt das der Befehl nicht ausführt wird. Manchmal klappt es und manchmal auch nicht. Kannst du mir da vielleicht einen Tipp geben.
Mit bestem Dank im voraus
Marcus

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

---

Hallo Marcus,
den Fehler kann ich mir auch nicht erklären, Segmentationsfehler sollten ja eigentlich überhaupt nicht vorkommen. Wir ahben das Makro in ganz ähnlicher Form bei uns laufen und das ist noch nie passiert. Die einzige Erklärung, die mir einfällt wäre, daß der Font hp_d17_v nicht geladen ist und das Programm darüber stolpert. Normal sollte da aber auch eine andere Fehlermeldung kommen 

------------------
Grüße aus Wien
Walter
DC4 Technisches Büro GmbH

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

---

Zitat:

---

Original erstellt von Walter Geppert:
Die einzige Erklärung, die mir einfällt wäre, daß der Font hp_d17_v nicht geladen ist und das Programm darüber stolpert.

---

Hallo Walter,
danke für deine Antwort. Ich habe die den Font dazu geholt und jetzt klappt es.
Gruß Marcus

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