---

Hi Leute,

ich suche jetzt seit 2 tagen nach einer lösung im web aber komme einfach nicht auf die lösung. deswegen wende ich mich jetzt doch an euch und hoffe auf hilfe.
ich habe gruppenfilter erstellt, um layer in verschiedenen gruppen zu unterteilen.
meine frage nun, wie kann ich per lisp die namen auslesen bzw den gewünschten gruppenfilter aktiv setzen? ich bin schon soweit gekommen die dictionary auszulesen aber irgendwie finde ich doch nicht meinen gruppenfilter namen und weiß leider auch nicht wie ich ihn ändern kann.
hoffe jemand kann mir paar infos geben...

mfg blue

[Diese Nachricht wurde von CADblue am 10. Apr. 2013 editiert.]

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

---

Da du ja keinen Code mit gepostet hast , gibt's wohl auch noch keinen 

naja.. egal .... mal ein Schnipsel für dir Richtung :

(defun LAYGROUPFILTER( / OBJ DICT ITEM E D N LISTE)
(if(and(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
      (=(vla-get-hasextensiondictionary OBJ):vlax-true)
      (setq OBJ(vla-GetExtensionDictionary OBJ))
      (not(vl-catch-all-error-p
            (setq DICT(vl-catch-all-apply 'vla-item (list OBJ "AcLyDictionary")))
          )
      )
  ) 
  (vlax-for ITEM DICT
    (if(and(setq E(vlax-vla-object->ename ITEM))
          (setq D(entget E))
          (=(type(cdr(assoc 1 D)))'STR)
          (=(strcase(cdr(assoc 1 D)))"ACLYLAYERGROUP")
          (=(type(setq N(cdr(assoc 300 D))))'STR)
      )     
      (setq LISTE(cons(list N ITEM)LISTE))
    )
  )
)
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

also so weit bin ich selber gekommen:

(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
(setq OBJ2(vla-GetExtensionDictionary OBJ))
(setq E(vlax-vla-object->ename OBJ2))
(setq D(entget E))

Rückgabe:
((-1 . <Objektname: 7c212550> ) (0 . "DICTIONARY") (330 . <Objektname:
7c20ac10> ) (5 . "1EA") (100 . "AcDbDictionary") (280 . 1) (281 . 1) (3 .
"ACAD_LAYERFILTERS") (360 . <Objektname: 7be09588> ) (3 . "ACAD_LAYERSTATES")
(360 . <Objektname: 7c212558> ) (3 . "ACLYDICTIONARY") (360 . <Objektname:
7be09580> ))

ich nehme mal an das im OBJ eine liste mehrerer objekte hinterlegt ist die dann mit vlax-for ITEM DICT durchsucht wird. gibts da auch ne manuelle weise diese liste abzuarbeiten also so was wie cdr oder nth?

außerdem muss DICT gesetzt werden oder was für eine rolle spielt die variable in diesem fall?

PS: danke cadmy dein schnipsel funktioniert soweit, würd nur gern wissen was dahinter steckt...

mfg blue

[Diese Nachricht wurde von CADblue am 10. Apr. 2013 editiert.]

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

---

Der Code ermittlt die LAYERCollektion des aktuellen Objekts , davon das Erweiterte Dictionarie , welches nach dem dictionary "AcLyDictionary" durchsucht wird. Wird dieses gefunden, werden alle Objekte desselben durchlaufen , gegeuckt, ob diese XRECORDS mit dem Schlüssel "ACLYLAYERGROUP" sind und von denen dann der Name ermittelt..

Du kannst auch dictsearch verwenden .... und dann durchlaufen des Dicts bis (=(car X)3) , (cdr (360 . ...)) ist dann der Xrecord .. auf den wieder ein entget usw.....  Den Code klöppel ich dir jetzt aber nicht 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

OK so weit so gut, habs so einigermaßen hinbekommen :P jetzt nur noch die frage wo ich diesen gruppenfilter aktuell setzen kann.
hier unten mal die rückgabe bei allen layern und beim gruppenfilter "testing". so wies aussieht is da nur der GC (290 . 1). hab auch schon versucht den mit append in die liste einzufügen und ihn entmod(ed) leider kein erfolg, wär ja auch zu einfach gewesen :P

Gruppenfilter ALLE:
((-1 . <Objektname: 7be09638> ) (0 . "XRECORD") (5 . "149EF") (102 .
"{ACAD_REACTORS") (330 . <Objektname: 7be09628> ) (102 . "}") (330 .
<Objektname: 7be09628> ) (100 . "AcDbXrecord") (280 . 1) (1 . "AcLyLayerGroup")
(90 . 1) (300 . "testing") (330 . <Objektname: 7c211b60> ) (330 . <Objektname:
7c211b08> ))

Gruppenfilter TESTING:
((-1 . <Objektname: 7be09620> ) (0 . "XRECORD") (5 . "149EC") (102 .
"{ACAD_REACTORS") (330 . <Objektname: 7be09610> ) (102 . "}") (330 .
<Objektname: 7be09610> ) (100 . "AcDbXrecord") (280 . 1) (290 . 1) (1 .
"AcLyLayerGroup") (90 . 1) (300 . "testing") (330 . <Objektname: 7c211b60> )
(330 . <Objektname: 7c211b08> ))

wo kann ich den jetzt also aktiv schalten?

mfg blue

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