---

Hallo,

ich habe es mir angewöhnt, Attribute in Schriftköpfen global über den Filter und die Eigenschaften auszufüllen.
http://ww3.cad.de/foren/ubb/Forum54/HTML/032034.shtml#000015

Ich würde das gerne etwas automatisieren (einen Schritt weiter als die benannten Filter im Dialogfeld), und zwar dahingehend, dass ich ein Makro/Lisp/Aktionsmakro aufrufe, in dem automatisch der entsprechende benannte Filter (der in der Vorlagedatei enthalten ist) aufgerufen wird und alle Blöcke des Namens ausgewählt werden. Leider gibtŽs den Filter nur als Dialogfeld, somit krieg ich wohl kein Makro hin, und auch der Aktionsrecorder will dann nicht. GibtŽs eine andere Möglichkeit oder hat schon jemand da etwas vorbereitet? 

Ziel wäre es, mit einem Klick auf den Befehl alle Schriftkopfblöcke auszuwählen, danach nur noch mit der Maus auf Eigenschaftspalette zum Ausfüllen der Attribute....

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

---

Zitat:

---

"Leider gibtŽs den Filter nur als Dialogfeld, somit krieg ich wohl kein Makro hin, und auch der Aktionsrecorder will dann nicht. GibtŽs eine andere Möglichkeit oder hat schon jemand da etwas vorbereitet?"

---

Richtig, das geht nur mit "Programmierung", dabei wäre es natürlich am elegantesten einmal Geld in die
Hand zu nehmen (oder Zeit und es selbst umsetzen), da hat man dann bis zum Batchlauf alle Möglichkeiten.
Samt Dateinamenänderungen, Layoutnamen etc.

Code:

---

"Ziel wäre es, mit einem Klick auf den Befehl alle Schriftkopfblöcke auszuwählen, danach nur noch mit der Maus auf Eigenschaftspalette zum Ausfüllen der Attribute...."

---

Diese Minimal-Anforderung bekommst du noch mit Standardmitteln hin, denn die Expresstools bieten eine
Befehlszeilenversion für die Objektwahl über Lisp an:

Befehl SSX

Befehl: ssx

Startet...
Type "ssx" at a Command: prompt or
(ssx) at any object selection prompt.
Select object <None>:

Enter filter option [Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector]: B

>>Enter block name to add <RETURN to remove>: MeinBlock

Current filter: ((2 . "MeinBlock"))
Enter filter option [Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector]:

3 found.

Befehl:

Wenn der Befehl PSELECT geladen ist (geschieht mit öffnen der Eigenschaftenpalette), dann kann man darauf zurückgreifen.

Befehl: _pselect

Objekte wählen: _p
3 gefunden

Als Lispeinzeiler würde es so aussehen:
(sssetfirst nil (ssget "_X" '((0 . "INSERT")(2 . "MeinBlock"))))

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Vielen vielen Dank !!!

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

---

GLOBAL-ATT-SETVALUE.zip

Anbei mal ne Funktion für sowas

Aufruf wäre:
(GLOBAL-ATT-SETVALUE DOC BLOCKNAMEFILTER TAGSTRINGFILTER VALUEFILTER NEWVALUE)

wobei für DOC = Nil für das aktuelle Dokument eingegeben wird

Blocknamefilter kennzeichnet alle zu berücksichtigen Blockname als Liste bzw. Kommagetrennten String  -> wcmatch .. also '("B*" "C*") nimmt alle Blöcke, die mit B oder C anfangen

Tagstringfilter kennzeichnet die Attributsbezeichnungen, die berücksichtig werden sollen

Valuefilter kennzeichnet die Attributwerte
und
NEWVALUE ist der neue Attributwert

(GLOBAL-ATT-SETVALUE nil '("*") '("*") ("10" "20") "5")
andert alle gefundenen Attribute, mit Inhalt 10 oder 20 auf 5

usw ...

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