---

Windows-Schrift.png Textstil.png Programmcode.png

Hallo an alle,

ich hab ein Problem mit der Windows-Schrift Arial Halb Schmal (siehe Anlage). Ich kann für diese Windows-Schrift noch den Textstil Arial_Narrow erstellen (siehe Anlage). Im Programmcode möchte ich anschließend die Schriftdatei ermitteln, in dem ich vom Textstil den Gruppencode 3 verwende (siehe Anlage). In der Variablen cschrdat müsste eigentlich entsprechend der Windows-Schrift der Wert "ARIALN.TTF" stehen. Leider ist der besagte Wert aber "". Dadurch kommt es in weiterem Programmverlauf zu Folgefehler.

Dieses Problem habe ich nur bei dieser Windows-Schrift.

Was kann ich tun, damit bei der Windows-Schrift Arial Halb Schmal der richtige Wert im Gruppencode 3 steht?

Danke im Voraus und viele Grüße

Bernd

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

---

Hast du den Stil selbst per Programmierung zusammengebastelt?

Teste es noch einmal: Neue Dateisitzung, den Stil per Hand über STIL erstellen und dann auslesen,
da solltest du dann auch ein "ARIALN.TTF" in der entitylist finden.

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

---

Programmcode2.png

Zitat:

---

Original erstellt von cadffm:
Hast du den Stil selbst per Programmierung zusammengebastelt?

Teste es noch einmal: Neue Dateisitzung, den Stil per Hand über STIL erstellen und dann auslesen,
da solltest du dann auch ein "ARIALN.TTF" in der entitylist finden.

---

Hallo cadffm,

danke für Deine Antwort.

Wie von Dir beschrieben habe ich nun in einer neuen Zeichnung den Textstil mit dem Befehl Stil neu erstellt. Leider ist der Wert der VAriable cschrdat noch immer "" (siehe Anlage").

Was kann ich noch tun?

Viele Grüße

Bernd

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

---

220110-1.dwg

In dem Fall habe ich spontan keine Ahnung warum oder was bei dir passiert.
Bei selbst neu angelegtem Stil hätte ich es nicht erwartet so wie du zeigst.

Wie siehst es denn mit txt.shx oder arial aus?

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

---

Programmcode3.png

Zitat:

---

Original erstellt von cadffm:
In dem Fall habe ich spontan keine Ahnung warum oder was bei dir passiert.
Bei selbst neu angelegtem Stil hätte ich es nicht erwartet so wie du zeigst.

Wie siehst es denn mit txt.shx oder arial aus?

---

Hallo cadffm,

in der Anlage ist der Programmcode mit der Schrift Arial.

Was kann ich noch tun?

Viele Grüße

Bernd

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

---

Ich vermisse eine Rückmeldung zu meiner Datei und weiterhin ein Dateibeispiel von dir.

Aber wenn es grundsätzlich funktioniert bei dir (wie der Arial.ttf Test zeigt), dann bleiben nur zwei Dinge:

Wenn man Interesse an dem Wieso hat, dann schaut man was das Besondere an der installierten Arialn.ttf ist
und sucht dann einen anderen Lösungsweg.

Oder es ist einem egal was los ist und sucht direkt einen anderen Lösungsweg.

-

Am Ende wird man also soetwas nutzen - falls es funktioniert in deinem merkwürdigen Fall.
(vla-get-FontFile (vla-item (vla-get-TextStyles (vla-get-activedocument (vlax-get-acad-object))) "AN"))

Bleibt die Frage ob du das Mysterium noch klärst, was super wäre, oder es ignorierst. 

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

---

Bernd1.dwg

Zitat:

---

Original erstellt von cadffm:
Ich vermisse eine Rückmeldung zu meiner Datei und weiterhin ein Dateibeispiel von dir.

Aber wenn es grundsätzlich funktioniert bei dir (wie der Arial.ttf Test zeigt), dann bleiben nur zwei Dinge:

Wenn man Interesse an dem Wieso hat, dann schaut man was das Besondere an der installierten Arialn.ttf ist
und sucht dann einen anderen Lösungsweg.

Oder es ist einem egal was los ist und sucht direkt einen anderen Lösungsweg.

-

Am Ende wird man also soetwas nutzen - falls es funktioniert in deinem merkwürdigen Fall.
(vla-get-FontFile (vla-item (vla-get-TextStyles (vla-get-activedocument (vlax-get-acad-object))) "AN"))

Bleibt die Frage ob du das Mysterium noch klärst, was super wäre, oder es ignorierst.  

---

Hallo cadffm,

in Deiner Zeichnung erhalte ich dies:

(entget (tblobjname"STYLE" "A") '("*"))
((-1 . <Objektname: 15d83bbee60> ) (0 . "STYLE") (330 . <Objektname: 15d83bc3830> ) (5 . "326") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "A") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "ARIALN.TTF") (4 . "") (-3 ("ACAD" (1000 . "Arial Narrow") (1071 . 34))))

