---

Hallo, ich bin neu hier und bitte um Hilfe für folgendes Problem:
Ich versende täglich Pläne an verschiedenste Leute und möchte meine aufwendig erstellten Blöcke vor dem Versand automatisiert zerlegen.
Leider kenne ich mich mit Lisp nicht aus, daher habe ich versucht über einen Button verschieden Befehle zu komponieren - funktioniert leider nicht ganz...
Der Button sollte folgendes durchführen:
1.) Alle Layouts löschen
2.) Alle Blöcke (Blockname) die mit z.B. xyz* beginnen in Ursprung zerlegen, Attribute in Text auflösen (auch wenn sie auf gesperrten, gefrorenen oder ausgeschalteten Layer liegen)
3.) Bereinigen
4.) Speichern unter-Box soll sich öffnen
Bei mir wird der Befehl je nach Zeichnung an verschiedenen stellen abgebrochen, es gibt ja auch keine Schnellauswahl über Befehlszeile oder?
Eine meine viele Varianten: ^C^C(delalllayouts"");-layer;au;*;;sp;*;fr;*;ei;xyz*;ta;xyz*;en;xyz*;;burst;alle;;ur;alle;;-layer;ei;*;ta;*;;-bereinig;al;;n;rg;sichals;
Für einen Profi sicher etwas umständlich ;-)
Vielleicht kann mir jemand weiterhelfen oder hat etwas ähnliches in Verwendung... Danke!

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

---

Hi und herzlich willkommen!

Die Schnellauswahl für die Befehlszeile ist in den Express Tools enthalten und heißt SSX.

Da dein Makro aber, wie du sagst, je nach Datei unterschiedlich abbricht, wirst du auf diese Weise möglicherweise zu keiner Lösung kommen.
Es müssen Fehler abgefangen und Objekte geprüft werden und das geht nur über eine Programmierung.

Gruß
CADchup

------------------
CADmaro.de

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

---

zu 1.

Code:

---

(defun c:Dellayout (/ )
(vl-load-com)
(vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
(vl-catch-all-apply 'vla-delete (list LAYOUT))
)
)

---

zu 2.
>iBurst<
muß dann aber angepaßt werden um nicht alle Blöcke zu bursten.

Code:

---

  (if (ssget "_:L" '((0 . "INSERT")))
    (progn
      (setq Undo (not (vla-StartUndoMark doc)))

---

durch

Code:

---

  (if (ssget "_:L" '((0 . "INSERT")(2 . "BLOCKNAME")))
    (progn
      (setq Undo (not (vla-StartUndoMark doc)))

---

ersetzen

Leider funktioniert das nicht bei dynamischen Blöcken. Weiß jemand wie man dynamische Blöcke über den Namen finden kann?

[Diese Nachricht wurde von xem am 28. Mrz. 2013 editiert.]

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

---

DANKE für die Antworten, ich werde das mal testen und berichten.

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