---

Hallo Experten,
habe bisher immer den Befehl (ssget "X" (list (cons 2 "Blockname"))) verwendet, um alle in der Zeichnung vorhanden Blöcke eines gewissen Namens zu erfassen.
Nun möchte ich aber neben den bisherigen statischen Blöcken auch dynamische Blöcke verwendet und mit dem ssget-Befehl fangen. Leider wird beim Ändern der dynamischen Blöcke der Blocknamen in der Gruppe 2 umbenannt, sodass ich sie nicht mehr zu fassen bekomme. Da steht dann z.B. (2 . "*U13").

Wie bekomme ich ein Selection-Set mit allen dynamischen Blöcken eines gewissen Namens?

Danke und viele Grüße
Daniel

------------------
Windows 10 - AutoCAD 2017

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

---

Hallo Daniel,
direkt in der SSGET-Funktion wüßte ich keine Möglichkeit, falsch ich wüßte es gerne, weiß es aber nicht. Ich lasse im Nachgang den Auswahlsatz in einer Schleife auf den EffectiveName prüfen.

Bei Zeichnungen mit sehr vielen Blöcken kann das dann aber schon dauern, vielleicht im ersten SSGET noch einen Layer als weiteren Filter einbauen, wenn möglich?

Code:

---

(defun c:test ( / AWS BLOCKNAME)
  (setq Blockname "MeinBlock")
  (if(and (setq aws (ssget "_X" (list (cons 0 "INSERT")(cons 2 "*"))))
          (setq aws (aws:Dyn aws Blockname))
          )
    aws)
  )
 
 

(defun aws:Dyn (aws Blockname / AWS1 N)
  (setq aws1 (ssadd))
  (setq n 0)
  (repeat (sslength aws)
    (if(wcmatch(strcase(vla-get-EffectiveName
                        (vlax-ename->vla-object (ssname aws n))))
          (strcase Blockname)
          )
        (ssadd(ssname aws n)aws1))
    (setq n (+ n 1)))
  (if (>(sslength aws1)0)
    aws1)
  )

---

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

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

Bosse_tools-Überblick

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

---

Zitat:

---

Original erstellt von joern bosse:
Bei Zeichnungen mit sehr vielen Blöcken kann das dann aber schon dauern, vielleicht im ersten SSGET noch einen Layer als weiteren Filter einbauen,

---

Da würde ich zunächst die Blockreferenzen ausschließen die auf keinen Fall in Frage kommen.

(setq aws (ssget "_X" (list (cons 0 "INSERT")(cons 2 "*"))))
(setq aws (ssget "_X" (list '(0 . "INSERT")(cons 2 (strcat "`*U*," Blockname)))))

So hat man nur noch Anordnungen und dynamische Varianten (+ die unveränderten Referenzen) des gesuchten Blockes in der Auswahl
zum prüfen auf den effektiven Blocknamen.

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

---

Hallo Leute,
ich danke euch für die hilfreiche Erklärung und werde versuchen, diese in meinem Programm einzubauen.

Viele Grüße
Daniel

------------------
Windows 10 - AutoCAD 2017

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