---

Hallo,
mit folgender Funktion möchte ich die Block-,Layer-,Linientypen-,Bemassungsstil- und Textstil-Definitionsname in Gross- oder Kleinschreibung ändern.
Bei den Textstilen funktioniert das aber nicht (Meldung: "Fehler: ActiveX-Server hat einen Fehler zurückgegeben: Typkonflikt")

Was mache ich falsch?

Code:

---

(defun c:upcase ( / liste kword kwordget)
  (vl-load-com)
  (setq kword "Großbuchstaben")
  (initget 0 "Großbuchstaben Kleinbuchstaben")
  (if (setq kwordget
            (getkword
              "\n[Großbuchstaben/Kleinbuchstaben]<Großbuchstaben>"))
    (setq kword kwordget))
 
  (mapcar '(lambda(A)
  (vlax-for ITEM
        (vlax-get-property
          (vlax-get-property
            (vlax-get-acad-object)"ActiveDocument")A)
    (VLA-PUT-NAME ITEM
      (if (= kword "Großbuchstaben")
        (strcase(VLA-GET-NAME ITEM))
        (strcase(VLA-GET-NAME ITEM)'T)))))
    '("BLOCKS"
      "LAYERS"
      "LINETYPES"
      "DIMSTYLES"
      "TEXTSTYLES"))
  )

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

hallo joern,
der name bei textstilen ist bei schreibgeschuetzt deklariert
Name (RO) = "Standard"

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Hallo Marco,
na da hätte ich auch selber drauf kommen können, auch entmod gibt nur nil zurück und ändert nichts.
Neue Frage: wie ändere ich denn sinnvollerweise die Textstilnamen??
Zur Not könnte ich die Command-Variante verwenden, aber ungern.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

neben (command "_-rename" ...) kannst du auch einen neuen stil erstellen, alle eigenschaften des alten stils uebernehmen und alle text/mtext/dimension aendern und den alten loeschen.
was anderes faellt mir auf die schnelle nicht ein.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Hallo Marco,
danke erstmal, ich glaube, ich werde die Command-Variante verwenden, aber ein bißchen werde ich noch warten, falls der eine oder andere noch ein gute Idee hat.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Hallo Jörn,

dieses hier

Code:

---

(defun c:upna ()
(setq ctstil (tblnext "style" T))
  (while ctstil
    (progn
      (setq ctstilname (cdr (assoc 2 ctstil)))
      (setq cts_obj (entget (tblobjname "style" ctstilname)))
      (setq ctstilname (strcase ctstilname))
      (setq cts_obj (subst (cons 2 ctstilname) (assoc 2 cts_obj) cts_obj))
      (entmod cts_obj)
    )
    (setq ctstil (tblnext "style"))
  )
) ; ende

---

macht alle Stilnamen GROSS, außer Standard, der weigert sich beharrlich.

HTH
Thomas

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

---

Hallo Thomas,
ups, da habe ich wohl bei meinem entmod-Versuch einen Schusselfehler gemacht, mit Deinem LISP klappt es (außer bei "Standard", aber da kann ich mit leben). Vielen Dank.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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