In meiner Zeichnung erhalte ich dies:

(entget (tblobjname"STYLE" "A") '("*"))
((-1 . <Objektname: 15d83bc1ea0> ) (0 . "STYLE") (330 . <Objektname: 1551aeea030> ) (5 . "9A42") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "A") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 126.0) (3 . "") (4 . "") (-3 ("ACAD" (1000 . "Arial Narrow") (1071 . 34))))

In der Anlage ist eine DWG-Datei von mir enthalten.

Etwas Besonderes kann ich an der installierten Schrift Arialn.ttf nicht erkennen.

Bei dem Aufruf der Funktion vla-get-FontFile erhalte ich im Textfenster diesen Fehler:

; Fehler: Automatisierungsfehler Schlüssel nicht gefunden

Leider habe ich keine Ideee, was ich noch tun könnte.

Viele Grüße

Bernd

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

---

>>".. vla-get-FontFile erhalte ich im Textfenster diesen Fehler:"
>>"; Fehler: Automatisierungsfehler Schlüssel nicht gefunden"

Auch beim Textstil mit ARIAL oder txt.shx?

Welche Productverion(en) hast du denn genau, also eigentlich wird nur AutoCAD interessieren,
aber es schadet auch nicht das ganze INFO Dialogfeld zu teilen.

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

---

Info.png

Hallo cadffm,

hier und in der Anlage die gewünschten Informationen.

(vla-get-FontFile (vla-item (vla-get-TextStyles (vla-get-activedocument (vlax-get-acad-object))) "Arial"))
"arial.ttf"

(vla-get-FontFile (vla-item (vla-get-TextStyles (vla-get-activedocument (vlax-get-acad-object))) "Arial_Narrow"))
""

Viele Grüße

Bernd

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

---

Dann ist wohl irgendetwas mit dieser installierten Font-Datei (anders),
zumindest ist es wohl kein AutoCAD-Problem, auch kein spezielles 2020.1.6 Problem.

Also ist auf gc3 und vla-get-FontFile kein Verlass, das ist blöd.

Gehe über den Klarnamen des Font (xdata "ACAD" 1000) und suche über diese Ecke nach dem Fontdatei-Namen.
Beispielcode
(defun winfontslist (/ fontslist lst)
        (foreach l (vl-registry-descendents  "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"  "")
            (setq fontslist (cons (cons (strcase(vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts" l)) l)  fontslist))
        )
  fontslist
)

Wenn du da " (TrueType)" und " (OpenType)" beachtest bzw. ignorierst, dann findest du "Arial Narrow" und somit die Fontdatei.

OT eine Bitte im Namen aller späteren Mitleser:
Die Bilddateien und die DWG welche du vermutlich bei einem deiner nächsten Uploads überschreibst:
Von 2003 bis heute gab es da keine Änderung, Du als User auf CAD.de hast (nur) EINEN Upload-Ordner für Dateianhänge, in diesem
werden alle deine Uploads abgelegt. Der nächste Upload mit gleichem Dateinamen+Ext würde die bestehende Datei überschreiben.
Als Ergebnis könnten anderen/Mitleser keinen ordentlichen Threadverlauf mehr nachvollziehen können, weil die DWG oder Bilder
einfach nicht mehr zu den Postings passt. Vorschlag: Benenne die DWG eindeutig, entweder kreativ zum Thread passend oder
technisch schlicht, mit Ergänzung des Dateinamens durch das Datum+Zähler zB..

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

---

20230112_1_sde.lsp

Hallo cadffm,

ich habe nun meinen Progeammcode wegen der Schrift Arial Narrow Standard erweitert. Leider erhalte ich aber ein falsches Ergebnis, da im Schriftnamen (= Variable cschrname) nicht nach Standard oder Bold usw. unterschieden wird.

In der Anlage ist noch mein erweiterter Programmcode enthalten.

Gibt es noch eine Möglichkeit, um bei Schriften nach Standard und Bold zu unterscheiden?

Viele Grüße

Bernd

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