| |
| 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: LayerFarbe eines Layers in mehreren Files ändern (1016 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 04. Mrz. 2013 14:54 <-- editieren / zitieren --> Unities abgeben:
Hallo ! Versuche ein einfaches scipt zu schreiben, dass mir die Farbe eines Layers in versch. Dateien ändert. Dazu habe ich erstmal eine Funktion, die mir die Layerfarbe ändert. (defun flx (laynam col /) (command "-layer" "c" col laynam "") ) die lade ich mit der Acad.lsp hoch und möchte nun eine Liste von Dateien öffnen und dann die Farbe ändern. Es scheitert erstmal daran, nicht zu wissen, wie ich eine mehrere Dateien öffnen kann. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 04. Mrz. 2013 15:06 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 04. Mrz. 2013 16:44 <-- editieren / zitieren --> Unities abgeben:
Aja, hatte mir das Tool nicht so genau angeschaut. Da sind zwar ein paar samples drauf. So richtig geschnallt habe ich es noch nicht: entspricht ; (semikolon) oder Leerzeile einem Enter oder beides ? ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 04. Mrz. 2013 16:56 <-- editieren / zitieren --> Unities abgeben:
keine Chance bei Umlauten oder gibt es da einen Trick ? Code:
-layer f M-FÖNSTERQSAVE
[edit]AlleinUnterhalter Code:
-layer f (strcat "M-F" (chr 246)"NSTER")QSAVE
[Diese Nachricht wurde von cadplayer am 04. Mrz. 2013 editiert.] [Diese Nachricht wurde von cadplayer am 04. Mrz. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 05. Mrz. 2013 08:47 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hi, bist zwar schon weitergekommen, aber den Hinweis auf das Einbinden eigener Funktionen wollte ich nochmal nachreichen. Das Skript könnte auch so aussehen:
Code: (load (findfile "flx.lsp")) (flx "Layername" Farbnummer)
Dadurch brauchst du dich von deinen Lisp-Funktionen nicht zu trennen. Umlaute habe ich nicht getestet. Gruß CADchup
------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 05. Mrz. 2013 12:18 <-- editieren / zitieren --> Unities abgeben:
Danke für den Hinweis, probier ich aus... Nochmal nachgehakt an der Stelle, wenn ich eine Liste von Layern zum beispiel frieren will. Ich finde es ziehmlich umständlich, das nach der Form zu tun
Code: -layer f "Layer1" f "Layer2" f "Layer3" QSAVE
Kann ich das nicht mit einer Liste ("layer1" "layer2" "layer3" ...) tun, die dann nacheinander die Layer friert.
Vermutlich muss ich dazu eine Lisp funktion schreiben oder geht es auch ohne ? [Diese Nachricht wurde von cadplayer am 05. Mrz. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 05. Mrz. 2013 12:34 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 05. Mrz. 2013 13:06 <-- editieren / zitieren --> Unities abgeben:
Rafiniert, dachte bisher script is stupid, finde so langsam gefallen daran, wenn der Bildschirm nur so flackert vom öffnen/schliessen der files... ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |