请教ttf宋体设置问题
 

请教ttf宋体设置问题
www.dimcax.com

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;读出来有.ttf或是.ttf的字体并判断是否有该windows字体文件存在;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (= ttf t)
(progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;新宋体字体文件是simsun.ttc而在cad中是nsimsun.ttf;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (or (= numberfile "nsimsun.ttf") (= numberfile "simsun.ttf"))
(progn
(setq tnm (findfile "simsun.ttc"))
(vl-file-copy tnm (strcat pnm "simsun.ttc") nil)
);end_progn
(if (setq tnm (findfile numberfile))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;存在则复制文件到dwg当前目录;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(vl-file-copy tnm (strcat pnm numberfile) nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;不存在则找出所属的文字样式;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d
期待liminnet大哥答复
d
我也是菜鸟来的
d