---

Hallo zusammen,
in mehreren Zeichnungen von Fremdfirmen sind Blöcke als Block im Block im Block im Block... erstellt.
Gibt es eine Möglichkeit alle diese zusammengesetzten Blockblöcke in Ihre Ursprünge zu zerlegen so das lediglich Linien dargestellt werden?

Vielen Dank schon mal. Was wäre ich ohne Forum?

------------------
Wer lesen kann ist im Vorteil 

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

---

Ursprung Ursprung Ursprung Ursprung

------------------
Gruß Stefan

  Nur Feiglinge speichern zwischen.

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

---

Hast du es schon mit "_explode" versucht?
Gruß, Bigggi

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

---

Hi,

Such mal mit einer Suchmaschine Deiner Wahl nach +verschachtelt +block +auflösen
Ein Treffer von vielen: http://ww3.cad.de/foren/ubb/Forum145/HTML/003351.shtml
Wie Du siehst, gibt es sowas schon, allerdings u.U. nicht kostenfrei.

-> Weitersuchen, bis was 4free auftaucht, selber schreiben mit Hilfe der gefundenen Beiträge, ein paar Euronen in die Hand nehmen und tool beauftragen.

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

---

Hi Stefan,
Ursprung, Ursprung, Ursprung... hab ich bisher immer so gemacht, such jedoch eine schnellere Möglichkeit. _explode hilft da leider auch nicht weiter.

------------------
Wer lesen kann ist im Vorteil 

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

---

ungetestet n Frühwerk von mir :

(defun c:Explode_2D_Blocks ( /  AUSWAHL OBJEKT INDEX MODUS OBJEKTDATEN BLOCKNAME
                                BLOCKDEF BLOCKELEMENT)   
  (initget "G A")
  (setq MODUS (getkword (strcat "\n<G>anze Zeichnung oder <A>uswahl: <G> ")))
  (if (not MODUS) (setq MODUS "G"))
  (if (= (strcase MODUS) "G")
  (setq AUSWAHL (ssget "X" '((0 . "INSERT"))))
  (setq AUSWAHL (ssget    '((0 . "INSERT"))))
  ) 
  (if AUSWAHL
    (progn
      (while (> (sslength AUSWAHL) 0 )
        (setq OBJEKT (entlast))
        (setq INDEX 0)       
        (repeat (sslength AUSWAHL)
          (if (=(cdr(assoc 0 (entget(ssname AUSWAHL INDEX)))) "INSERT")           
            (command "_.explode" (ssname AUSWAHL INDEX))           
          )                                                                           
          (setq INDEX(1+ INDEX))
        )
        (setq AUSWAHL(ssadd))
        (setq OBJEKT (entnext OBJEKT))
        (while OBJEKT         
          (if (=(cdr(assoc 0 (entget OBJEKT))) "INSERT")                       
            (setq AUSWAHL  (ssadd OBJEKT AUSWAHL))
          ) 
          (setq OBJEKT (entnext OBJEKT))
        )
      )   
      (princ "\r........ und Fertig\n") 
      (initget "J N")
      (setq MODUS (getkword (strcat "\nUnreferenzierte Blöcke bereinigen? <J>a / <N>ein: <J> ")))
      (if (not MODUS) (setq MODUS "J"))
      (if (= (strcase MODUS) "J")
        (repeat 6  (command "._purge" "_BL" "*" "_N"))
      )   
      (command "._regen")
    )
  )       
  (princ)
)

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