---

Hallo,

ich würde gern ein Makro schreiben, das folgende Arbeitsschritte abarbeitet:
- alle Texten den Textstil "Teststil" zuweisen
- allen Texten das Attribut "Bemaßung" zuweisen

Mein Makro sieht derzeit folgendermaßen aus:
(setq slist (list (cdr (assoc 2 (tblnext "STYLE" T)))))(while (setq sname (cdr (assoc 2 (tblnext "STYLE"))))(if (/= sname "")(setq slist (cons sname slist))))(foreach v slist(setq ss (ssget "X" (list (cons 7 v)))i 0)(while (< i (sslength ss))(setq e (entget (ssname ss i)) eneu (subst (cons 7 "Teststil") (assoc 7 e) e))(entmod eneu)(setq i (1+ i))));ANNOUPDATE;_all;;

Bei einigen Zeichnungen funktioniert diese Routine, bei anderen leider nicht.
Das Makro wird mit folgender Fehlermeldung abgebrochen:

Befehl: (setq slist (list (cdr (assoc 2 (tblnext "STYLE" T)))))(while (setq sname (cdr (assoc 2 (tblnext "STYLE"))))(if (/= sname "")(setq slist (cons sname slist))))(foreach v slist(setq ss (ssget "X" (list (cons 7 v)))i 0)(while (< i (sslength ss))(setq e (entget (ssname ss i)) eneu (subst (cons 7 "Teststil") (assoc 7 e) e))(entmod eneu)(setq i (1+ i))))
; Fehler: Fehlerhafter Argumenttyp: lselsetp nil

 

Weiß jemand Rat?

Liebe Grüße!

[Diese Nachricht wurde von namsokrok am 30. Aug. 2013 editiert.]

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

---

Taucht der Fehler immer dann auf, wenn in der Zeichnung gar kein Text mit dem Stil "Teststil" existiert?

Jürgen

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

---

In beiden Zeichnungen existiert der Textstil "Teststil".

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

---

Die Frage war nicht, ob es den Textstil gibt, sondern ob es überhaupt Textelemente gibt, die diesen Textstil benutzen.

Jürgen

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

---

Ja, die gibt es.

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

---

Probiers mal mit folgenden (ausbaufähigen) code :

(defun SET2TXTSTYLE( / BLOCK ITEM)
  (vl-load-com)
  (or(tblobjname "STYLE" "TESTSTIL")
    (entmake (list '(0 . "STYLE") 
                    '(100 . "AcDbSymbolTableRecord")
                    '(100 . "AcDbTextStyleTableRecord")
                    '(2 . "TESTSTIL")
                    '(70 . 0)
                    '(40 . 0.0)
                    '(41 . 1.0)
                    '(50 . 0.0)
                    '(71 . 0)
                    '(42 . 2.2)
                    '(3  . "isocp.shx")
                    '(4 . "")
                  )
    )
  ) 
  (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for ITEM BLOCK         
      (if (member(strcase(vla-get-ObjectName ITEM)) '("ACDBTEXT" "ACDBMTEXT"))     
        (vl-catch-all-error-p(vl-catch-all-apply 'vla-put-Stylename (list ITEM "TESTSTIL")))
      )
    )
  ) 
  (vla-regen(vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
)

.. was du mit dem Attribut "Bemaßung" meinst, ist mir allerdings nicht ganz klar ..

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

---

Ganz lieben Dank. Ich teste gleich mal.
Ich meinte natürlich das Attribut "Beschriftung" 

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

---

Wenn ich dieses Lisp starte, erscheint folgendes:

Befehl: !SET2TXTSTYLE #<SUBR @0000000031193638 SET2TXTSTYLE>

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