| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Textstil mit Bigfont (1477 mal gelesen)
|
helmi-g Mitglied Dipl. Ing. (BA)
Beiträge: 1 Registriert: 12.03.2004
|
erstellt am: 12. Mrz. 2004 06:23 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 12. Mrz. 2004 06:37 <-- editieren / zitieren --> Unities abgeben: Nur für helmi-g
Hallo helmi-g, einen Befehl gibt es für dein Vorhaben nicht. Man kann es aber, wenn man sich in der DXF-Struktur auskennt machen. Folgendes sind die Objektdaten des Textstils: (-1 . <Objektname: 7ef56c88> ) (0 . "STYLE") (330 . <Objektname: 7ef56c18> ) (5 . "11") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "txt.shx") (4 . "bigfont.shx") Diese kann man wie folgt manipulieren: Code:
(setq ts(entget(tblobjname "STYLE" "STANDARD"))) (entmod (subst '(4 . "NEUERBIGFONT") (assoc 4 TS) TS ) )
oder als VisualLISP
Code:
(setq TS (vlax-ename->vla-object(tblobjname "STYLE" "STANDARD"))) (vlax-put-property TS 'BigFontFile "C:/AutoCAD/Fonts/NEUERBIGFONT.shx")
Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 12. Mrz. 2004 22:21 <-- editieren / zitieren --> Unities abgeben: Nur für helmi-g
|
glocker Mitglied CAD-Systemadministrator
Beiträge: 73 Registriert: 24.06.2004 AutoCAD-Mechanical2007 auf WindowsXP
|
erstellt am: 27. Sep. 2006 15:35 <-- editieren / zitieren --> Unities abgeben: Nur für helmi-g
Hallo, habe nach längerer Zeit im Rahmen einer Systemumstellung dieses Problem wieder aufgegriffen - innerhalb meines Fontcheckers sind alle Versuche fehlgeschlagen, als separate Unterfunktion funktionierts hervorragend: (defun tstiltausch (TSTILNAME FONT3NEU FONT4NEU / ) (princ "\n<TSTILTAUSCH> TextStile tauschen...") (princ "\n Textstil:") (princ TSTILNAME) (princ "\n Font....:") (princ FONT3NEU) (princ "\n Bigfont.:") (princ FONT4NEU) (if (/= FONT3NEU "") (progn (princ (strcat "\n Font=" FONT3NEU " zuordnen...")) (setq ts(entget(tblobjname "STYLE" TSTILNAME))) (entmod (subst (cons 3 FONT3NEU) (assoc 3 TS) TS)) ) ) (if (/= FONT4NEU "") (progn (princ (strcat "\n Bigfont=" FONT4NEU " zuordnen...")) (setq ts(entget(tblobjname "STYLE" TSTILNAME))) (entmod (subst (cons 4 FONT4NEU) (assoc 4 TS) TS)) ) ) (princ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
Beiträge: 212 Registriert: 31.01.2020
|
erstellt am: 16. Sep. 2020 13:28 <-- editieren / zitieren --> Unities abgeben: Nur für helmi-g
Ich greife dieses alte Thema nochmals auf. Habe ein ähnliches Problem. Ich möchte bei ALLEN Textstilen den Haken bei "Big Font verwenden" automatisch weggemacht bekommen. Gibt es hier ein Script bzw. Lisp dazu?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 16. Sep. 2020 13:45 <-- editieren / zitieren --> Unities abgeben: Nur für helmi-g
Es gibt zu allem ein Script, Lisp oder sonstiges Programm. Die Frage ist ob es alles genau so macht wie gewünscht, nicht mehr und nicht weniger. (Und ob es sich lohnt danach zu suchen, zumal "man" nicht erkennen kann was alles wirklich geöndert wird in so einem Programm. In diesem Fall wäre es ein Programm zum spielen mit dem Feuer, da es auch (wieder) Daten blind-links ändert und dies unter Umständen die Zeichen in Textdarstellungen Ändern oder überhaupt nicht mehr angezeigt werden. Aber da es nur ein Einzeiler ist, schön formatiert auch 6 Zeilen, bitte sehr: Code: (defun c:RemAllBigFontSettingsFromStyles (/ st) (while (setq st (tblnext "STYLE" (not st))) (setq st (entget(tblobjname"STYLE" (cdr(assoc 2 st))))) (entmod(subst'(4 . "")(assoc 4 st)st)) ) (princ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 16. Sep. 2020 13:59 <-- editieren / zitieren --> Unities abgeben: Nur für helmi-g
>>cadffm: In diesem Fall wäre es ein Programm zum spielen mit dem Feuer Damit ist natürlich hauptsächlich der Einsatz in großen Dateien gemeint welche schlecht zu überblicken sind oder gar die Bearbeitung mehrere Dateien automatisiert.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
Beiträge: 212 Registriert: 31.01.2020
|
erstellt am: 16. Sep. 2020 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für helmi-g
|