---

Hallo Lispler,

ich suche nach einer Routine die mir einen Block (Blockname Plankopf), nur im aktuellen Layout sucht und einen bestimmten Attributwert (Attributname GEB_NR) ausgibt. Ich habe 8 Layouts, die jeweils den Block "Plankopf" enthalten.

Kann mir da jemand helfen?

Gruß Stefan

------------------
Danke Stefan

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

---

guck dir mal das an ...
.... um die Auswahl aufs aktuelle Layout zu begrenzen, die Zeile
(setq AUSWAHL (ssget "_x" (list '(0 . "INSERT")(cons 2 INSERTNAME))))
durch
(setq AUSWAHL (ssget "_x" (list '(0 . "INSERT")(cons 2 INSERTNAME)(cons 410 (getvar "CTAB")))))
ersetzen ...

und weil du ja nur ne Ausgabe willst :

(entmod(subst(cons 1 ATTRIBWERT)
              (assoc 1 OBJEKTDATEN)
               OBJEKTDATEN
        )
  )

durch (alert (cdr(assoc 1 OBJEKTDATEN)))

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

---

Hallo CADmium,

vielen Dank, genau das habe ich gesucht. Kannst Du mir auch hier weiter helfen?
Ich habe mir mit (setq....) eine Variable aus dem Attribut-Wert erzeugt und möchte nun den Namen des aktuellen Layouts in diese Variable umbenennen.

Gruß Stefan

------------------
Danke Stefan

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

---

(not(vl-catch-all-error-p
      (vl-catch-all-apply
        'vla-put-name
        (list(vla-get-activelayout
              (vla-get-activedocument
                (vlax-get-acad-object)
              )
            )
            "NEUERNAME"
        )
      )
    )
)

oder

(COMMAND "_.Layout" "_r" "" "NEUERNAME")

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

---

Hallo CADmium,

ach wie einfach. Danke für deine Hilfe.

Gruß Stefan

------------------
Danke Stefan

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