---

Servus

verwende Code zur Auswahl von Blöcken mit gleichen Namen den u.a Code, leider funktioniert der Code bei dynamischen Blöcken nicht mehr. Ich hab aber gesehen das bei EffectiveName der richtige Name drin steht, kann man diesen für den Filter verwenden und wenn ja wie.

Code:

---

;;-Auswahl Blocknahme--------------------------------------------------------
(defun c:sel_blk (/ OBJ AWS)
  (if(setq OBJ(car(entsel)))
    (progn     
      (setq AWS(ssget "_x" (vl-remove-if-not '(lambda(x)(member (car X) '( 2 )))  (entget OBJ))))
      (sssetfirst AWS AWS)
    )
  )
)

---

danke bernd

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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

---

Hallo Bernd,
mit:
(vla-get-effectivename (vlax-ename->vla-object OBJ))

müßtest du was anfangen können.

Aber prüf vorher ob es ein Block ist sonst gibts ne Fehlermeldung.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

z.B.

Code:

---

(defun C:BLOCKSELECTSIMILAR(/ OBJ NAME BLOCKDEF ITEM LISTE AWS)
  (if(and(setq OBJ(car(entsel"\nBlockreferenz wählen: ")))
        (wcmatch(strcase(cdr(assoc 0(entget OBJ))))"*INSERT")
        (setq OBJ(vlax-ename->vla-object OBJ))
        (or(and(vlax-property-available-p OBJ "EffectiveName")
                (setq NAME(strcase(vla-get-EffectiveName OBJ)))
            )   
            (setq NAME (strcase(vla-get-name OBJ)))
        )       
    )   
    (progn     
      (vlax-for BLOCKDEF (vla-get-blocks(vla-get-ActiveDocument(vlax-get-acad-object)))
        (if (=(vla-get-isxref BLOCKDEF):vlax-false)
          (vlax-for ITEM BLOCKDEF
            (if(and(member (strcase(vla-get-objectname  ITEM))
                          '("ACDBBLOCKREFERENCE" "ACDBMINSERTBLOCK")
                  )
                  (or(=(strcase(vla-get-name ITEM))(strcase NAME))
                      (and(vlax-property-available-p ITEM "EffectiveName")
                          (=(strcase(vla-get-EffectiveName ITEM))(strcase NAME))
                      )
                  ) 
              )
              (setq LISTE(cons ITEM LISTE))
            ) 
          )
        )
      )
      (if(>(length LISTE)0)
        (progn
          (setq AWS(ssadd))
          (mapcar '(lambda(X) (ssadd (vlax-vla-object->ename X) AWS)) LISTE)
          (sssetfirst AWS AWS)
        )
      )
    )
  )
)

---

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

---

danke CADmium funktioniert super

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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

---

Servus

Kann man das ganze so drehen das der dynamische Block mit dem Namen "PLT M010 Textfeld" gewählt wird?

( kriegs alleine net hin)

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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

---

Code:

---

(defun C:BLOCKSELECTSIMILAR_SP(/ OBJ NAME BLOCKDEF ITEM LISTE AWS)
  (if(and(setq NAME "PLT M010 Textfeld")
        (tblobjname "BLOCK" NAME)
    )   
    (progn     
      (vlax-for BLOCKDEF (vla-get-blocks(vla-get-ActiveDocument(vlax-get-acad-object)))
        (if (=(vla-get-isxref BLOCKDEF):vlax-false)
          (vlax-for ITEM BLOCKDEF
            (if(and(member (strcase(vla-get-objectname  ITEM))
                          '("ACDBBLOCKREFERENCE" "ACDBMINSERTBLOCK")
                  )
                  (or(=(strcase(vla-get-name ITEM))(strcase NAME))
                      (and(vlax-property-available-p ITEM "EffectiveName")
                          (=(strcase(vla-get-EffectiveName ITEM))(strcase NAME))
                      )
                  ) 
              )
              (setq LISTE(cons ITEM LISTE))
            ) 
          )
        )
      )
      (if(>(length LISTE)0)
        (progn
          (setq AWS(ssadd))
          (mapcar '(lambda(X) (ssadd (vlax-vla-object->ename X) AWS)) LISTE)
          (sssetfirst AWS AWS)
        )
      )
    )
  )
)

---

..alles klar ?

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

---

danke funkt einwandfrei

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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