---

Schriften.JPG

Hallo,

ich habe einen neuen Textstil Arial_Narrow angelegt. Nunn kann ich mit (cdr (assoc 3 (tblsearch "style" "Arial_Narrow"))) den Dateinamen ARIALN.TTF ermitteln.

Wie kann ich zusätzlich den entsprechenden Schriftartnamen Arial Narrow (siehe Anlage) ermitteln?

Danke im Voraus und viele Grüße
Bernd

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

---

Hallo,

Zitat:

---

Original erstellt von Bernd10:
Wie kann ich zusätzlich den entsprechenden Schriftartnamen Arial Narrow (siehe Anlage) ermitteln?

---

ich wusste doch, dass ich es schon einmal hatte: http://ww3.cad.de/foren/ubb/Forum145/HTML/001567.shtml#000011

Gruß Bernd

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

---

Naja, bei dem verlinkten Thread durfte z.B. kein Vlisp/ActiveX verwendet werden.

Warum aber in Autocad selbst über die Registry arbeiten?
Es gibt doch die vla-getfont Funktion und hier können wir was basteln 

Code:

---

(defun :v-getfontparam (#fontstylename
                        /
                        tblstyle
                        typeface
                        bold
                        italic
                        charset
                        pitchandfamily
                      )
  (cond ((setq tblstyle (tblobjname "style" #fontstylename))
        (vla-getfont
          (vlax-ename->vla-object tblstyle)
          'typeface
          'bold
          'italic
          'charset
          'pitchandfamily
        )
        (mapcar '(lambda (sym) (cons sym (eval sym)))
                '(typeface bold italic charset pitchandfamily)
        )
        )
  )
)

---

Beispiel: Stilname Standard = Arial = Fett + Kursiv
Aufruf: (:V-GETFONTPARAM "standard") =>
Rückgabe:

Code:

---

(
(typeface . "Arial")
  (bold . :vlax-true)
  (italic . :vlax-true)
  (charset . 0)
  (pitchandfamily . 34)
)

---

Beispiel 2: Stilname MeinStil = Comic Sans MS = Fett
Aufruf: (:V-GETFONTPARAM "MeinStil") =>
Rückgabe:

Code:

---

(
(typeface . "Comic Sans MS")
  (bold . :vlax-true)
  (italic . :vlax-false)
  (charset . 0)
  (pitchandfamily . 66)
)

---

------------------
CADmaro.de

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

---

Hallo benwisch,

Zitat:

---

Original erstellt von benwisch:

Code:

---

(defun :v-getfontparam (#fontstylename
                        /
                        tblstyle
                        typeface
                        bold
                        italic
                        charset
                        pitchandfamily
                       )
  (cond ((setq tblstyle (tblobjname "style" #fontstylename))
         (vla-getfont
           (vlax-ename->vla-object tblstyle)
           'typeface
           'bold
           'italic
           'charset
           'pitchandfamily
         )
         (mapcar '(lambda (sym) (cons sym (eval sym)))
                 '(typeface bold italic charset pitchandfamily)
         )
        )
  )
)

---

Beispiel: Stilname Standard = [b]Arial = Fett + Kursiv
Aufruf: (:V-GETFONTPARAM "standard") =>
Rückgabe:
[/B]

---

das werde ich mir genauer ansehen und gegebenenfalls für meine Zwecke umbauen.

Danke und viele Grüße
Bernd

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