（XD::TextStyle:TTF-P）根据系统字体的typeface名获取TrueType字体名

Lispboy

命令: (XD::TEXTSTYLE:TTF-P "fangsong")
("Fangsong (TrueType)" "simfang.ttf")

1. (defun XD::TextStyle:TTF-P (ttf / reg dep _tmp)
   
2.   (setq        reg "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
   
3.         dep (vl-registry-descendents reg "")
   
4.   )
   
5.   (if (setq _tmp (xdrx-string-regexps
   
6.                    (strcat (xdrx-string-regexpr "\\..*$" ttf "")
   
7.                            "(?=[ ]+\\(.*type\\))"
   
8.                    )
   
9.                    (xdrx-string-join dep " ")
   
10.                  )
    
11.       )
    
12.     (list (setq _tmp (strcat (car _tmp) " (TrueType)"))
    
13.           (vl-registry-read reg _tmp)
    
14.     )
    
15.   )
    
16. )
    
17. 
    

(defun XD::TextStyle:TTF-P (ttf / reg dep _tmp)<br />   (setq        reg "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"<br />         dep (vl-registry-descendents reg "")<br />   )<br />   (if (setq _tmp (xdrx-string-regexps<br />                    (strcat (xdrx-string-regexpr "\\..*$" ttf "")<br />                            "(?=[ ]+\\(.*type\\))"<br />                    )<br />                    (xdrx-string-join dep " ")<br />                  )<br />       )<br />     (list (setq _tmp (strcat (car _tmp) " (TrueType)"))<br />           (vl-registry-read reg _tmp)<br />     )<br />   )<br /> )<br /> <br />

tzfcn

这可以方便的统一字体