---

Guten Tag

Ich habe Dank Hilfe aus diesem Forum (Lob, Lob...) ein Lisp welches bestimmte Objekte innerhalb aller Blöcke löscht (für Nachleser).

Jetzt wollte ich einfach dass das Lisp nur Blöcke auf dem Layer "XYZ" bearbeitet - ich kriegs aber nicht hin. Ich blick nicht durch das ganze VLAX-Zeugs durch.

Hier das Lisp ohne Layerberücksichtigung:

Code:

---

(defun C:MyDELALL (/ BLOCK)
  (vl-load-com)
  (vlax-for BLOCK (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (if (= (vla-get-isxref BLOCK) :vlax-false)
      (vlax-for ITEM BLOCK
(if (and (member (strcase (vla-get-objectname ITEM)) '("ACDBPOLYLINE" "ACDB2DPOLYLINE"))
(equal (distance (vlax-curve-getClosestPointTo ITEM '(0 0 0)) '(0 0 0))
0
0.000000001
) ;_ end of equal
    ) ;_ end of and
  (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list ITEM)))
) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of if
  ) ;_ end of vlax-for
  (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
) ;_ end of defun

---

Mein Versuch:

Code:

---

(vlax-for BLOCK (if (member (strcase (vla-get-layer BLOCK)) ("XYZ"))
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))[...]

---

Resultat: Fehlerhafter Argumenttyp: VLA-OBJECT nil 

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

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

---

der Layer des Blocks ist wohl weniger von Interesse, eher der Layer der Blockreferenz ... wenn du aber Referenzen eines Blockes auf verschiendenen Layern hast .... sollen da die Sachen in der blockdefinition trotzdem bearbeitet werden ? .....

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

---

Richtig. Es interessiert nur der Layer der Blockreferenz. Die Objekte im Block sind grössenteils richtigerweise auf Layer 0.

Also: Wie kann ich das Lisp anpassen, damit nur Blockreferenzen auf dem Layer "XYZ" bearbeitet werden?

[Diese Nachricht wurde von CADuceus am 18. Mai. 2011 editiert.]

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

---

*räusper*

Thema ist aber immer noch ungelöst.

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

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

---

*räusper* 

CADmiums Nachfrage:
>> wenn du aber Referenzen eines Blockes auf verschiendenen Layern hast .... sollen da die Sachen in der blockdefinition trotzdem bearbeitet werden ?

wurde von Dir mit
>> Wie kann ich das Lisp anpassen, damit nur Blockreferenzen auf dem Layer "XYZ" bearbeitet werden?

beantwortet.

Also ich persönlich bin verwirrt. Du nicht? 

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

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Zitat:

---

Original erstellt von CADuceus:
*räusper*

Thema ist aber immer noch ungelöst.

---

nee ... immer noch schlecht beschrieben ...

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

---

Also wenn das Programm dir Blockrefernenzen auf bestimmten Layern ändern soll, schalte die anderen Layer aus und kopiere die Blockreferenzen in eine neue Zeichnung. Dort wendest du dein/das Programm an. Ggf. musst du dann noch die Blockdefinition UMBENENNen, damit du sie in die Urspringszeichnung zurückkopieren kannst, da es jetzt unterschiedliche Darstellungen der ehemals einzigartigen Blockdefinition geben kann/wird.
Das ist auch der Grund, warum das Programm nicht einfach umgeschrieben werden kann (auf einige Layer), da die BlockDefinition nur 1x (für die ganze Zeichnung) geändert werden kann.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Das obige Lisp bearbeitet den Inhalt sämtlicher Blöcke.
Es sollte aber nur die Blöcke bearbeiten, welche mind. eine Blockreferenz auf dem Layer "XYZ" haben.

Auf die Bearbeitung soll dies keine Auswirkung haben, ich vermute dass ich nur den Auswahlsatz ändern muss.

Alternativ könnte ich auch damit leben, wenn das Lisp Blöcke mit Referenzen auf gesperrten Layern unangetastet liesse.

Das Verhalten soll "absolut" sein. D.h., eine einzige Blockreferenz die den obigen Kriterien entspricht (Layer = "XYZ" --> ja oder Layer gesperrt --> nein oder ) bestimmt ob der Block bearbeitet werden soll oder nicht.

Bitte fragt wenn das Problem immer noch unklar ist.

@Huebner (der schneller war): Das mit dem Umbenennen habe ich ausprobiert. Das Problem ist, das mir der Befehl zu lange dauert, da ich ihn auf per Skript auf mehrere hundert Blöcke anwenden muss. Deshalb das "absolute" Verhalten welche anhand einer Referenz-Eigenschaft die Entscheidung für den Block abnimmt.

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt!  

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

[Diese Nachricht wurde von CADuceus am 19. Mai. 2011 editiert.]

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