[求助]如何确定cad已添加了某种字体

xiaoquansb

如题，请问[求助]如何确定cad已添加了某种字体，如果在Font目录里查找，怎样得到Font目录，谢谢

santalin

;获得字体文件夹路径

(vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Fonts")

 

;查找文件

(findfile file_font_win)

 

file_font_win这个变量应该不难写出来吧

 

有了以上就能直接写出来了

illcyt

santalin 发表于 2010-10-3 10:18
;获得字体文件夹路径
(vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVers ...

收藏了，以便以后学习，谢谢！

ZZXXQQ

2. ;列出当前图中字体名 明经 ZZXXQQ 2013.11.3
   
3. (defun c:tt ()
   
4. (setq sty nill)
   
5. (while (setq sty (tblnext "STYLE" (not sty)))
   
6.   (princ "\n字体名 = ") (princ (cdr(assoc 2 sty)))
   
7.   (princ ", 字体 = ") (princ (cdr(assoc 3 sty)))
   
8.   (if (/= (cdr(assoc 4 sty)) "") (progn
   
9.    (princ ", 大字体 = ")
   
10.    (princ (cdr(assoc 4 sty)))
    
11.   ))
    
12. )
    
13. (princ)
    
14. )
    

;列出当前图中字体名 明经 ZZXXQQ 2013.11.3<br /> (defun c:tt ()<br /> (setq sty nill)<br /> (while (setq sty (tblnext "STYLE" (not sty)))<br />   (princ "\n字体名 = ") (princ (cdr(assoc 2 sty)))<br />   (princ ", 字体 = ") (princ (cdr(assoc 3 sty)))<br />   (if (/= (cdr(assoc 4 sty)) "") (progn<br />    (princ ", 大字体 = ")<br />    (princ (cdr(assoc 4 sty)))<br />   ))<br /> )<br /> (princ)<br /> )<br />