toggle FILLMODE als lisp? (Autodesk/Rund um AutoCAD) - 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: toggle FILLMODE als lisp? (1265 mal gelesen)
nena23 Mitglied Montag bis Freitag, ganzen Tag lang Beiträge: 461 Registriert: 25.01.2008 win 7 pro 64bit, immer aktuell Acad Architecture 2013/2017, fast immer aktuell	erstellt am: 17. Feb. 2016 16:32 <-- editieren / zitieren --> Unities abgeben: Ich leide auch immer extrem unter der Nichtgreifbarkeit durch Fenster/Kreuzen von Objekten wenn darunter eine Solidschraff liegt. Nicht mal gesperrte Layer helfen. Permanent hat man die am Wickel (aber versuch mal ein MATCHPROP auf eine Solidschraff, da klickt man sich tot...) http://forum.cad.de/foren/ubb/Forum37/HTML/005074.shtml Bei dem Beitrag oben hat Runkelrübe mal den code zum toggeln von FILLMODE für ein Knöpfchen gemacht. Ich wollte das aber gerne als lisp und dann über Tastatur. (defun c:fm () (setvar "fillmode" (if (/= 1 (getvar "fillmode"))(+ (getvar "fillmode") 1)0));regen Dachte so gehts. Tuts aber nicht. Habe halt schwere Lisplegasthenie. Was fehlt/ist falsch? Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.	erstellt am: 17. Feb. 2016 16:36 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 (setvar "FILLMODE"(- 1 (getvar "FILLMODE"))) oder als BEFEHL (defun c:FILLMODESWITCH()(setvar "FILLMODE"(- 1 (getvar "FILLMODE")))) ------------------ Also ich finde Unities gut ... und andere sicher auch --------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 17. Feb. 2016 16:38 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 Zitat: (defun c:fm () (setvar "fillmode" (if (/= 1 (getvar "fillmode"))(+ (getvar "fillmode") 1)0));regen Was fehlt/ist falsch? [/i] Seit wann steht in Lisp irgendwann mal was "außerhalb einer Klammer"? (defun c:fm () (setvar "fillmode" (if (/= 1 (getvar "fillmode"))(+ (getvar "fillmode") 1)0)) (command "_.regen") (princ) ) ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
jupa Ehrenmitglied V.I.P. h.c. Ruheständler Beiträge: 6050 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023	erstellt am: 17. Feb. 2016 16:45 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 Probiers mal so: (defun c:fm () (setvar "fillmode" (if (/= 1 (getvar "fillmode")) (+ (getvar "fillmode") 1) 0 ) ) ;(command "_regenall") ) (wenn regen erforderlich, nimm das Semikolon weg) Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
nena23 Mitglied Montag bis Freitag, ganzen Tag lang Beiträge: 461 Registriert: 25.01.2008 win 7 pro 64bit, immer aktuell Acad Architecture 2013/2017, fast immer aktuell	erstellt am: 17. Feb. 2016 16:54 <-- editieren / zitieren --> Unities abgeben: Supi, funkt 1a! Danke. Habe jetzt den code von cadffm genommen. Gehen wahrscheinlich alle Aber ich musste eine Entscheidung treffen... Dirk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
spider_dd Mitglied Beiträge: 1111 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018	erstellt am: 17. Feb. 2016 16:58 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 ... oder noch kürzer, da "fillmode" nur 1 oder 0 sein kann (setvar "fillmode" (if (/= 1 (getvar "fillmode")) 1 0)) Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 17. Feb. 2016 16:59 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 Ich distanziere mich von dem Code, ich habe nur deine Zeile angepasst! Wenn man es schön haben will, dann so wie CADmium es zeigt, allerdings hat er das Regen im Anschluß rationalisiert, müsse also noch ergänzt werden. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
jupa Ehrenmitglied V.I.P. h.c. Ruheständler Beiträge: 6050 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023	erstellt am: 17. Feb. 2016 17:11 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 Zitat: Original erstellt von cadffm: Ich distanziere mich von dem Code, Warum? (Oder habe ich jetzt den Schuß nicht gehört?) Bei mir sehen 1/0-Toggles eigentlich immer so wie Thomas' Code aus. (Und oben habe ich mich auch nur auf die Reparatur des gegebenen Codes beschränkt) Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 17. Feb. 2016 17:16 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 Zitat: Original erstellt von jupa: Warum? Na eben weil er gaaanz furchtbar ist (und keiner hat dich gemeint!?) ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
jupa Ehrenmitglied V.I.P. h.c. Ruheständler Beiträge: 6050 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023	erstellt am: 17. Feb. 2016 17:22 <-- editieren / zitieren --> Unities abgeben: Nur für nena23 Zitat: Original erstellt von cadffm: Na eben weil er gaaanz furchtbar ist Jetzt nach dem 10ten Mal lesen merke ich erst, daß ich Deine Bemerkung völlig falsch interpretiert habe. Alles ist gut Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)