---

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

---

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

---

Danke dea,
dieses Tool ist vielleicht etwas komfortabler als "aflayer", o. ä..
Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

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

---

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

---

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

---

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

---

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

---

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