Textstil per LISP umbenennen, falls vorhanden (Autodesk/Lisp) - Lösung vorhanden!


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Textstil per LISP umbenennen, falls vorhanden (1392 / mal gelesen)
neo4matrix Mitglied Beiträge: 136 Registriert: 15.01.2008	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: 1968 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 Es heisst ja auch rename! mal das (/= nil nicht kommentiert ------------------ Gruß CADwiesel Besucht uns im CHAT Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 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: 21533 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: 136 Registriert: 15.01.2008	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: 136 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: 136 Registriert: 15.01.2008	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: 21533 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: 136 Registriert: 15.01.2008	erstellt am: 01. Feb. 2017 15:52 <-- editieren / zitieren --> Unities abgeben: Sehr cool! Das gefällt mir! Allerbesten Dank! ------------------ Welcome to the Real Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)