---

Hi,
Kann man einen abgespeicherten Objektwahlfilter in ein Macro einbauen?

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

---

Ich glaube nicht, aber man kann sich einen Filter über einen ssget Auswahlsatz auf ein Makro legen.

Was willst Du denn auswählen?

------------------
Gruß
CADwiesel

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

---

Sorry, ich weiß leider nicht was ein ssget Auswahlsatz ist.
Aber ich mache mir für immer wiederkehrende Befehlsfolgen Ikons.
In diesem Fall wollte ich ein Macro schreiben "Wähle alle Schraffuren und lege sie in der Zeichenreihenfolge nach unten"

Ines

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

---

_draworder;(ssget "_X" '((0 . "HATCH")));;u;

------------------
Gruß
CADwiesel

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

---

Danke

Wie lernt man denn sowas?
Im ernst, gibts gute Bücher, die einem das Programmieren beibringen.

Ines

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

---

Man sollte zu dieser Frage wohl mal 'ne FAQ aufmachen.
Bis es soweit ist kannst du hier mal ein bischen lesen.

------------------
Gruß
CADwiesel

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

---

Zitat:

---

Original erstellt von CADwiesel:
_draworder;(ssget "_X" '((0 . "HATCH")));;u;

---

Hallo CADwiesel,
kann man diesen Auswahlsatz auch erweitern?
"Wähle alle Schraffuren, Solids, Polylinien die breiter sind als 0
und lege sie in der Zeichenreihenfolge nach unten"

Hannes

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

---

Zitat:

---

Original erstellt von Hannes_G:
Hallo CADwiesel,
kann man diesen Auswahlsatz auch erweitern?
"Wähle alle Schraffuren, Solids, Polylinien die breiter sind als 0
und lege sie in der Zeichenreihenfolge nach unten"

Hannes

---

Sicher, guckst du In die Hilfe im VLisp-Editor unter dem Stichwort Befehlsreferenz und ssget

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

---

Hi,
die Auswahlbedingung um andere Objekttypen zu erweitern ist kein Problem:

Code:

---

(ssget "X"
      (list '(0 . "HATCH,SOLID,*POLYLINE")
            (cons 410 (getvar "ctab"))
      )
)

---

Aber um die Bedingung "Breite > 0" einzubringen ist IMHO 'ne Subroutine nötig, in etwa in der Art (ungetestet!):

Code:

---

(defun CAD:DE:SEL-SPECIAL (/ INDEX OBJ RETVAL SGET VL-OBJ)
  (if (setq SGET (ssget "X"
                        (list '(0 . "HATCH,SOLID,*POLYLINE")
                              (cons 410 (getvar "ctab"))
                        )
                )
      )
    (progn
      (setq RETVAL (ssadd)
            INDEX  0
      )
      (repeat (sslength SGET)
        (setq OBJ    (ssname SGET INDEX)
              VL-OBJ (vlax-ename->vla-object OBJ)
        )
        (if (wcmatch (strcase (vla-get-objectname VL-OBJ)) "*POLYLINE")
          (if (> (vla-get-constantwidth VL-OBJ) 0.0)
            (ssadd OBJ RETVAL)
          )
          (ssadd OBJ RETVAL)
        )

        (setq INDEX (1+ INDEX))
      )
    )
  )
  RETVAL
)

---

...

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 04. Mrz. 2005 editiert.]

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