---

Hallo Lisp-Gemeinde,

vielleicht kann mir hier jemand helfen.
Es geht um AutoCAD Architecture 2011.

Ich würde gerne eine kleine Routine programmieren, die alle Einfügungen eines bestimmten MV-Blocks (zweimal mit Ursprung auflöst.

Das Problem dabei ist, dass nach dem ersten Auflösen des MV-Blocks sich unbenannte Blöcke ergeben, die erst beim nächsten Auflösen zu den eigentlichen AutoCAD-Blöcken werden.

Nach dem ersten Auflösen habe ich sozusagen neue Objekte und mein Auswahlsatz stimmt nicht mehr. Aufgrund der unbeannten Blöcke "*U36..." kann ich auch die Objekte nicht erneut auswählen. Oder doch?

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Hallo Wilfried,

nur ganz kurz:
_explode
ssget "_P"
_explode

Hintergrund: Die durch das Explode entstandenen Objekte kannst du mit dem Auswahlsatz 'Vorher' ermitteln.

Grüße!
Holger

------------------
Holger Brischke
FREIE SCHULUNGSPLÄTZE -- C#.NET-Schulung im Mai 2013 Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Stimmt.

Irgendwas muss ich dann falsch gemacht haben...
Danke Dir

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Hallo Holger,

Also in der befehlszeile funktioniert es. Im Programm irgendwie nicht.
Schon das auswählen eines MV-Blocks und selectsimilar schlägt fehl.

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Hallo Wilfried,
ich bin zwar nicht Holger, aber ich könnte mir vorstellen, daß es folgendermaßen funktionieren müßte (ungetestet):

Code:

---

(defun MvExplode (aws / AWS1 M N)
  (setq n 0)
  (repeat (sslength aws)
    (command "_.explode" (ssname aws n))
    (setq aws1 (ssget "_P"))
    (if aws1
      (progn
        (setq m 0)
        (repeat (sslength aws1)
          (command "_.explode"(ssname aws m))
          (setq m (+ m 1)))))
    (setq n (+ n 1)))
  )

(defun c:test ( / )
  (princ "\nMV-Blöcke auswählen:")
  (MvExplode (ssget)))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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

---

Hallo Jörn,

danke für Dein Listing. Aber ich  möchte einen bestimmten MV-Block zweimal mit Ursprung auflösen, damit ich eine Blockdefinition habe, auf deren Attribute ich zugreifen kann.

Das habe ich bislang programmiert / zusammengeklöppelt.

(defun c:sele (/) ;sset)
  (if (/= (setq sset (ssget "_I")) nil)
    (progn
      (setq hnd (ssname sset 0))
    )
    (progn
      (setq hnd (entsel "\nWählen Sie den Raumstempel an: "))
      (setq hnd (car hnd))
      (setq hnd2 (entget hnd))
    )
  )
  (if (= (cdr (assoc 0 hnd2)) "AEC_MVBLOCK_REF")
    (progn
      (setq obj (cdr (assoc 0 (entget hnd))))
      (setq sset (ssget "_X" (list (cons 0 obj))))
      (if (> (sslength sset) 0)
(sssetfirst sset sset)
      )
      (command "_EXPLODE" sset "")
      (princ "\n1. Streich")
      (setq ss2 (ssget "_p"))
;;;      (command "_EXPLODE" ss2 "")
;;;      (princ "\n2. Streich")
    )
    (alert "Kein MV-Block gewählt. Programm wird beendet!")
  )
  (princ)
)

Das Problem ist wohl das erste "_EXPLODE". Es wird hier nur das erste Element des Auswahlsatzes "SSET" aufgelöst (Drum habe ich das 2. Ursprung in Semikolon gesetzt)

Verwende ich anstatt Explode testhalber "_ERASE" so werden die Objekte im Auswahlsatz gelöscht.
Komisch

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Hallo Wilfried,
kannst Du mal eine Zeichnung mit einem MV-Block posten???

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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

---

sele.dwg

Hallo Jörn,

anbei die Datei...

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Hallo Wilfried,
so hat bei mir funktioniert:

Code:

---

(defun c:sele ( / OBJ SSET) ;sset)
  (if (setq sset (ssget "_I"))
    (setq obj (ssname sset 0))
    (setq obj (car(entsel "\nWählen Sie den Raumstempel an: ")))
  )
  (if (and obj (=(cdr(assoc 0 (entget obj))) "AEC_MVBLOCK_REF"))
    (progn
      (command "_.explode" obj)
      (setq sset (ssget "_p"))
      (command "_.explode" (ssname sset 0))
      (setq sset (ssget "_p"))
      (command "_.explode" (ssname sset 0))
      )
    (alert "Kein MV-Block gewählt. Programm wird beendet!")
  )
  (princ)
)

