| |
| 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: Neuen Layer frieren (1610 mal gelesen)
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023/24 WIN 10
|
erstellt am: 19. Sep. 2003 18:46 <-- editieren / zitieren --> Unities abgeben:
Hallo Lispler, habe eine Lisp gefunden, das - so wie ich es verstehe- einen neuen Layer in allen Ansichtsfenstern friert, so dass man diesen nur in den Af tauen muss, in denen man den Layer wirklich braucht. Das läuft aber bei mir nicht (AC,ADT2004). Vielleicht kriegt Ihr's hin...:confused; Lothar =====BEGIN CODE HERE======= ;Creates a layer that is frozen in existing vports ;From the gang at CADalog...thanks folks! ; ; (defun c:crelayfrz (/ ) (While (/= layname "") (setq layname (Getstring "\nNew layername? <Enter to continue function> ")) ;get new layername (If (= laylist nil) (setq laylist "") ;set var laylist to "" instead of nill ) (setq laylist (strcat laylist "," layname)) ;add new layername to layerlist for freeze (INITGET "Yes No") (setq frzyesno (getKword (STRCAT "<Yes>/No: "))) (setq frzyesno (If (= frzyesno nil) (setq frzyesno "Yes") ) ;end if ) ;end setq (command "-layer" "make" layname "") );end while (If (= frzyesno yes)
;***START VIEWPORT LOOP HERE (command "vplayer" "Freeze" laylist) ;***END VIEWPORT LOOP HERE );end if );end function =======END CODE HERE=======
------------------ "Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dea Mitglied
Beiträge: 155 Registriert: 23.10.2002 ACAD 2006, ACAD 2007 ADT 2006 sp1
|
erstellt am: 22. Sep. 2003 08:27 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Hallo Lothar! Die englischen Befehle, wie sie hier im command verwendet werden, funktionieren neutral für alle Sprachversionen nur mir vorangestelltem _. Ausserdem habe ich das Programm sonst auch noch etwas geändert. Es legt neue Layer an bis eine Leereingabe erfolgt. Wenn am Schluß die Frage nach Freez Layer mit Yes beantwortet wird werden alle eben angelegten Layer in allen Ansichtsfenstern gefroren. mfg Dea (defun c:crelayfrz ( / layname laylist frzyesno) (setq layname (Getstring "\nNew layername? <Enter to continue function> ")) (While (/= layname "") (If (= laylist nil) (setq laylist layname) ;Der erste Layername wird wie er ist in die Liste aufgenommen (setq laylist (strcat laylist "," layname));alle anderen werden mit , getrennt angehängt ) (command "_-layer" "_make" layname "") (setq layname (Getstring "\nNew layername? <Enter to continue function> ")) ;get new layername )
(INITGET "Yes No") (setq frzyesno (getKword "Freez Layer? <Yes>/No: ")) (if (= frzyesno nil) (setq frzyesno "Yes")) (If (= (strcase frzyesno) "YES") (command "_vplayer" "_Freeze" laylist "_all" "") ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001
|
erstellt am: 22. Sep. 2003 10:04 <-- editieren / zitieren --> Unities abgeben:
|
Dea Mitglied
Beiträge: 155 Registriert: 23.10.2002 ACAD 2006, ACAD 2007 ADT 2006 sp1
|
erstellt am: 22. Sep. 2003 10:19 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Zitat: Original erstellt von Kramer24: Danke dea, dieses Tool ist vielleicht etwas komfortabler als "aflayer", o. ä.. Lothar
? Wenn Du Deine Layer immer neu anlegst und das auch noch im Layoutbereich mag das ja stimmen. Der Befehl "_vplayer" ist übrigens genau der von Dir angesprochene "aflayer". Ich finde es allerdings bequemer im Layout die schon vorhandenen Layer mit dem Befehl aflayer zu steuern. Was spricht dagegen beim Frieren auf Objekte wählen weiterzuschalten und danach mit der Option Wahl die Fensterrahmen zu wählen in denen der oder die betreffenden Layer gefroren werden soll? mfg Dea Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001
|
erstellt am: 22. Sep. 2003 10:52 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von Dea: ?Was spricht dagegen beim Frieren auf Objekte wählen weiterzuschalten und danach mit der Option Wahl die Fensterrahmen zu wählen in denen der oder die betreffenden Layer gefroren werden soll?
Es spricht gar nichts dagegen. Es kommt auf die Arbeitsweise an. Für manche ist es vielleicht einfacher gleich beim Anlegen der Layer die Steuerung in den mansfen festzulegen, um das dann später nicht zu vergessen. Ich persönlich arbeite auch mit "aflayer". Lothar ------------------ "Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Erwin Fortelny Mitglied Tech. Zeichner
Beiträge: 877 Registriert: 13.12.2001 -Firma: Lenovo S30 + 2x Acer B246HL, Win7 x64 Enterprise AutoCAD 2019 ELCAD 2020
|
erstellt am: 26. Sep. 2003 10:55 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Hallo Leute! Ich suchte schon so ein Tool in dieser Art (@Kramer24: Danke für den Tipp! ), aber so ganz ist es dies auch noch nicht! Es funktioniert ja nur auf einem Layout, ich bräuchte das Ganze für *mehrere* Layouts (ab 5 Layouts wird's fade beim Durchklicken und Routine starten ...)! Würde ja auch selber Hand anlegen, aber mir fällt im Moment keine Möglichkeit ein die Layouts durchzuschalten. Wenn da jemand einen Tipp für mich hätte - vielen Dank im Vorraus!!!
------------------ Servus, Erwin -- erwin.fortelny@gmx.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dea Mitglied
Beiträge: 155 Registriert: 23.10.2002 ACAD 2006, ACAD 2007 ADT 2006 sp1
|
erstellt am: 29. Sep. 2003 08:42 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Hallo Erwin! Es blinkt und blitzt zwar kurzfristig vor sich hin, wenn die Layouts aktiviert werden, aber bei mir hat es so funktioniert: (defun c:crelayfrz ( / layname laylist frzyesno aktctab) (setq layname (Getstring "\nNew layername? <Enter to continue function> ")) (While (/= layname "") (If (= laylist nil) (setq laylist layname) ;Der erste Layername wird wie er ist in die Liste aufgenommen (setq laylist (strcat laylist "," layname));alle anderen werden mit , getrennt angehängt ) (command "_-layer" "_make" layname "") (setq layname (Getstring "\nNew layername? <Enter to continue function> ")) ;get new layername ) (INITGET "Yes No") (setq frzyesno (getKword "Freez Layer? <Yes>/No: ")) (if (= frzyesno nil) (setq frzyesno "Yes")) (If (= (strcase frzyesno) "YES") (progn (setq aktctab (getvar "CTAB")) (mapcar '(lambda (layout) (setvar "CTAB" layout) (command "_vplayer" "_Freeze" laylist "_all" "") ) (layoutlist) ) (setvar "ctab" aktctab) ) ) ) Sicher gibt es auch eine Möglichkeit wie man ohne aktivieren der Layouts am Bildschirm auskommt aber die kann ich noch nicht.
mfg Dea Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Erwin Fortelny Mitglied Tech. Zeichner
Beiträge: 877 Registriert: 13.12.2001
|
erstellt am: 29. Sep. 2003 13:13 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Hallo! Zitat: Original erstellt von Dea: Es blinkt und blitzt zwar kurzfristig vor sich hin, wenn die Layouts aktiviert werden, aber bei mir hat es so funktioniert: [...]
Hey ... Wow ... Super, so funzt es!! Zitat: Original erstellt von Dea: Sicher gibt es auch eine Möglichkeit wie man ohne aktivieren der Layouts am Bildschirm auskommt aber die kann ich noch nicht.
Egal, hauptsache es funktioniert, egal wie! BTW, wenn ich nur den Befehl "Layoutlist" nicht übersehen hätte! ------------------ Servus, Erwin -- erwin.fortelny@gmx.at [Diese Nachricht wurde von Erwin Fortelny am 29. September 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dea Mitglied
Beiträge: 155 Registriert: 23.10.2002 ACAD 2006, ACAD 2007 ADT 2006 sp1
|
erstellt am: 29. Sep. 2003 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für Kramer24
Zitat: Original erstellt von Erwin Fortelny: wenn ich nur den Befehl "Layoutlist" nicht übersehen hätte!
Kleiner Trost: wenn ich nicht eine Variable so benennen hätte wollen wäre ich auch nicht draufgekommen. Dea Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |