| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: farbe der blöcke ändern (1619 mal gelesen)
|
MechMex Mitglied
Beiträge: 337 Registriert: 25.07.2004
|
erstellt am: 13. Aug. 2004 14:50 <-- editieren / zitieren --> Unities abgeben:
hi zusammen! ich habe hier eine kleine lisp datei um einen dwg export von Inventor7 zu verbessern. mit welcher befehlszeile kann ich die farbe der blöcke steuern bzw. sie auflösen? (wie gesagt 0 ahnung von lisp) danke im voraus lg ------------------ !!! Ehem. Meex !!! [Diese Nachricht wurde von MechMex am 13. Aug. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 13. Aug. 2004 15:23 <-- editieren / zitieren --> Unities abgeben: Nur für MechMex
|
MechMex Mitglied
Beiträge: 337 Registriert: 25.07.2004
|
erstellt am: 13. Aug. 2004 15:31 <-- editieren / zitieren --> Unities abgeben:
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 13. Aug. 2004 15:34 <-- editieren / zitieren --> Unities abgeben: Nur für MechMex
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Aug. 2004 16:46 <-- editieren / zitieren --> Unities abgeben: Nur für MechMex
..guckst du hier .. das Tool set_by_layer von mir. und änderst folgende Funktion: (defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) 'ENAME) ; Parameter o.k. ? (progn (setq OBJEKTDATEN (entget OBJEKT)) ; Objektdaten auslesen (if (assoc 8 OBJEKTDATEN) (progn (if (=(strcase(cdr(assoc 0 OBJEKTDATEN))) "INSERT") ; Blockreferenzen auf "0" (setq OBJEKTDATEN(subst(cons 8 "0")(assoc 8 OBJEKTDATEN)OBJEKTDATEN)) ) (progn ;; *************** hier ändern, was du willst *************************************** ;; (OBJEKT_ALLGEMEIN_SET OBJEKT 7 ; Farbe<- Hier!! nil ; Layer nil ; Linientyp nil ; Linientypfaktor nil ) ; Linienstärke ;; *************** hier ändern, was du willst *************************************** ;; ) ) ) ) ) )
------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MechMex Mitglied
Beiträge: 337 Registriert: 25.07.2004
|
erstellt am: 16. Aug. 2004 08:17 <-- editieren / zitieren --> Unities abgeben:
hi cadmium! danke für deine antwort aber ich verstehe nur bahnhof. habe einen dwg export von inventor 7 angehängt und eine lisp datei habe die lisp datei ausgeführt und habe das problem das der text auf der .dwg in der mitte unten 3 farben hat (blau, grün, schwarz). da inventor den text als block exportiert brauche ich eine funktion wo ich die farbe des blockes umwandeln kann! ich weiß nicht ob ich den block auflösen muß oder ob es auch möglich ist die farbe so zu ändern. ich will eigendlich nur das der text eine farbe hat und nicht drei farben! danke im voraus lg ------------------ !!! Ehem. Meex !!! [Diese Nachricht wurde von MechMex am 16. Aug. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 16. Aug. 2004 08:24 <-- editieren / zitieren --> Unities abgeben: Nur für MechMex
|