---

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

---

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

---

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

---

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

---

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

---

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

---

Genau und dass funkioniert auf jedem Computer gleich.
Aber im Lisp eben nicht.

mfG
Peter

------------------
mfg
Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

 

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

---

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

---

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

---

PS:  Und die Erweiterung von der du sprichst - vielleicht wenn Du irgendwann mal viel Zeit hast...

Einen Versuch war es wert !

mfG
Peter

------------------
mfg
Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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