---

Hallo,

wenn ich z.B. den Schriftnamen "Comic Sans MS" eingestellt habe und den folgenden Befehl

(cdr (assoc 3 (entget (tblobjname "STYLE" (getvar "TEXTSTYLE")))))

benutze, bekomme ich als Ausgabe "comic.ttf"

Ich benötige aber den Namen "Comic Sans MS" und nicht den Namen der Fontdatei.

Jetzt könnte ich zwar abfragen:
wenn "comic.ttf" dann "Comic Sans MS",
usw...
Da aber jeder andere Schriften installiert hat, wäre ich damit ziemich begrenzt.

Wenn jemand eine Lösung mit Lisp hat, sollte sie kein VLX verwenden, da ich eine Lösung für ICAD benötige.

Gruß
Theodor Schönwald

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

---

Hi,

was ist wenn du den GC auf 2 änderst ? Bist du dann glücklich ?

Code:

---

(cdr (assoc 2 (entget (tblobjname "STYLE" (getvar "TEXTSTYLE")))))

---

------------------
Grüsse

Thomas

EDIT: sehe gerade, dass du ein anderes Problem hast...

[Diese Nachricht wurde von tunnelbauer am 08. Mrz. 2006 editiert.]

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

---

Dein Problem wird aber glaub ich nur so zu lösen sein, wenn du den Textstil so benennst wie du es brauchst, da die Schrift Comic Sans MS in der comic.ttf verpackt ist - ausser du benennst die ttf um - was dann aber auch wieder zu Kompatibilitätsproblemen führen würde...

------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 08. Mrz. 2006 editiert.]

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

---

ich denke mal, dass dir folgender codeschnipsel weiterhilft:

(mapcar
  '(lambda(X)
    (cons X
          (vl-registry-read           
            "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
            X           
          )
    )
  )
  (vl-registry-descendents
    "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
    ""
  )
)

[ FONT FONTNAME FONTDATEINAME DATEINAME ]

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

Hallo Thomas,

leider nein, denn dann bekomme ich den Schriftstil aber nicht den Fontnamen.

Gruß
Theodor

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

---

Hä? was hat die Registry mit irgentwelchen Stylenames zu tun??

------------------
  - Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

Hallo Thomas,

da ist das Problem mit ICAD das kein VL verarbeitet.

Gruß
Theodor

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

---

dann mußt du irgentwie anders an die Registry ran, den sprachumfang von ICAD kenne ich leider nicht ( vl heißt aber nicht ActiveX .. ist aber sicher Bestandteil des VLISP-Interpreters von ACAD)

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

Hallo Thomas,

...Hä? was hat die Registry mit irgentwelchen Stylenames zu tun??...

Zum umwandeln von Text in Polylinien in ICAD möchte ich folgendes machen:
- Bei einem Text der in ICAD geschrieben wurde, den Textstil
  und den Text auslesen.
- Danach beides dem Programm "Schrift2DXF" (ist cad-kas)
  als Parameter übergeben.
- "Schrift2DXF" macht eine DXF-Datei mit Polylinien von der
  Textkontur, die ich dann als Block einlesen und den Text
  ersetzen kann.

Es funktioniert alles bis auf den Fontnamen, den "Schrift2DXF" kann mit dem Fontdateinamen nicht anfangen und der Textstilnamen ist nicht immer gleich der Fontnamen.

Das als Hintergrundinfo, warum?

Gruß
Theodor

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

---

Hallo Thomas,

der Spachumfang von Lisp in ICAD entspricht ungefähr dem Stand bei ACAD12.

Auf jeden Fall möchte ich mich bei Dir für die schnellen Antworten bedanken, teilweise haben sich Deine und meine Antworten überschlagen.

Vieleicht finded sich doch noch eine Lösung.

Gruß
Theodor

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

---

Hi Theodor,
wenn Du kein vl verfügbar hast,
benutzte doch "regedit /e ..." (vgl. http://www.ini-sc.net/mswin/awfntanw/kap7.htm )
zum Exportieren der Font-Schlüssel und lese Dir die exportierte Regdatei dann via lisp in einem gewünschten Format ein.
Sollte doch kein Problem sein?

------------------
Ciao,
Marc

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

---

Hallo,

Zitat:

---

Original erstellt von CADmium:

(mapcar
  '(lambda(X)
     (cons X
           (vl-registry-read            
             "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
             X            
           )
     )
   )
   (vl-registry-descendents
     "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
     ""
   )
)

---

ich habe das obere Beispiel in eine Test-Funktion gepackt. Vielleicht kann es jemand gebrauchen.

( defun Test ( /
              lx lxg)

(setq lxg nil)
(mapcar
  '(lambda(X)
    (setq lx
          (cons X
                (vl-registry-read
                  "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
                  X
                )
          )
    )
    (setq lxg (append lxg (list lx)))
  )
  (vl-registry-descendents
    "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
    ""
  )
)
 
; Rückgabewert
  lxg

)

Gruß Bernd

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

---

dream ... dann pack ich mal meinen Code auch in eine Testfunktion
(defun MyTest()
(mapcar
  '(lambda(X)
    (cons X
          (vl-registry-read           
            "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
            X           
          )
    )
  )
  (vl-registry-descendents
    "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
    ""
  )
)
)

@Bernd .. mapcar gibt doch schon die entsprechende Liste zurück, da brauckst du kein extra append und keine Zwischenvariablen!! 

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

Hallo Marc,

Dein Vorschlag mit:

Regedit /e Datei "...Fonts"

hat mir ein großes Stück geholfen. Danke!

Nun habe ich eine Textdatei und kann weiter machen, um zB.
aus der Zeile in der "COUR.TTF" steht "Courier New" zu bekommen.

Gruß
Theodor

-------------------------------
Ein Stück von der Textdatei:
--------------------------------
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Fonts]
"Roman (Alle Auflösungen)"="ROMAN.FON"
"Script (Alle Auflösungen)"="SCRIPT.FON"
"Modern (Alle Auflösungen)"="MODERN.FON"
"Arial (TrueType)"="ARIAL.TTF"
"Arial Fett (TrueType)"="ARIALBD.TTF"
"Arial Fett Kursiv (TrueType)"="ARIALBI.TTF"
"Arial Kursiv (TrueType)"="ARIALI.TTF"
"Courier New (TrueType)"="COUR.TTF"
"Courier New Fett (TrueType)"="COURBD.TTF"
"Courier New Fett Kursiv (TrueType)"="COURBI.TTF"
"Courier New Kursiv (TrueType)"="COURI.TTF"
"Lucida Console (TrueType)"="LUCON.TTF"
"Lucida Sans Unicode (TrueType)"="L_10646.TTF"
"Times New Roman (TrueType)"="TIMES.TTF"
"Times New Roman Fett (TrueType)"="TIMESBD.TTF"
"Times New Roman Fett Kursiv (TrueType)"="TIMESBI.TTF"
"Times New Roman Kursiv (TrueType)"="TIMESI.TTF"
...
...

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