---

Servus Zusammen,

ich habe abe öfters mit konvertierten Zeichnungen aus anderen CAD-Programmen zu tun, darin sind sehr viele verschachtelte Blöcke mit bis zu 7 Ebenen.
Um in ACAD besser damit arbeiten zu können muß ich diverse Ebenen mit Ursprung auflösen. Ich mache ein Fenster=> Ursprung =>Fenster =>Ursprung... bis alles kaputt ist dabei werden leider auch Bemaßungen und Polylinien zerstört.
Kennt jemand ein Lisp oder VBA mit dem man z.B. mehrere Blöcke wählen kann und dann diese Blöcke mit allen Unterblöcken auflöst so dass Bemaßungen und Polylinien ganz bleiben?

Danke und Gruß Wolfgang

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

---

Hallo Wolli,
man muss ja nicht für alles ein Lisp haben.
Wenn du die gewählten Objekte nach Blöcken filterst geht es auch

------------------
gruß
thomas

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

---

TOPantwort und ein U !

------------------
Gruß Sebastian , Ffm

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

---

Hallo Thomas,

da ich Lisp nicht beherrsche ist mir eine andere Lösung natürlich auch recht, nur habe ich mit Filter und anschließend Ursprung das Problem daß die Blöcke nur eine Ebene tief aufgelöst werden.
Ein Block kann weitere Blöcke enthalten aber auch Linien und Bemaßungen die Blöcke dann wieder weitere Blöcke...
Ich hab auch schon versucht das mit den Filtern hinter eine Schaltfläche zu packen aber den Befehl Filter kann man glaube ich auch nicht mit einem vorangestellten "-" ausführen oder?

Danke und Gruß Wolfgang

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

---

warte mal..

^C^C(ssget "x" '((0 . "insert")));

als Makro auf dein NEUES Button...
und er wählt dir alle Blöcke , nun
kannst du bei der Objektwahl "V" für vorher wählen...

@Thomas
PM gestorben, jetzt funkt es- habe heute riesige Problem
mit dem ganzen Rechner samt Software, zum Teufel...

------------------
Gruß Sebastian , Ffm

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

---

Geht doch auch mit Bordmitteln:
Datei -> Dienstprogramme -> Bereinigen.
"Blöcke" wählen, Haken bei "Verschachtelte Elemente bereinigen" und Bereinigen.

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

---

Hallo,
seit _refedit sollte es eigentlich kein Problem mehr mit verschachtelten Blöcken geben.

Gruß
Peter

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

---

@Sebastian,
Danke ich glaube das ist nahe dran an dem was ich brauche.
Dein Makro und dann manuell Ursprung und V und das ganze 5X hat dann alles aufgelöst allerdings auch Polylinien. Das wollte ich zusammen in der Schaltfläche ^C^C(ssget "x" '((0 . "insert")));_explode;v;;explode;v;;_explode;v;;
funkt aber nicht?

@CADchup,
Alle Blöcke in einer Zeichnung will ich nicht auflösen, etwas Struktur brauche ich schon, drum will ich mir geziehlt Blöcke Wählen die ich dann bis mit allen Unterblöcken auflöse aber eben nicht die Polylinien. Bereinigen + Verschachtelte Blöcke hat keine Blöcke aufgelöst.

@Peter,
Refedit ist gut, in ACAD-Zeichnungen komme ich auch gut damit zurecht, nur in konvertierten Zeichnungen sind die Blöcke zuviel verschachtelt so daß man auch mit refedit ncht schnell arbeiten kann, da möchte ich mir die Blockstrukur so umbauen daß ich vernünftig damit arbeiten kann.

Danke und Gruß Wolfgang

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

---

Schlaubi !
du mußt natürlich nach jedem explode den Knopf neu drücken,
damit er nur Blöcke in der Auswahl hat...aber eben nicht alle
Objekte die mal ein Block waren (erster AwS) !
-->deswegen funktioniert auch dein Makro nicht...das nimmt immer
alle Objekte des ursprünglichen Auswahlsatzes.

-aber Blöcke NUR bis in die erste ebnene in Ursprung setzen, da muß ein Lispler her...

------------------
Gruß Sebastian , Ffm

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

---

@Sebastian,

ich sehe eben den Sinn eines Makros darin nicht x-mal wo hin zu klicken und jedes mal ein neues Auswahlfenster zu machen.
Wenn das mit den Polylinien nicht so leicht geht, dann könnte ich auch erstmal darauf verzichten.
Schreib mir doch bitte das komplette Makro auf, ich schaffe es nicht Dein Beispiel in einem Makro 5x zu wiederholen.

Danke und Gruß Wolfgang

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

---

Ich kann dir da keine geniale Lösung bieten,
kann daran liegen das ich 1.) nicht der Makro-Man bin und
2. es nicht geht, MakroŽs haben eben Grenzen.

ein Lisp hat die Grenzen erst hinter dem Horizont...

------------------
Gruß Sebastian , Ffm

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

---

Hi,
versuch dies, löst ausschließlich Blöcke auf:

Code:

---

(defun C:XXPLODE (/ INDEX ONAME SGET WIE-OFT)
  (setq SGET (ssget "X" (list (cons 0 "INSERT")))) ;_ end setq
  (if (not SGET)
    (princ
      "\nKeine Blöcke in Zeichnung vorhanden, Funktionsende."
    ) ;_ end of princ
    (progn
      (initget 7)
      (setq WIE-OFT (getint "\nWieviele Ebenen explodieren?"))
      (repeat WIE-OFT
        (setq SGET  (ssget "X" (list (cons 0 "INSERT")))
              INDEX 0
        ) ;_ end setq
        (if SGET
          (progn
            (while (< INDEX (sslength SGET))
              (setq ONAME (ssname SGET INDEX)) ;_ end setq
              (command "_.explode" ONAME)
              (setq INDEX (1+ INDEX))
            ) ;_ end of while
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of repeat
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
)

---

Hoffe es hilft.

------------------
Ciao,
Marc

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

---

Hallo Marc,

Toll, Danke, P-Linien bleiben erhalten und die Abfrage nach der Anzahl der Ebenen ist auch nicht schlecht.
Ich will ja nicht unverschämt sein, aber ob man das ganze auf einen vom user gewählten Auswahlsatz beschränken kann.

ich hatte vor einiger Zeit mal mit einem Lisp angefangen, aber hatte es dann doch nicht hingebracht.
Schau doch mal rein ob man daraus was verwenden kann?
(defun c:sb()
  (setq awsind 0 Merker nil)
  (setq aws (ssget))
  (if aws (progn
    (setq merker (entlast))
    (repeat (sslength aws) Ž;Wiederhole für jedes Element im Auswahlsatz
      (setq elenam (ssname aws awsind)) ;Elementnamen im Auswahlsatz
      (setq eledat (entget elenam))    ;Elememtdaten des aktuellen Elements
      (setq eletyp (assoc 0 eledat)) ;Gibt Liste (0 . "Objekttyp" zurück
      (if (= "INSERT" (cdr eletyp)) ; Wenn Element eingefügter Block; dann Ursprung
(myBlexplode elenam)
      )
      (setq awsind (+ 1 awsind)) ; Index für Elemnt in Auswahlsatz hochzählen
    ) ; repeat zu
) ; Progn zu
    ) ; If zu
  ) ; Defun zu

(defun myBlexplode(actinsert / Merkerbl tmpEle) ; Actinsert beinhaltet den Objektnamen des Inserts
    (setq merkerBl (entlast)) ; Letztes Element vor Explode merken
    (command "_explode" elenam) ; Aufruf des Befehls Ursprung
    (setq tmpEle (entnext MerkerBl)) ; 1. Element des zerlegten Blocks holen
    (while (/= tmpEle nil)
      (setq tmpdat (entget tmpEle))    ;Elememtdaten des aktuellen Elements
      (setq tmptype (assoc 0 tmpdat)) ;Gibt Liste (0 . "Objekttyp" zurück
      (if (= "INSERT" (cdr tmptype)) ; Wenn Element eingefügter Block; dann Ursprung
(myBlexplode TmpEle)
      )
      (setq tmpEle (entnext tmpEle))
    ) ; while zu

) ; Defun zu 

Danke und Gruß Wolfgang

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

---

BlockExplode.zip

Kannst DU mit Makros umgehen?

Dann probier mal den kleinen "Quickhack" hier.
Das geht aber nur auf Blöcke los - aber einfach umzubasteln.  ;-)

Oder mach Deine AutoCAD Datei auf, gib in der Komandozeile VBALAD ein, wähl das angehängt Makro aus, dann noch ein VBAIDE, setz die Maus in den Quelltext und drück F5.

Viel Glück.

Sub Main()
    Dim AcadLayout As AcadLayout
    Dim AcadBlock As AcadBlockReference
    Dim sset As AcadSelectionSet: Dim FilterType(0) As Integer: Dim FilterData(0) As Variant
    Dim BlockDa As Boolean
   
    Do
        BlockDa = False
        On Error Resume Next    'ab hier Fehler ignorieren
            ThisDrawing.SelectionSets.Item("VB").Delete ' erst mal altes SelectionSet löschen - falls da
            Set sset = ThisDrawing.SelectionSets.Add("VB")
            FilterType(0) = 0  ' Element
            FilterData(0) = "INSERT"    'mit der Eigenschaft INSERT
            sset.Select 5, , , FilterType, FilterData  'Nu guck doch ma
        On Error GoTo 0    ' Ab hier Fehler nicht ignorieren
         
        For Each AcadBlock In sset    ' geh mal alles im SelectionSet durch
            If TypeName(AcadBlock) = "IAcadBlockReference" Then  ' Wenn es ein Block ist
                AcadBlock.Explode    ' Dann hau kräftig drauf, keine Angst, es fällt drunter was raus
                AcadBlock.Delete      ' werf es weg
                BlockDa = True      ' und merk Dir, daß das ein Block war und noch einer verschachtelt sein könnte
            End If
        Next AcadBlock
    Loop While BlockDa = True    ' Mach eine Schleife, bis keiner der dämlichen Blöcke mehr gefunden wurde
   
    ThisDrawing.Regen acAllViewports
    ThisDrawing.Regen acActiveViewport
    MsgBox "Blöcke bereinigen nicht vergessen!!!"  ' *tsts*, wer sollte das vergessen?
End Sub

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

---

Servus Erwin,

Danke, flutscht ganz gut,
ich hab jemand in der Firma der sich mit VB ganz gut auskennt, zusammen versuchen wir das VBA auf einen Auswahlsatz zu begrenzen.

Danke und Gruß Wolfgang

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

---

Hi,

hab das grad noch vor Feierabend raus geschossen (deswegen der etwas knappe Text) und sitz jetzt daheim, so daß ich keine Doku oder sowas hab...bei mir hatte es zumindest eine ordentliche Verschachtelungstiefe durchgearbeitet. Falls Du die Blöcke auch gleich bereinigen willst, hab ich in dem Makro noch eine Zeile rein und auskommentiert, die das z.B. macht.

Da ich da auch mit einem SelectionSet arbeite, das ich über einen Filter füttere, dürfte es nicht allzu schwer sein, statt dessen das Aktive SelectionSet (würde mich wundern, wenn es nicht so ähnlich heißt) ran zu ziehen. Viel Glück und Erfolg damit,

Erwin

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

---

Servus Erwin,

ich bin jetzt auch endlich Daheim,
ich glaube schon daß ich es jetzt Zusammen mit meinem Kollegen in VBA hinbekomme, oder ich baue auf dem Lisp von Marc oder den Anderen auf.
Danke an alle und noch einen schönen Feieraben.

Gruß Wolfgang

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