---

Ich habe das Problem, dass ich in einer Fremdzeichnung Blöcke auflösen
muss, um sie anpassen zu können. ch bekomme die Meldung, sie seien
mit meinfüg eingefügt und liessen sich nicht auflösen. Gibt es eine Möglichkeit oder ein Zusatzprogramm, damit diese Geometrie bearbeitet werden kann?

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

---

Hai

Blöcke, die mit meinfüg reingekolppt wurden, gönnen nicht aufgelöst werden.
Aber Du kannst ja einen neuen Block erstellen, und unter dem Namen des mit meinfüg eingefügten abspeichern. Du definierst den Block somit neu und er wird ausgetauscht.

Alles klar?

------------------
Gruß
CADwiesel

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

---

MINSERT-EXPLODE.VLX.txt

Proggi im Anhang wandelt dir "MINSERT-BLÖCKE" in "Normale Blockreferenzen". Deckungsgleiche Einfügungen im MINSERT-BLOCK werden ignoriert.

------------------
  - Thomas -
"Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 05. Okt. 2004 editiert.]

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

---

Ich erhalte nach mehrmaliger Benutzung des Tools
folgende Meldung:

Befehl: MINSERT-EXPLODE

- -----------------------------------------------------
- Toolname      : MINSERT-EXPLODE
- Beschreibung  : Wandelt einen MINSERTBLOCK in normale
                  Blockreferenzen
- Autor        : Thomas Krüger , Eberswalde
- -----------------------------------------------------

- Testphase abgelaufen -

Befehl:

WAS kann ich jetzt noch tun?

Gruß okhar

[Diese Nachricht wurde von okhar am 03. Apr. 2006 editiert.]

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

---

Naja - was kann man so tun wenn die Testphase von was abgelaufen ist und der Autor einem bekannt ist ?

Richtig - man könnte diesen kontaktieren und fragen was die uneingeschränkt lauffähige Version des Tools kostet.

Und wie findet man den Hersteller des Tools ?

Schau mal ein Posting über dem deinigen... Schreib ihm mal 'ne PM und schilder ihm dein "Dilemma"...

------------------
Grüsse

Thomas

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

---

Is' ja Wahnsinn so'ne schnelle Antwort

Also meine Chef's zahlen NICHTS !
"Denn sie wissen nicht, was sie tun..."

Aber ich bin gern bereit, für ein so praktisches
Tool meine Brieftasche zu öffnen.

Gruß okhar

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

---

ob das gescheit is? beim nächsten mal  fordern Dich deine chefs auf, doch selbst für einen schnelleren computer zu sorgen.
lG

PS: wenn sie nicht wissen, was sie tun, sind es bestenfalls Vorgesetzte und haben noch einen weiten weg zum chef vor sich.

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

---

  here we go, ...

Code:

---

(defun C:XMINSERTS
    (/        ent entdat    column_count
     row_count column_spacing    row_spacing
     m        n x0    y0      z0
     ax0       ay0 az0    x1      y1
     ax1       ay1 entdat0   entdat1   inspt
     olderr    xm_er getval
    )
  (setq olderr *error*)
  (defun xm_er (msg)
    (princ "\nFehler: ")
    (princ msg)
    (terpri)
    (if olderr
      (setq *error* olderr)
    )
    (setq olderr nil)
    (princ)
  )
  (setq *error* xm_er)
  (defun getval (n e)
    (cdr (assoc n e))
  )
  (prompt "\nMeineinfüg Block zur Explosion auswählen:")
  (setq ent (entsel))
  (if (null ent)
    (exit)
  )
  (setq entdat (entget (car ent)))
  (if (null (setq column_count (getval 70 entdat)))
    (progn
      (prompt "\nObjektauswahl ungültig !")
      (exit)
    )
  )
  (setq row_count (getval 71 entdat))
  (if (or (<= column_count 0) (<= row_count 0))
    (progn
      (prompt "\nObjektwahl ungültig !")
      (exit)
    )
  )
  (setq x0 (car (getval 10 entdat)))
  (setq y0 (cadr (getval 10 entdat)))
  (setq z0 (caddr (getval 10 entdat)))
  (if (null z0)
    (setq z0 0.0)
  )
  (setq column_spacing (getval 44 entdat))
  (setq row_spacing (getval 45 entdat))
  (setq entdat0 entdat)
  (setq entdat1 (subst (cons 70 0) (assoc 70 entdat0) entdat0))
  (setq entdat0 entdat1)
  (setq entdat1 (subst (cons 71 0) (assoc 71 entdat0) entdat0))
  (setq entdat0 entdat1)
  (setq entdat1 (subst (cons 44 0.0) (assoc 44 entdat0) entdat0))
  (setq entdat0 entdat1)
  (setq entdat1 (subst (cons 45 0.0) (assoc 45 entdat0) entdat0))
  (setq entdat entdat1)
  (setq ent (entlast))
  (setq m 0)
  (while (< m column_count)
    (setq n 0)
    (while (< n row_count)
      (setq entdat0 entdat)
      (setq x1 (+ x0 (* m column_spacing)))
      (setq y1 (+ y0 (* n row_spacing)))
      (setq inspt (list x1 y1 z0))
      (setq entdat1 (subst (cons 10 inspt) (assoc 10 entdat0) entdat0))
      (if (null (entmake entdat1))
(progn
  (prompt "\nFehler beim Erstellen des Objektes !")
  (print entdat1)
  (exit)
)
      )
      (if (= (getval 66 entdat) 1)
(progn
  (setq entdat0 entdat)
  (while (/= (getval 0 entdat0) "SEQEND")
    (setq entdat0 (entget (entnext (getval -1 entdat0))))
    (if (= (getval 0 entdat0) "ATTRIB")
      (progn
;; set variables
(setq ax0 (car (getval 10 entdat0)))
(setq ay0 (cadr (getval 10 entdat0)))
(setq az0 (caddr (getval 10 entdat0)))
(if (null az0)
  (setq az0 0.0)
)
(setq ax1 (+ ax0 (* m column_spacing)))
(setq ay1 (+ ay0 (* n row_spacing)))
(setq inspt (list ax1 ay1 az0))
(setq entdat1
       (subst
(cons 10 inspt)
(assoc 10 entdat0)
entdat0
       )
)
      )
      (setq entdat1 entdat0)
    )
    (if (null (entmake entdat1))
      (progn
(prompt "\nFehler bei Erstellung der Objekte !")
(print entdat1)
(exit)
      )
    )
  )
)
      )
      (setq n (1+ n))
    )
    (setq m (1+ m))
  )
  (entdel (getval -1 entdat))
  (while (setq ent (entnext ent))
    (redraw ent)
  )
  (if olderr
    (setq *error* olderr)
  )
  (princ)
)

---

------------------
    MfG Proxy

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

---

vorher.jpg nachher.jpg

Vielen Dank Proxy,

allerdings hat diese Routine einen kleinen Schöhnheitsfehler.
Wenn Minsert-Blöcke gedreht oder gespiegelt wurden, geht das
alles beim Auflösen mit Deiner Routine verloren.
Siehe Bilder.
Trotzdem vielen Dank.

Gruß okhar

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

---

Okhar,

es gibt noch ein anderes Tool im www ("XM.lsp"). Auch hier werden gedrehte meinfüg verdreht. In Deiner Situation würde ich alle meinfüg in den ursprung setzen und die versprungenen Blockref. händisch wieder hinschieben, und dann nie wieder den Befehl "_minsert" benutzen. Lieber "_array" oder multiples kopieren, ...

Lothar

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