Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  vla-put-fontfile

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   vla-put-fontfile (126 mal gelesen)
Andreas Kraus
Mitglied
Elektrotechniker


Sehen Sie sich das Profil von Andreas Kraus an!   Senden Sie eine Private Message an Andreas Kraus  Schreiben Sie einen Gästebucheintrag für Andreas Kraus

Beiträge: 1020
Registriert: 11.01.2006

WIN 10
ACAD 2017

erstellt am: 08. Aug. 2017 09:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,
(vla-put-fontfile textstyle "arial.ttf") bringt mir eine Fehlermeldung.

; Fehler: Automatisierungsfehler Dateifehler

Wenn ich Arial über den Textstildialog zuweise und mir dann das Objekt anschaue sieht das so aus:

; IAcadTextStyle: Eine benannte, gespeicherte Gruppierung von Einstellungen, die das Erscheinungsbild von Textzeichen bestimmt
; Eigenschaftswerte:
;  Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff6af3751a8>
;  BigFontFile = ""
;  Document (RO) = #<VLA-OBJECT IAcadDocument 000001f0ef8d8028>
;  fontFile = "arial.ttf"
;  Handle (RO) = "89B4"
;  HasExtensionDictionary (RO) = 0
;  Height = 0.0
;  LastHeight = 2.0
;  Name (RO) = "Romans"
;  ObjectID (RO) = 58
;  ObjectName (RO) = "AcDbTextStyleTableRecord"
;  ObliqueAngle = 0.0
;  OwnerID (RO) = 57
;  TextGenerationFlag = 0
;  Width = 1.0

Wenn ich irgendeinen SHX-Font mit vla-put-fontfile zuweise gehts.
Bei TTFs gehts nicht.

Jemand ne Idee was das soll 

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1774
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 08. Aug. 2017 09:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Andreas Kraus 10 Unities + Antwort hilfreich

Code:
(setq txtstyle (vla-item (vla-get-textstyles (vla-get-activedocument(vlax-get-acad-object))) "Standard"))
(setq fontfile (findfile (strcat (getenv "WINDIR") "\\fonts\\Arial.ttf")))
(vla-put-fontfile txtstyle fontfile)

Probier's mal

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

Peter2
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Peter2 an!   Senden Sie eine Private Message an Peter2  Schreiben Sie einen Gästebucheintrag für Peter2

Beiträge: 2833
Registriert: 15.10.2003

Win 7/64 Prof & Win 10/64 Pro
AutoCAD 2011 - 2017, Expresstools, VPRaster
BricsCAD V16

erstellt am: 08. Aug. 2017 09:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Andreas Kraus 10 Unities + Antwort hilfreich

Das mit den TTF-Dateien ist ja so eine Sache - in den Menüs erscheint z.B. "Arial" mit den Schnitten "Normal / fett / Kursiv"; tatsächlich sind das aber verschiedene Dateien, z.B. "Arial_bd.ttf" (fett). Hast du das geprüft? Oder mal einen ASrial-textstil gedumpt?

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

Andreas Kraus
Mitglied
Elektrotechniker


Sehen Sie sich das Profil von Andreas Kraus an!   Senden Sie eine Private Message an Andreas Kraus  Schreiben Sie einen Gästebucheintrag für Andreas Kraus

Beiträge: 1020
Registriert: 11.01.2006

WIN 10
ACAD 2017

erstellt am: 08. Aug. 2017 10:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke Wiesel.
Volle Punktzahl. 

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2017 CAD.de