Wenn ich dein Posting richtig deute, dann:
SO einfach ist das nicht, du musst die Blockdefinitionen durchforsten
und falls du auf ein Hatch stösst, dann eben ändern.
Ist keine "Command" Skripterei:
der Block...
Befehl: (setq BLOCK-ELIST (entget(tBLOBJNAME "BLOCK" "MEINBLOCK")))
das 1. Objekt des Blockes...
Befehl: (setq BLOBJ-ELIST (entget(entnext(cdr(assoc -1 BLOCK-ELIST)))))
das 2. Objekte des Blockes <falls vorhanden>
Befehl: (setq BLOBJ-ELIST (entget(entnext(cdr(assoc -1 BLOBJ-ELIST)))))
das 3. Objekte des Blockes usw.
Befehl: (setq BLOBJ-ELIST (entget(entnext(cdr(assoc -1 BLOBJ-ELIST)))))
Im Fall das man eine Schraffur "findet" (= "HATCH" (cdr(assoc 0 BLOBJ-ELIST))) kann man dann so
den Layer ändern:
Befehl: (entmod (subst '(8 . "MEINLAYER")(assoc 8 BLOBJ-ELIST)BLOBJ-ELIST))
---
Es gibt hier auch Codestücke die du direkt kopieren kannst, ich mache
sowas nicht fertig (bin ja kein Fachmann) - hoffe du hast nun aber die
passenden Begriffe um zum Ziel zu kommen.
[Diese Nachricht wurde von cadffm am 10. Jul. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP