| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Layerstatus (2263 mal gelesen)
|
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005
|
erstellt am: 13. Nov. 2006 10:55 <-- editieren / zitieren --> Unities abgeben:
Hi ! Wenn ich folgenden Code ausführe: (defun c:LAYSTLUEFTSP() (if (=(getvar "USERS1") "LAYERSTAND WIEDERHERSTELLEN") (progn (command "-layer" "STATUS" "Wiederherstellen" "LÜFTUNG" "" "" "") (setvar "USERS1" "LAYERSTAND WIEDERHERSTELLEN") ) (progn (command "-layer" "Status" "Löschen" "Lüftung" "" "" "") (command "-layer" "STATUS" "SPEICHERN" "LÜFTUNG" "" "" "") (setvar "USERS1" "LAYERSTAND SPEICHERN") ) ) (graphscr) ) wird der Layerstatus "Lüftung" auf meinem Computer so gespeichert:
Neuen Namen für Layerstatus eingeben: LÜFTUNG Status Ein Ja Gefroren Ja SPerre Ja Plot Ja neue AFs frieren Ja Farbe Nein linienTyp Nein Linienstärke Nein plotSTil Ja
aber auf einem anderen Computer so:
Neuen Namen für Layerstatus eingeben: LÜFTUNG Status Ein Ja Gefroren Ja SPerre Ja Plot Ja neue AFs frieren Ja Farbe Ja linienTyp Ja Linienstärke Ja plotSTil Ja
Was ist der Grund dafür bzw. kann man im Code irgendwie einfügen, dass die Einstellungen immer wie auf meinem Computer gesetzt werden ? Im VBA funktioniert folgender Code (aber blöderweise nur wenn Layerstatus "Lüftung" bereits besteht):
Sub STATUS() Dim oLSM As AcadLayerStateManager ' Aufrufen des LayerStateManager-Objekts Set oLSM = ThisDrawing.Application. _ GetInterfaceObject("AutoCAD.AcadLayerStateManager.17") ' Verknüpfen der aktuellen Zeichnungsdatenbank mit LayerStateManager oLSM.SetDatabase ThisDrawing.Database oLSM.Delete "Lüftung" oLSM.Save "Lüftung", acLsFrozen + acLsLocked + acLsOn + acLsPlot + acLsPlotStyle + acLsNewViewport End Sub Aber VBA ist nicht so mein Ding, hätte es lieber in Lisp.
mfg Peter ------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 13. Nov. 2006 11:04 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner
weil am anderen Computer der Layerstatusmanager anders eingestellt ist und diese Einstellung in der Registry gespeichert wird. Du änderst in der LISP ja keine Einstellungen [Diese Nachricht wurde von cad4fun am 13. Nov. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005
|
erstellt am: 13. Nov. 2006 11:45 <-- editieren / zitieren --> Unities abgeben:
Hab ich dann irgendwelche Möglichkeiten, außer Registry zu ändern, was ich nicht kann bzw. will ? Tja dann wäre ja auch noch der VBA Code, der verfeinert werden müsste, und den dann bei den Kollegen einspielen, ist aber dann wieder eigene Problemstellung. Und die persönlichen Autocad Einstellungen werden dann ziemlich unübersichtlich. mfG Peter
------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 13. Nov. 2006 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner
geh doch mal den Dialog mit -layer durch. nach eingabe des namens für den zu speichernden layerstatus kannst Du nur die lokalen einstellungen von Ja auf Nein und umgekehrt umsetzen. wenn Du die jeweiligen lokalen einstellungen nicht kennst, haben umsetzungen in einer LISP keinen sinn. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005
|
erstellt am: 13. Nov. 2006 12:46 <-- editieren / zitieren --> Unities abgeben:
Hi cad4fun ! Zitat: Original erstellt von cad4fun: geh doch mal den Dialog mit -layer durch. nach eingabe des namens für den zu speichernden layerstatus kannst Du nur die lokalen einstellungen von Ja auf Nein und umgekehrt umsetzen.
Hab ich schon ausprobiert, dachte es gibt eine globale Sysvar, die die Ausgangseinstellung festlegt. Für mich nur unklar warum es in VBA geht. mfG Peter ------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 13. Nov. 2006 13:11 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner
ich habe keine Ahnung von VBA, aber deine Zeile oLSM.Save "Lüftung", acLsFrozen + acLsLocked + acLsOn + acLsPlot + acLsPlotStyle + acLsNewViewport interpretiere ich so, dass hier explizit die 6 Einstellungen Frieren, Ein usw. auf "Ein" gesetzt werden
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005
|
erstellt am: 13. Nov. 2006 13:17 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 13. Nov. 2006 13:39 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner
im vba-Code wird auch auf das Layermanagerobject zugegriffen. Portier dir den VBA-Code doch nach Lisp .. sollte nicht das Problem sein .. wenn ja, nochmal melden ------------------ - 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 |
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005
|
erstellt am: 13. Nov. 2006 13:45 <-- editieren / zitieren --> Unities abgeben:
Hi Thomas ! Zitat: Original erstellt von CADmium: Portier dir den VBA-Code doch nach Lisp
Ja, wenn das geht ist es ja supa ! Kannst Du das auf die Schnelle hinbringen ? mfG Peter ------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 13. Nov. 2006 13:50 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner
Zitat: Original erstellt von caddonner: Hi Thomas ! Ja, wenn das geht ist es ja supa ! Kannst Du das auf die Schnelle hinbringen ? mfG Peter
(defun SETLMAN(/ STM) (if(setq STM(vla-GetInterfaceObject (vlax-get-acad-object)"AutoCAD.AcadLayerStateManager.16")) (progn (vla-SETDATABASE STM (vla-get-database(vla-get-activedocument(vlax-get-acad-object)))) (vla-save STM "Lüftung" (+ acLsFrozen acLsLocked acLsOn acLsPlot acLsPlotStyle acLsNewViewport)) (vlax-release-object STM) ) ) ) so ... funktioniert, wenn "Lüftung" noch nicht existiert .. kann man so erweitern, das zunächst die Layerstände abgefragt werden, und dann Lüftung evtl. gelöscht, so daß die Funktion für beide Fälle funzt .. ach so, da ich 2004 hab hab ich die .16 genommen .. ------------------ - 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 |
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005
|
erstellt am: 13. Nov. 2006 13:55 <-- editieren / zitieren --> Unities abgeben:
Hi Thomas ! Werde das gleich mal zum Laufen bringen. Danke schon mal im Voraus. PS: Und die Erweiterung von der du sprichst - vielleicht wenn Du irgendwann mal viel Zeit hast... mfG Peter
------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 13. Nov. 2006 14:02 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner
Zitat: Original erstellt von caddonner:
PS: Und die Erweiterung von der du sprichst - vielleicht wenn Du irgendwann mal viel Zeit hast...
.. an irgenteinem Punkt hört die Hilfe auf und fängt die Dienstleistung an ...
------------------ - 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 |
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005
|
erstellt am: 13. Nov. 2006 14:04 <-- editieren / zitieren --> Unities abgeben:
|
caddonner Mitglied
Beiträge: 166 Registriert: 24.05.2005 Windows 10 64bit Autocad 2015 C.A.T.S. AutoCAD 2017
|
erstellt am: 13. Nov. 2006 15:25 <-- editieren / zitieren --> Unities abgeben:
Nochmals Hi Thomas ! Dann geb ich halt einfach das vorne dran: (if (=(getvar "USERS1") "LAYERSTAND WIEDERHERSTELLEN") (progn (command "-layer" "STATUS" "Wiederherstellen" "LÜFTUNG" "" "" "") (setvar "USERS1" "LAYERSTAND WIEDERHERSTELLEN") ) (progn (command "-layer" "Status" "Löschen" "Lüftung" "" "" "") (setvar "USERS1" "LAYERSTAND SPEICHERN") ) ) (graphscr) ) so dass deine Funktion für beide Fälle funzt... mfG Peter ------------------ mfg Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 13. Nov. 2006 15:34 <-- editieren / zitieren --> Unities abgeben: Nur für caddonner
Von hinten durch die Brust, aber geht .. na siehste .. nicht gleich immer "macht mir mal" schreien ------------------ - 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 |