Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Textstile

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Textstile (594 mal gelesen)
m99ds
Mitglied
Elektroplaner


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

Beiträge: 18
Registriert: 29.10.2003

AutoCAD 2000I

erstellt am: 29. Okt. 2003 07:56    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

Wie kann ich einem Textstil eine TrueTypeSchriftart hinzufügen?

Vielen Dank für eure Vorschläge

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Acad 2011-deutsch, Express Tools
3ds Max 2010
Win 7-Professional
HP Workstation Z400, 6GB
GeForce GTX 470

erstellt am: 29. Okt. 2003 13:14    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 m99ds 10 Unities + Antwort hilfreich

Code:
    Dim BemText As AcadTextStyle
   
    Set BemText = ThisDrawing.TextStyles.Add(TextStil)
    BemText.fontFile = "arial.ttf"

Textstil ist ein Textstilname.
Natürlich kannst du auch einem bestehenden Textstil ein fontFile zuweisen.
Code:
Set BemText = ThisDrawing.TextStyles(TextStil)

------------------
Roland

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

m99ds
Mitglied
Elektroplaner


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

Beiträge: 18
Registriert: 29.10.2003

AutoCAD 2000I

erstellt am: 29. Okt. 2003 13:30    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

Leider funktioniert das nicht. ich erhalte die Fehlermeldung 'Dateifehler'.

Trotzdem Danke

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

idraH
Mitglied



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

Beiträge: 64
Registriert: 22.04.2002

ACAD 2006
Win XP

erstellt am: 06. Nov. 2003 13:05    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 m99ds 10 Unities + Antwort hilfreich

vielleicht funktioniert es ja, wenn du den Pfad für die TTF-Datei mit angibst, ausserdem sollte im oberen Beispiel die Variable Textstil als String definiert sein

dim TextStil as String
TextStil = "NeuerStil"

oder du schreibst den Namen deines neuen Textstiles in Anführungszeichen in die Klammer

Dim BemText As AcadTextStyle 
Set BemText = ThisDrawing.TextStyles.Add("NeuerStil")
BemText.fontFile = "c:/AutoCad/FONTS/arial.ttf"

(falls der Pfad auf dem Server liegt müssen vor dem Servernamen zwei Schrägstriche eingefügt werden zB. "//Server/Fonts/Arial.ttf")
vielleicht hilfts ja,

Hartmut

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Acad 2011-deutsch, Express Tools
3ds Max 2010
Win 7-Professional
HP Workstation Z400, 6GB
GeForce GTX 470

erstellt am: 06. Nov. 2003 13:16    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 m99ds 10 Unities + Antwort hilfreich

Daran hatte ich auch gedacht, eigentlich müsste es genügen die arial.ttf in einen Suchpfad von ACAD zu stellen. Warscheinlich ist seine TTF nur installiert und steht in keinem Suchpfad von Acad.
Das der Textstil in "" stehen soll nahm ich als selbstverständlich an.

------------------
Roland

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

m99ds
Mitglied
Elektroplaner


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

Beiträge: 18
Registriert: 29.10.2003

AutoCAD 2000I

erstellt am: 06. Nov. 2003 16:56    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

Nun wenn ich aber ganz normal im AutoCad einen Textstil auswähle findet er diesen. Die Arial.ttf finde ich jedoch nur im ..\windows\fonts - Verzeichnis. Habe es auch schon mit der Pfadangabe verucht, klappt leider nicht.

------------------
Marco

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Acad 2011-deutsch, Express Tools
3ds Max 2010
Win 7-Professional
HP Workstation Z400, 6GB
GeForce GTX 470

erstellt am: 06. Nov. 2003 17:02    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 m99ds 10 Unities + Antwort hilfreich

Dann kopier sie doch mal in einen Acadpfad

------------------
Roland

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

idraH
Mitglied



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

Beiträge: 64
Registriert: 22.04.2002

ACAD 2006
Win XP

erstellt am: 06. Nov. 2003 20:03    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 m99ds 10 Unities + Antwort hilfreich

bei der Pfadangabe ist es (so weit ich weiss) wichtig nicht den backslash sondern einen einfachen slash als ordnertrennzeichen zu verwenden also richtg: "c:/fonts/arial.ttf" falsch "c:\fonts\arial.ttf"

viele grüsse,
hartmut

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

m99ds
Mitglied
Elektroplaner


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

Beiträge: 18
Registriert: 29.10.2003

AutoCAD 2000I

erstellt am: 07. Nov. 2003 07:48    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 idraH, der Tip mit den Shlash statt dem Bachslash war der entscheidende

------------------
Marco

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)2023 CAD.de | Impressum | Datenschutz