---

Bei Dir ist der erste Fehler in folgender Zeile:
(setq obj (cdr (assoc 0 (entget hnd))))

Du versuchts einen Objektname (Gruppencode 0) als Objekt weiterzugeben.
Weiter habe ich dann nicht mehr geschaut. Probier es aus und Debugge Dich mal durch den Code durch:

http://www.bosse-engineering.com/Download/090501_VisualLISP-Editor.pdf

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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

---

Zitat:

---

Original erstellt von Wilfried Nelkel:
...Das Problem ist wohl das erste "_EXPLODE". Es wird hier nur das erste Element des Auswahlsatzes "SSET" aufgelöst...

---

Das ist leider in der Standardeinstellung in Lisp so. Der _EXPLODE Befehl reagiert bei der Lisp-Eingabe anders als in der Befehlszeile und löst nur ein Element auf. Um mit Lisp einen Auswahlsatz in einem Schritt zu zerlegen mußt Du SO vorgehen.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Waaaaaahnsinn. Da kann ich lange suchen und testen.
Super. 

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Jetzt muss ich doch nochmal was posten...

Folgendes Listing:

(defun c:sele (/) ;sset)
  (if (/= (setq sset (ssget "_I")) nil)
    (progn
      (setq hnd (ssname sset 0))
    )
    (progn
      (setq hnd (car (entsel "\nWählen Sie den Raumstempel an: ")))
    )
  )
;;;  (if (= (cdr (assoc 0 hnd)) "AEC_MVBLOCK_REF")
  (if (/= hnd nil)
    (progn
      (setq obj (cdr (assoc 0 (entget hnd))))
      (setq sset (ssget "_X" (list (cons 0 obj))))
      (if (> (sslength sset) 0)
(sssetfirst sset sset)
      )
      (setvar "qaflags" 1)
      (command "_explode" sset "")
      (setvar "qaflags" 0)
      (setq ss2 (ssget "_p"))
      (setvar "qaflags" 1)
      (command "_explode" ss2 "")
      (setvar "qaflags" 0)
    )
;;;(c:reatt)
    (alert "Kein MV-Block gewählt. Programm wird beendet!")
  )
  (princ)
)

Ich muss (so scheint es zumindest) nach dem ersten "EXPLODE" die Leertaste drücken, damit das zweite Explode korrekt ausgeführt wird.

Im Textfenster von AutoCAD sehe ich diese Meldungen:

Wählen Sie den Raumstempel an: <Auswahlsatz: 2637>
Unbekannter Befehl "SELE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "SELE". Drücken Sie F1-Taste für Hilfe.

Also irgendwie kann das doch nicht so schwer sein...

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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

---

Hallo Wilfried,
gestern war ich wohl auf einem falschen Dampfer.
Folgender Code müßte passen:

Code:

---

(defun c:sele ( / HND SS2 SSET) ;sset)
  (if (setq sset (ssget "_I"))
    (setq hnd (ssname sset 0))
    (setq hnd (car (entsel "\nWählen Sie den Raumstempel an: ")))
    )
;;;  (if (= (cdr (assoc 0 hnd)) "AEC_MVBLOCK_REF")
  (if hnd
    (progn
     
      (setq sset (ssget "_X" (list (assoc 0 (entget hnd)))))
      (if (> (sslength sset) 0)
        (progn
          (setvar "qaflags" 1)
          (command "_explode" sset "")
          (setvar "qaflags" 0)
          (setq ss2 (ssget "_p"))
          (setvar "qaflags" 1)
          (command "_explode" ss2 "")
          (setvar "qaflags" 0)))
    )
;;;(c:reatt)
    (alert "Kein MV-Block gewählt. Programm wird beendet!")
  )
  (princ)
)

---

Vom Prinzip habe ich nur die Zeile "(sssetfirst sset sset)" rausgenommen, weil Du dem Explode-Befehl doch den Auswahlsatz im Aufruf übergibst.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Koordinatenausgabe Youtube

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

---

Hy Jörn,

oft sieht man den Wald vor lauter Bäumen nicht.
Vielen herzlichen Dank, es funktioniert genau so wie ich es wollte.
Finde ich cool.

Danke und 10 U für Dich

------------------
Schöne Grüsse

Wilfried Nelkel
http://www.cad-nelkel.de
http://www.schulungshandbuch.de

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