| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
|
Autor
|
Thema: Problem bei kleinem Macro (2668 mal gelesen)
|
Ulf Selve
Mitglied
Dipl.-Ing. Maschbau
   Beiträge: 68
Registriert: 03.09.2001 OSDM15.00B/ME10 15.00 WIN-XP Prof, eine MEGA-Frau und drei Turbo-Kinder
|
erstellt am: 29. Aug. 2008 08:33  <-- editieren / zitieren -->   Unities abgeben:          
Moin, ich habe ein kleines Macro geschrieben, das einfach nur deinen Text als 3D-Geometrie erzeugen soll (ist für 'ne Kinderbelustigung im Rahmen eines Betriebsfestes).
Das Macro funktioniert auch so weit, schmeißt aber zwischendurch die Fehlermeldung "Unerwarteten Wert eingegeben" raus.
Wenn man <ok> drückt läuft das Macro weiter und tut das gewünschte.
Kann mir jemand einen Tip geben wo es klemmt? Vielen Dank im voraus Ulf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Geppert
Moderator
Frank und Frei
    
Beiträge: 2143
Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf
HP ZBook 17 G4, Windows 10 Pro 64
|
erstellt am: 29. Aug. 2008 09:34 <-- editieren / zitieren --> Unities abgeben: Nur für Ulf Selve 
Die fetten Teile sind dran schuld, und die kursiven kann man weglassen (akueller Teil und aktuelle AE sind default): :Ok-action '(progn
;(display Feld1)
(create_assembly :name "B1")
(create_part :name "Namenszug" :Owner "/B1")
(create_workplane :new complete :name "A1")
(create_geo_text :text Feld1 :Pos 0,0 :size 10 :font "book_antiqua" complete)
(create_part "Namenszug")
(extrude
:auto_direction :yes
:keep_wp :no
;:keep_profile :no
:Part "/B1/Namenszug"]
:distance 10
:wp "/A1"
);;extrude
);;progn
------------------
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 |
Ulf Selve
Mitglied
Dipl.-Ing. Maschbau
Beiträge: 68
Registriert: 03.09.2001 OSDM15.00B/ME10 15.00 WIN-XP Prof, eine MEGA-Frau und drei Turbo-Kinder
|
erstellt am: 29. Aug. 2008 10:07 <-- editieren / zitieren --> Unities abgeben:
|
highway45
Moderator
Bastler mit Diplom
Beiträge: 6331
Registriert: 14.12.2004 CoCreate Modeling V20 + PE6
NotePad++
|
erstellt am: 29. Aug. 2008 11:21 <-- editieren / zitieren --> Unities abgeben: Nur für Ulf Selve
Das finde ich ja niedlich ! Kleiner Verbesserungsvorschlag:
Am Anfang würde ich
(delete_3d :all_at_top)
einbauen, dann muß man nicht extra auf löschen drücken.
Am Ende würde ich
(create_part :name "foobar")(delete_3d "/foobar")
einbauen, dann sind alle Buchstaben inaktiv geschaltet. Vielleicht könnte man anschließend noch Zufalls-Farbe.lsp laufen lassen...
(cher_farbe_aendern :cher_bgr "/B1")  Matthias [Diese Nachricht wurde von highway45 am 29. Aug. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
