Topic: Font file issues

[Pepe]

Code: [Select]

(defun GetTTFs (/)
  ((lambda (reg)
     (mapcar (function (lambda (n) (cons n (vl-registry-read reg n))))
             (vl-registry-descendents reg "")
     )
   )
    "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
  )
)

Much better and elegant  !  (Indeed!) I should write this kind of stuff sooner in the day... :ugly: Thank you, alanjt.

[alanjt]

Only that I said it was untested. ATM, I don't have AutoCAD on my home machine.

I tried again. I can't figure it out.
Could you please check it when you are at work?
Thanks.

Try this, I forgot to capitalize the value before checking...

Code: [Select]

(defun doesTTFexist (ttf)
  ((lambda (reg ttf)
     (vl-some (function (lambda (x / n)
                          (if (eq (setq n (strcase (vl-registry-read reg x))) ttf)
                            n
                          )
                        )
              )
              (vl-registry-descendents reg "")
     )
   )
    "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
    (strcase ttf)
  )
)

[MeasureUp]

It works graet!
Thanks, Alan. 

[alanjt]

It works graet!
Thanks, Alan. 

Rock 'n Roll baby

[MeasureUp]

BTW, what is the reason that you make it uppercase?
What if you keep the value lowercase?

[Lee Mac]

Just curious, does this work?

Code: [Select]

(findfile (strcat (_GetSpecialFolder "Fonts") "\\" font))
I just didn't see why the registry needs to get involved is all...

[ronjonp]

Just curious, does this work?

Code: [Select]

(findfile (strcat (_GetSpecialFolder "Fonts") "\\" font))
I just didn't see why the registry needs to get involved is all...

I was thinking the same thing ... this should work as well:

Code: [Select]

(findfile (strcat (getenv "windir") "\\fonts\\arial.ttf"))

[alanjt]

Just curious, does this work?

Code: [Select]

(findfile (strcat (_GetSpecialFolder "Fonts") "\\" font))
I just didn't see why the registry needs to get involved is all...

I was thinking the same thing ... this should work as well:

Code: [Select]

(findfile (strcat (getenv "windir") "\\fonts\\arial.ttf"))

Agreed. I guess I had the fun blinders on. Don't listen to me.
I was just trying to remember that sysvar.

[alanjt]

BTW, nice work, Ron.

[MeasureUp]

Sorry, Lee.

Code: [Select]

(setq fontfile (findfile (strcat (_GetSpecialFolder "Fonts") "\\" font)))

It is much the same as the following mensioned previously:
Because the they may return a fake result.

Code: [Select]

(findfile "c:\\windows\\fonts\\arial.ttf")

I have just read your latest post & check this one gives the same result as above:

Code: [Select]

(findfile (strcat (getenv "windir") "\\fonts\\arial.ttf"))

I was wondering if there is a way to check the font file name.
Because the "fildfile" lines above may return a fake result as menstioned.

I discuss this issue because the font file name could be changed in some cases.

[ronjonp]

BTW, nice work, Ron.

[Lee Mac]

Code: [Select]

(setq fontfile (findfile (strcat (_GetSpecialFolder "Fonts") "\\" font)))

It is much the same as the following mensioned previously:
Because the they may return a fake result.

I'm just a little puzzled since the result you posted from running my previous code (the first post) indicated that the font assignment was successful. Which raises the question: What font was assigned to the new TextStyle?

[alanjt]

Code: [Select]

(setq fontfile (findfile (strcat (_GetSpecialFolder "Fonts") "\\" font)))

It is much the same as the following mensioned previously:
Because the they may return a fake result.

I'm just a little puzzled since the result you posted from running my previous code (the first post) indicated that the font assignment was successful. Which raises the question: What font was assigned to the new TextStyle?

It's a wacky mystery!   

[MeasureUp]

I have already renamed the "arial_6.ttf" to the original "arial.ttf" in my system.
By continuing the tests I use the "ariali_5.ttf" (my "ariali.ttf" name was changed as well).

[MeasureUp]

Alan, did you read my post #34?
Thanks.