---

Moin,

die Suche zu der Frage brachte mir keine Treffer, denke aber, es gibt sowas; wahrscheinlich nicht an Bord, aber als Programmschnipsel oder auch als Tool:

Alle Blockelemente aller Blöcke einer Zeichnung auf layer 0 zu setzen???

Wenn ja, wäre super...

Joeycool

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

---

Such mal bei www.cadwiesel.de  nuke.lsp oder so .. proggen sollte aber auch kein  Problem darstellen

------------------
      - 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

---

... da gab es doch mal ein Block_kovert von Cadmium  
Das hilft Dir vielleicht weiter.

Gruß
Thomas

.uups, nee, das setzte ja "bloß" Farbe und Linientyp der Elemente auf "Vonlayer".  Sorry.

Thomas

[Diese Nachricht wurde von spider_dd am 07. Feb. 2012 editiert.]

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

---

Danke erstmal für die Tips,
auf den ersten Blick scheint nuke das ja zu machen...

aber es setzt ja gleichzeitig auch alle Farben usw. auf von block, das würde ich eigentlich lieber extra machen (über setbylayer), muss mal schauen, ob ich das mit meiner lispstümperei deaktiviert bekomme...

Joeycool

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

---

Suche auf cad.de (oder direkt im Forum54 und Forum145) nach "NUKE" , da hat
man einige Treffer die sich auch mit der Anpassung beschäftigen.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Stimmt, die cad.de Suche ist verdammt ergiebig,
aber könntest Du mir noch zur Eingrenzung Forum 54 und 145 decodieren, oder muss ich durchzählen ? 

Joeycool

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

---

54 = RuA
145 = Lisp

guckst Du URL-Zeile im browser 

Oder nutze google mit Einschränkung site:cad.de + sinnige Suchbegriffe, damit Du die CoCreate-Lisp-Abteilung nicht mit reinbekommst.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

ach , was solls :

(defun C:BLK-LAY0( / BLOCK ITEM)
  (vl-load-com)
  (vlax-for BLOCK(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (if (=(vla-get-ISLAYOUT BLOCK):vlax-false)
      (vlax-for ITEM BLOCK
        (vl-catch-all-apply
          'vla-put-layer (list ITEM "0")
        )
      ) 
    ) 
  )
  (vla-regen(vla-get-activedocument(vlax-get-acad-object))acAllViewports)
)

------------------
  - 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

---

vielleicht auch noch Xrefs ausschließen:
...
(= (vla-get-isxref BLOCK) :vlax-false)
...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

wow,

so viel können manchmal ein paar Zeilen Code helfen...

is ja irre, was mit ein paar Schnipseln so geht..

Tausend Dank sagt
Joeycool

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

---

Zitat:

---

Original erstellt von CADmium:
ach , was solls :

(defun C:BLK-LAY0( / BLOCK ITEM)
  (vl-load-com)
  (vlax-for BLOCK(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (if (=(vla-get-ISLAYOUT BLOCK):vlax-false)
      (vlax-for ITEM BLOCK
        (vl-catch-all-apply
           'vla-put-layer (list ITEM "0")
        )
      ) 
    ) 
  )
  (vla-regen(vla-get-activedocument(vlax-get-acad-object))acAllViewports)
)

---

Hallo,

könnte mir jemand auf die Schnelle in diesen Code eine Auswahl einbauen. Ich kann mir selber leider (noch) nicht helfen.

Vielen Dank schonmal.

Grüße
Simon

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