[求助]如何确定cad已添加了某种字体
如题，请问<font face="Verdana">[求助]如何确定cad已添加了某种字体</font>，如果在Font目录里查找，怎样得到Font目录，谢谢 <p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">;获得字体文件夹路径</font></p><p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Fonts") </font></p>
<p> </p>
<p>;查找文件</p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(findfile file_font_win)</font></p>
<p> </p>
<p>file_font_win这个变量应该不难写出来吧</p>
<p> </p>
<p>有了以上就能直接写出来了</p> santalin 发表于 2010-10-3 10:18 static/image/common/back.gif
;获得字体文件夹路径
(vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVers ...
收藏了，以便以后学习，谢谢！ ;列出当前图中字体名 明经 ZZXXQQ 2013.11.3
(defun c:tt ()
(setq sty nill)
(while (setq sty (tblnext "STYLE" (not sty)))
(princ "\n字体名 = ") (princ (cdr(assoc 2 sty)))
(princ ", 字体 = ") (princ (cdr(assoc 3 sty)))
(if (/= (cdr(assoc 4 sty)) "") (progn
(princ ", 大字体 = ")
(princ (cdr(assoc 4 sty)))
))
)
(princ)
)
页:
[1]