| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Textstil Name ändern - Typenkonflikt? (723 mal gelesen)
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 24. Feb. 2011 09:54 <-- editieren / zitieren --> Unities abgeben:
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 |
neurosis Mitglied dipl.ing.
Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 24. Feb. 2011 10:10 <-- editieren / zitieren --> Unities abgeben: Nur für joern bosse
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 24. Feb. 2011 10:27 <-- editieren / zitieren --> Unities abgeben:
|
neurosis Mitglied dipl.ing.
Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 24. Feb. 2011 10:52 <-- editieren / zitieren --> Unities abgeben: Nur für joern bosse
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 |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 24. Feb. 2011 11:09 <-- editieren / zitieren --> Unities abgeben:
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 24. Feb. 2011 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für joern bosse
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 |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 24. Feb. 2011 14:06 <-- editieren / zitieren --> Unities abgeben:
|