---

hallo,

wie kann ich alle sichtbaren objekte einer zeichnnung herrausfiltern ?

------------------
MfG
Frank

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

---

momentan am Bildschirm sichtbar (-> also aktueller Zoombereich )
oder
mit Visibleflag sichtbar geschaltet
oder
ausgeschaltete Layer
oder
gefrorene Layer
...
diesbezüglich auch Objekte in Blockrefererenzen beachten  ???
..
leere TEXTE /MTEXTE /Attribute ?

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

---

z.b.

alle sichtbaren linien in einem ansichtsfenster

oder

alle sichtbaren linien im modellbereich

------------------
MfG
Frank

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

---

Hi,

schau mal in die Entwicklerhilfe nach SSGET. Die Funktion hat einen Haufen Möglichkeiten. Zuviele, um alle hier aufzulisten.

(ssget "_X" '((0 . "LINE")(410 . "Model")))

sammelt zum Beispiel alle Linien im Modellbereich ein.

Gruß
CADchup

------------------
CADmaro.de

[Diese Nachricht wurde von CADchup am 30. Jun. 2009 editiert.]

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

---

ssget kenne ich, aber wie bekomme ich z.b. alle linien, die gerade auf einem sichtbaren layer liegen ?

------------------
MfG
Frank

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

---

tja .. da mußt du erst eine Liste aller eingeschalteten Layer erstellen und diese Layernamen dann als Parameter für den GC 8 beim ssget mitgeben....

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

---

Beschäftige dich mit den Gruppencodes!
GC 8 definiert den Layer, also musst du  (8 . "DeinLayername") mit in die Liste packen.

Gruß
CADchup

------------------
CADmaro.de

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

---

und wie bekomme ich eine liste aller eingeschalteten layer ?

------------------
MfG
Frank

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

---

Vorschlag in ActiveX:

Code:

---

(vlax-for i
            (vla-get-layers
              (vla-get-Activedocument
                (vlax-get-acad-object)
              )
            )
  (if (= :vlax-true (vlax-get-property i 'LayerOn))
    (setq layer_list (cons (vla-get-name i) layer_list))
  )
)

---

------------------
CADmaro.de

[Diese Nachricht wurde von CADchup am 30. Jun. 2009 editiert.]

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

---

funktioniert super, aber wie kriege ich die layer herausgefilter, die in einem ansichtsfenster gefroren sind ?

------------------
MfG
Frank

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

---

hi,
ich werf mal "die Hilfe" in die Runde
ActiveX... Properties...

(vla-get-freeze item)
(vla-get-lock... noch hinterher

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

Diese Liste ist IMHO in den XDATEN des Ansichtsfensterobjekts gespeichert... mal ein Ansatz :

(if(and(setq VP (car (entsel "\nAnsichtsfenster wählen: ")))
      (setq DATA (entget VP'("ACAD")))
      (= (cdr (assoc 0 DATA)) "VIEWPORT")
      (setq L (cdr(car(cdr (assoc -3 DATA)))))
  )
  (vl-remove-if 'null (mapcar'(lambda(X)(if(=(car X)1003)(cdr X))) L))
)

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