| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
| |
| Webcast: PTC | Smart Services, ein Webinar am 13.12.2024
|
Autor
|
Thema: OSD Makrobibliothek: Textfahnen in Annotation (1850 mal gelesen)
|
Walter Geppert Moderator Frank und Frei
Beiträge: 2158 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.6, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 10 Pro 64
|
erstellt am: 02. Jun. 2003 10:19 <-- editieren / zitieren --> Unities abgeben:
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 |
3D-Papst Moderator Teamleiter
Beiträge: 3240 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 02. Jun. 2003 10:30 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
|
Walter Geppert Moderator Frank und Frei
Beiträge: 2158 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.6, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 10 Pro 64
|
erstellt am: 02. Jun. 2003 12:29 <-- editieren / zitieren --> Unities abgeben:
|
3D-Papst Moderator Teamleiter
Beiträge: 3240 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 02. Jun. 2003 12:56 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
|
3D-Papst Moderator Teamleiter
Beiträge: 3240 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 02. Jun. 2003 13:09 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
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 |
Walter Geppert Moderator Frank und Frei
Beiträge: 2158 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.6, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 10 Pro 64
|
erstellt am: 02. Jun. 2003 13:41 <-- editieren / zitieren --> Unities abgeben:
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 |
3D-Papst Moderator Teamleiter
Beiträge: 3240 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 02. Jun. 2003 13:54 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
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 |
Walter Geppert Moderator Frank und Frei
Beiträge: 2158 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.6, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 10 Pro 64
|
erstellt am: 02. Jun. 2003 15:21 <-- editieren / zitieren --> Unities abgeben:
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 |
Walter Geppert Moderator Frank und Frei
Beiträge: 2158 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.6, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 10 Pro 64
|
erstellt am: 02. Jun. 2003 15:32 <-- editieren / zitieren --> Unities abgeben:
|
3D-Papst Moderator Teamleiter
Beiträge: 3240 Registriert: 11.06.2001 Herr, stärke mich in Geduld, aber ZACK ZACK!!
|
erstellt am: 02. Jun. 2003 15:57 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
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 |
edgar Mitglied Dipl. Ing. Maschinenbau
Beiträge: 386 Registriert: 06.06.2001 WINDOWS XP OSM 18.00A OSD 18.00A HP Z400
|
erstellt am: 02. Jun. 2003 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
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 |
Walter Geppert Moderator Frank und Frei
Beiträge: 2158 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.6, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 10 Pro 64
|
erstellt am: 02. Jun. 2003 17:41 <-- editieren / zitieren --> Unities abgeben:
|
edgar Mitglied Dipl. Ing. Maschinenbau
Beiträge: 386 Registriert: 06.06.2001 WINDOWS XP OSM 18.00A OSD 18.00A HP Z400
|
erstellt am: 03. Jun. 2003 08:32 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
|
-Tobi- Mitglied Konstrukteur
Beiträge: 44 Registriert: 24.10.2001
|
erstellt am: 10. Sep. 2003 11:41 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
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 |
Walter Geppert Moderator Frank und Frei
Beiträge: 2158 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.6, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 10 Pro 64
|
erstellt am: 11. Sep. 2003 12:33 <-- editieren / zitieren --> Unities abgeben:
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 |
-Tobi- Mitglied Konstrukteur
Beiträge: 44 Registriert: 24.10.2001
|
erstellt am: 12. Sep. 2003 12:11 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Geppert
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 |