| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Textstil per LISP umbenennen, falls vorhanden (1426 / mal gelesen)
|
neo4matrix Mitglied
Beiträge: 152 Registriert: 15.01.2008 HP™ z2 Tower G4 Workstation mit Intel® Core™ i9-9900K 8x 3.6 GHz-5.0 GHz 32 GB Arbeitsspeicher 1 TB HP Z Turbo PCIe® SSD NVIDIA® Quadro® P2200 mit 5 GB RAM HP™ 24" LPS LED TFT 16:10 ZR2440w. Windows 10 Pro, 64 Bit AutoCAD 2019 Design Suite Standard, SP1, 64 Bit ecscad 2019, v19.1.0.20, 64 Bit Microstation v8 2004, 32 Bit MicroStation CONNECT Edition Update 11 Microsoft Office 365, 32 Bit Microsoft Visio 2013, 32 Bit
|
erstellt am: 01. Feb. 2017 14:47 <-- editieren / zitieren --> Unities abgeben:
Hallo Gemeinde Ich möchte einen Textstil (Stilname1) per LISP umbenennen (in Stilname2). Aber nur, wenn dieser auch vorhanden ist: Mein Entwurf scheint aber nicht zu funktionieren: (if (/= nil (tblsearch "STYLE" Stilname1))(command "_-renanme" "t" "Stilname1" "Stilname2")) Weiss jemand rat? Besten Dank schon mal! mfg neo
------------------ Welcome to the Real Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 01. Feb. 2017 14:57 <-- editieren / zitieren --> Unities abgeben: Nur für neo4matrix
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 01. Feb. 2017 14:59 <-- editieren / zitieren --> Unities abgeben: Nur für neo4matrix
Du hast einen Tippfehler drin, lese noch mal genau den Befehlsnamen TIP: Du solltest nicht nur Prüfen ob ein Textstil IST da ist, sondern auch das sicher kein Textstil SOLL vorhanden ist, falls doch: Meldung ausgeben "kann nicht umbenannt werden". Wenn das Programm wächst, baust du anstatt der Meldung eine Funktion ein um alle Objekte des Textstiles IST auf SOLL zu ändern, danach den Textstil IST löschen.
------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 01. Feb. 2017 15:02 <-- editieren / zitieren --> Unities abgeben: Nur für neo4matrix
Zitat: Original erstellt von CADwiesel: Es heisst ja auch rename! mal das (/= nil nicht kommentiert
Ich kommentiere es mal:
Alles was nicht nil ist, ist wahr, also ist dieser Teil überflüssig (if (tblsearch "STYLE" Stilname1) (command "_.-RENAME" "_style" "Stilname1" "Stilname2") ) ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neo4matrix Mitglied
Beiträge: 152 Registriert: 15.01.2008 HP™ z2 Tower G4 Workstation mit Intel® Core™ i9-9900K 8x 3.6 GHz-5.0 GHz 32 GB Arbeitsspeicher 1 TB HP Z Turbo PCIe® SSD NVIDIA® Quadro® P2200 mit 5 GB RAM HP™ 24" LPS LED TFT 16:10 ZR2440w. Windows 10 Pro, 64 Bit AutoCAD 2019 Design Suite Standard, SP1, 64 Bit ecscad 2019, v19.1.0.20, 64 Bit Microstation v8 2004, 32 Bit MicroStation CONNECT Edition Update 11 Microsoft Office 365, 32 Bit Microsoft Visio 2013, 32 Bit
|
erstellt am: 01. Feb. 2017 15:10 <-- editieren / zitieren --> Unities abgeben:
UPS! Ja RENAME hab ich falsch geschrieben, aber daran lag es nicht. Es kommt folgender Fehler: Fehler: Fehlerhafter Argumenttyp: stringp nil Auch beim LISP von cadffm (if (tblsearch "STYLE" Stilname1)(command "_.-RENAME" "_style" "Stilname1" "Stilname2")) ; Fehler: Fehlerhafter Argumenttyp: stringp nil Obwohl ich den Textstil "Stilname1" erstellt habe zum testen... ------------------ Welcome to the Real Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neo4matrix Mitglied
Beiträge: 152 Registriert: 15.01.2008 HP™ z2 Tower G4 Workstation mit Intel® Core™ i9-9900K 8x 3.6 GHz-5.0 GHz 32 GB Arbeitsspeicher 1 TB HP Z Turbo PCIe® SSD NVIDIA® Quadro® P2200 mit 5 GB RAM HP™ 24" LPS LED TFT 16:10 ZR2440w. Windows 10 Pro, 64 Bit AutoCAD 2019 Design Suite Standard, SP1, 64 Bit ecscad 2019, v19.1.0.20, 64 Bit Microstation v8 2004, 32 Bit MicroStation CONNECT Edition Update 11 Microsoft Office 365, 32 Bit Microsoft Visio 2013, 32 Bit
|
erstellt am: 01. Feb. 2017 15:13 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von cadffm: TIP: Du solltest nicht nur Prüfen ob ein Textstil IST da ist, sondern auch das sicher kein Textstil SOLL vorhanden ist
Das stimmt natürlich! Ich weiss aber leider nicht, wie ich 2 Kriterien überprüfen kann, bevor ich ein command auslöse...
------------------ Welcome to the Real Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neo4matrix Mitglied
Beiträge: 152 Registriert: 15.01.2008 HP™ z2 Tower G4 Workstation mit Intel® Core™ i9-9900K 8x 3.6 GHz-5.0 GHz 32 GB Arbeitsspeicher 1 TB HP Z Turbo PCIe® SSD NVIDIA® Quadro® P2200 mit 5 GB RAM HP™ 24" LPS LED TFT 16:10 ZR2440w. Windows 10 Pro, 64 Bit AutoCAD 2019 Design Suite Standard, SP1, 64 Bit ecscad 2019, v19.1.0.20, 64 Bit Microstation v8 2004, 32 Bit MicroStation CONNECT Edition Update 11 Microsoft Office 365, 32 Bit Microsoft Visio 2013, 32 Bit
|
erstellt am: 01. Feb. 2017 15:18 <-- editieren / zitieren --> Unities abgeben:
Die fehlenden Gänsefüsschen waren das Problem! So klappt's: (if (tblsearch "STYLE" "Stilname1")(command "_.-RENAME" "_style" "Stilname1" "Stilname2")) BESTEN DANK für die rasche Hilfe
------------------ Welcome to the Real Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 01. Feb. 2017 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für neo4matrix
If prüft nur auf eine Bedingung, aber es gibt Funktionen um mehrere Ausdrücke zu einem zusammenzufassen PROGN AND OR usw. Code: (if (and (tblsearch "STYLE" "Stilname1") (not(tblsearch "STYLE" "Stilname2")) ) (command "_.-RENAME" "_style" "Stilname1" "Stilname2") ) ;---------------------------------------------------------------- (if (tblsearch "STYLE" "Stilname1") (if (not(tblsearch "STYLE" "Stilname2")) (command "_.-RENAME" "_style" "Stilname1" "Stilname2") (alert "Stilname2 bereits vorhanden") ) (princ "\nStilname1 nicht vorhanden") ) ;---------------------------------------------------------------- (and (tblsearch "STYLE" "Stilname1") (not(tblsearch "STYLE" "Stilname2")) (command "_.-RENAME" "_style" "Stilname1" "Stilname2") )
------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neo4matrix Mitglied
Beiträge: 152 Registriert: 15.01.2008 HP™ z2 Tower G4 Workstation mit Intel® Core™ i9-9900K 8x 3.6 GHz-5.0 GHz 32 GB Arbeitsspeicher 1 TB HP Z Turbo PCIe® SSD NVIDIA® Quadro® P2200 mit 5 GB RAM HP™ 24" LPS LED TFT 16:10 ZR2440w. Windows 10 Pro, 64 Bit AutoCAD 2019 Design Suite Standard, SP1, 64 Bit ecscad 2019, v19.1.0.20, 64 Bit Microstation v8 2004, 32 Bit MicroStation CONNECT Edition Update 11 Microsoft Office 365, 32 Bit Microsoft Visio 2013, 32 Bit
|
erstellt am: 01. Feb. 2017 15:52 <-- editieren / zitieren --> Unities abgeben:
|