---

guten morgen,

hab eine (hoffentlich) kleine frage. kann ich eigenschaften in einem ansichtsfenster (z. b. welche layer gefroren sind)in ander, schon bestehende, ansichtsfenster übertragen (wie z. b. der befehl eigenschaften anpassen auf objekte funktioniert [der "pinsel"])?
hab eine Zeichnung mit mehreren layouts und vielen versch. ansichtsfenstern erstellt und hab jetzt bemerkt, dass ich einiges nicht anzeigen will.
arbeite mit 2002

higgo

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

---

Hallo Higgo,

meines Wissens nach kannst du ein Ansichtsfenster kopieren und somit die Eigenschaften mitnehmen. Pinselmäßig weiß ich nichts...

Grüße von L. Kramer

------------------
Kramer

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

---

hallo kramer,

danke, dass ist mir wohl bekannt. aber wie gesagt hab ich eigentlich alles fertig und will nur div. layer ausblenden.

higgo

------------------
AutoCAD 2002
ADT 3.3

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

---

Hallo Higgo,
den Layermanager (lman) aus den Expresstools kannst du dafür nutzen!
-im Gegensatz zu dem Save&Restore aus dem Acad Layereigenschaftsmanager übernimmt der Manager aus Express die Sichtbarkeitseinstellungen der AFenster auch mit...!!!!!!!!!!!!

------------------
Gruß Sebastian

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

---

Versuch's mal hiermit (quick & dirty):

(defun c:layer-pinsel( / layers target)
  (setq layers
    (vl-remove-if
      (function
        (lambda(pair / )(/= 341(car pair)))
      )
      (entget(car(entsel"\nQuelle wählen: ")))
    )
  )
  (while(setq target(car(entsel"\nZiel wählen: ")))
    (command"_vplayer""_th""*"layer"")
    (foreach layer layers
      (print(cdr(assoc 2(entget(cdr layer)))))
      (command"_vplayer""_fr"(cdr(assoc 2(entget(cdr layer))))"_s"target"""")
    )
  )
)

Gruss, Axel

------------------
http://www.tutorial.autolisp.info

http://www.advanced.autolisp.info

http://www.activex.autolisp.info

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

---

Habe es mal probiert-
Der Ablauf funkt nicht so ganz....

Befehl: LAYER-PINSEL

Quelle wählen:
Ziel wählen: _vplayer Option eingeben
[?/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]: _th
Einen oder mehrere zu tauende Layernamen eingeben: *
Option eingeben [ALle/Wahl/AKtuell] <AKtuell>: Option eingeben
[?/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]:
Befehl:
Ziel wählen: _vplayer Option eingeben
[?/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]: _th
Einen oder mehrere zu tauende Layernamen eingeben: *
Option eingeben [ALle/Wahl/AKtuell] <AKtuell>: Option eingeben
[?/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]:
Befehl:
Ziel wählen:
nil

------------------
Gruß Sebastian

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

---

@axel und sebastian,

danke für die mühe. beide lösungen in kombination helfen mir schon recht gut weiter.

higgo

------------------
AutoCAD 2002
ADT 3.3

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

---

Korrektur:

(defun c:layer-pinsel( / layers target)
  (setq layers
    (vl-remove-if
      (function
        (lambda(pair / )(/= 341(car pair)))
      )
      (entget(car(entsel"\nQuelle wählen: ")))
    )
  )
  (while(setq target(car(entsel"\nZiel wählen: ")))
    (command"_vplayer""_th""*""_s"target"""")
    (foreach layer layers
      (print(cdr(assoc 2(entget(cdr layer)))))
      (command"_vplayer""_fr"(cdr(assoc 2(entget(cdr layer))))"_s"target"""")
    )
  )
)

------------------
http://www.tutorial.autolisp.info

http://www.advanced.autolisp.info

http://www.activex.autolisp.info

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

---

Hallo Axel Mapcar,

ich habe noch mal Dein Lisp "Layerpinsel" ausgegraben. Läuft (leider)nur bei rechteckigen Ansichtsfenstern, oder???

Grüße von Lothar

------------------
Lothar Kramer

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

---

nein: es übergibt die Eigenschaften an
      jegliche Art von Mansfen wieder.

-Kreise

-3,4,recht,und mehreckige Ansichtsfenster

klappt alles.

:Layer gesperrt ???

------------------
  Gruß Sebastian ,FFM

[Diese Nachricht wurde von cadffm am 10. Oktober 2002 editiert.]

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

---

layerpinsel.zip

Hallo Sebastian,

ich habe mal eine dwg angehängt.
Bei mir läuft's nur in eine Richtung: Layer anknipsen geht,
ausknipsen nicht...

Gruß Lothar

------------------
Lothar Kramer

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

---

Du hast Recht, und zwar hat er das Problem wenn er VON einem
solchen Afenster die Eigenschaften nehmen muß.
ich seh mal nach...

------------------
Gruß Sebastian ,FFM

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

---

Nja da muß wohl der Fachmann ran (also nicht ich)-
vielleicht melder er oder jmd anders sich ja noch.

Ich kenne das Problem aber die Lösung muß wohl jmd anders bringen..

------------------
Gruß Sebastian ,FFM

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

---

Servus

Hat wer das PRog schon auf AC2004 angepasst bei mir läuftŽs nicht.
Nach wahl des ZielŽs arbeitet es, nur wird kein LAyer ein oder ausgeschalten.

Da AF ist nicht zugeschnitten.

-----------------------------------------------------------------
Befehl:
LAYER-PINSEL
Quelle wählen:
Ziel wählen: _vplayer Option eingeben
[?/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]: _th
Einen oder mehrere zu tauende Layernamen eingeben: *
Option eingeben [ALle/Wahl/AKtuell] <AKtuell>: Option eingeben
[?/Frieren/Tauen/Rücksetzen/Neufrier/Afsvorg]:
Befehl:
Ziel wählen: *Abbruch*
; Fehler: Funktion abgebrochen

Befehl:
-----------------------------------------------------------------

------------------
Same shit, different DAU. DAU Jones

  Bernd P.     

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

---

Hallo Bernd,

vielleicht hilft Dir da weiter: http://ww3.cad.de/foren/ubb/Forum54/HTML/007320.shtml

Gruß Bernd

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