Topic: How to find out where Acad reads font files from?

[Keith™]

Correct ... if you browse to the Windows\Font folder and set the attributes of desktop.ini to -h -r -s, you will be able to copy it to another location and view the class id of the shell handler. You could then cross reference that in the registry to see what libraries are actually being used to give the folder the functionality you see.

Usually you can set your own context handlers for special folders, but the problem with the fonts folder is that windows allows only 1 to be active at any given time, therefore unless you change the default folder (and cause instability in Windows) you will not be able to create a second font folder, not that you would want to ...

Many folders have context handlers and you can actually create your own special folders if you create the context handler properly.

[CaddmannQ]

... if you browse to the Windows\Font folder and set the attributes of desktop.ini to -h -r -s, you will be able to copy it to another location and view the class id of the shell handler. You could then cross reference that in the registry to see what libraries are actually being used to give the folder the functionality you see....

Errrr... I think I'd rather poke myself with a sharp stick, but thanks anyway. 

[Maverick®]

I think I'd rather poke myself with a sharp stick, but thanks anyway. 

*adjusts scorecard, polishes up the "exit only" sign*

[CaddmannQ]

I think I'd rather poke myself with a sharp stick, but thanks anyway. 

*adjusts scorecard, polishes up the "exit only" sign*

OK, call me dense, but I don't get the implications of that at all. 

[MP]

Kinda back on topic (no flame) ... Tim: If you want the actual font names just iterate the registry and create a reverse index of the keys / data:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

The key is the font name, the data is the font file.

[T.Willey]

Thanks Michael.  Not sure yet if I want to go this route, but it's nice to have the option and knowledge.

[CAB]

Try this:

Code: [Select]

;;  Get the Windows Installed Fonts & the font file name
(defun get-fontList (/ dev reg)
  (if (or
        (setq dev "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Fonts"
              reg (vl-registry-descendents dev "*")
        )
        (setq dev "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
              reg (vl-registry-descendents dev "*")
        )
      )
    (mapcar '(lambda(x) (list x (vl-registry-read dev x))) reg)
    )
)

;|  Returns a list
(("Caesar Regular (TrueType)" "C:\\WINDOWS\\Fonts\\caesar.TTF")
  ("Metro Regular (TrueType)" "C:\\WINDOWS\\Fonts\\metro.TTF")
  ("Zurich Extended BT (TrueType)" "C:\\WINDOWS\\Fonts\\ZURCHE.TTF")
  ("Arcitectura (TrueType)" "archtura.ttf")
  ("AMGDT (TrueType)" "AMGDT___.TTF")
  ("AmdtSymbols (TrueType)" "AMDT_Symbols.ttf")
  ("AIGDT (TrueType)" "AIGDT___.TTF")
  ("AcadEref (TrueType)" "AcadEref.ttf")
  ("ISOCTEUR Italic (TrueType)" "isocteui.ttf")
  ("ISOCTEUR (TrueType)" "isocteur.ttf")
  ("ISOCPEUR Italic (TrueType)" "isocpeui.ttf")
  ("ISOCPEUR (TrueType)" "isocpeur.ttf")
  ("Proxy 9 (TrueType)" "mtproxy9.ttf")
  ("Proxy 8 (TrueType)" "mtproxy8.ttf")
  ("Proxy 7 (TrueType)" "mtproxy7.ttf")
  ("Proxy 6 (TrueType)" "mtproxy6.ttf")
  ("Proxy 5 (TrueType)" "mtproxy5.ttf")
  ("Proxy 4 (TrueType)" "mtproxy4.ttf")
  )
  |:
 

[T.Willey]

The problem with going this way Alan is, when you try and set the FontFile property of the newly created style, you have to have the full path of the font.  Notice in some of the fonts listed they don't have the full path.  And you can't use 'findfile' on them.

I guess if they don't have a path, then you can see if they are located within the folder returned by Michael's code.  It's an idea I'm willing to play with, but I don't have time to test today, but should have some tomorrow.

Thanks Alan. 

Quick example.

Command: (findfile "browa.ttf")
nil

Command: (findfile (strcat (_GetSpecialFolder "Fonts") "\\" "Browa.ttf"))
"C:\\WINDOWS\\Fonts\\Browa.ttf"

[CAB]

Exactly!
And a modified version of MP's code: (please forgive the hack)

Code: [Select]

(defun _GetSpecialFolders ( / wshShell specialFolders result )
    (vl-catch-all-apply
       '(lambda ( )
            (setq
                wshShell       (vlax-create-object "WScript.Shell")
                specialFolders (vlax-get wshShell 'SpecialFolders)
            )
            (setq result (vlax-invoke specialFolders 'Item "Fonts"))
        )
    )
    (if specialFolders (vlax-release-object specialFolders))
    (if wshShell (vlax-release-object wshShell))
    result
)

[MP]

Code: [Select]

(defun _GetFontIndex ( / folder header footer result )

    (setq
        folder (_GetSpecialFolder "Fonts")
        header "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\"
        footer "\\CurrentVersion\\Fonts"
    )

    (vl-some
       '(lambda ( windows / key names paths )
            (and
                (setq
                    key   (strcat header windows footer)
                    names (vl-registry-descendents key "*")
                )
                (setq paths
                    (mapcar
                       '(lambda ( name / path )
                            (if
                                (eq ""
                                    (vl-filename-directory
                                        (setq path
                                            (vl-registry-read key name)
                                        )
                                    )
                                )
                                (strcat folder "\\" path)
                                path
                            )                           
                        )
                        names
                    )
                )
                (setq result
                    (mapcar 'cons
                        names
                        paths
                    )
                )
            )
        )
       '( "Windows NT" "Windows" )
    )
   
    (vl-sort
        result
       '(lambda ( a b ) (< (car a) (car b)))
    )
   
)
("AIGDT (TrueType)" . "C:\\Windows\\Fonts\\AIGDT___.TTF")
("AMGDT (TrueType)" . "C:\\Windows\\Fonts\\AMGDT___.TTF")
("AcadEref (TrueType)" . "C:\\Windows\\Fonts\\AcadEref.ttf")
...
("MT Extra (TrueType)" . "C:\\Program Files\\Common Files\\Microsoft Shared\\EQUATION\\MTEXTRA.TTF")
...
("Wingdings (TrueType)" . "C:\\Windows\\Fonts\\wingding.ttf")
("Wingdings 2 (TrueType)" . "C:\\Windows\\Fonts\\WINGDNG2.TTF")
("Wingdings 3 (TrueType)" . "C:\\Windows\\Fonts\\WINGDNG3.TTF")

[CaddmannQ]

I think I'd rather poke myself with a sharp stick, but thanks anyway. 

*adjusts scorecard, polishes up the "exit only" sign*

OK, call me dense, but I don't get the implications of that at all. 

...and evidently nobody's going to bother to explain it either.

*sigh*

[Maverick®]

 Believe me.  It's better that way. 

[MP]

...and evidently nobody's going to bother to explain it either.

*sigh*

Dude it's all spelled out pretty clear here.

[CaddmannQ]

Oh, great! Next you'll be telling me the significance of the Time Kube and the Spork. 

[Keith™]

... the Spork. ...

Any self respecting geek will maintain posession of a titanium spork