Topic: Available FONTS list...

[Andrea]

Hi all....

maybe last question before the weekend...i hope.

How do i get a list of available fonts in AutoCAD ?

What is the syntax of vla-get-FontFile ?

 

[dan19936]

How do i get a list of available fonts in AutoCAD ?

http://tinyurl.com/j8c72

and

Code: [Select]

(vl-registry-descendents "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts" "")

[LE]

A function that might be handy...

Code: [Select]

;; (getShxFiles)
(defun getShxFiles  (/ lst)
  (setq
    lst (mapcar
  'strcase
  (mapcar
    'vl-filename-base
    (vl-directory-files
      (strcat
(vl-filename-directory (findfile "acad.exe"))
"\\Fonts"
)
      "*.shx"
      1))))
  (if (and lst (findfile "SIMPLEX.SHX"))
    (setq lst (append
lst
(list "SIMPLEX"))))
  lst)

And a way to get the fontfile for the current textstyle...

Code: [Select]

(vla-get-fontfile
  (vla-get-activetextstyle
    (vla-get-activedocument (vlax-get-acad-object))))


[Andrea]

A function that might be handy...

Code: [Select]

;; (getShxFiles)
(defun getShxFiles  (/ lst)
  (setq
    lst (mapcar
  'strcase
  (mapcar
    'vl-filename-base
    (vl-directory-files
      (strcat
(vl-filename-directory (findfile "acad.exe"))
"\\Fonts"
)
      "*.shx"
      1))))
  (if (and lst (findfile "SIMPLEX.SHX"))
    (setq lst (append
lst
(list "SIMPLEX"))))
  lst)

And a way to get the fontfile for the current textstyle...

Code: [Select]

(vla-get-fontfile
  (vla-get-activetextstyle
    (vla-get-activedocument (vlax-get-acad-object))))


Thanks LE..
But a question...

U use..

Code: [Select]

(vl-filename-directory (findfile "acad.exe"))Bur is this the active ACAD.exe ?

I mean...I have 2002 2004 2005 and 2006 in my PC..
so how can I know wich one was found ?   

thanks.

[LE]

No problem, it will work...

Open your autocad's and verify with

Command: (findfile "acad.exe")

It will be looking on the right one.

[Kerry]

From FINDFILE HELP ..

If filename does not specify a drive/directory prefix, findfile searches the AutoCAD library path.
If a drive/directory prefix is supplied, findfile looks only in that directory.

[Andrea]

good !!

thanks guys..

have a nice weekend all     !