说明书一般用什么字体.docVIP

说明书一般用什么字体 篇一：说明书一般用什么字体 (defunnbsp;C:tesnbsp;(nbsp;/nbsp; n2nbsp; ss1nbsp;fontnamenbsp;ss1nbsp;ss2nbsp;txtnbsp;txtsnbsp;txtstyle) nbsp;(setvarnbsp; cmdecho nbsp;0) nbsp;(setvarnbsp; blipmode nbsp;0) nbsp;(ifnbsp;(nullnbsp;vlax-dump-object)nbsp;(vl-load-com)nbsp;) nbsp;(setqnbsp;txtsnbsp;(vla-get-textstylesnbsp;(vla-get-activedocumentnbsp;(vlax-get-acad-object)))) nbsp;(setqnbsp; ss1nbsp;”()) nbsp;(vlax-fornbsp;txtnbsp;txts nbsp;(setqnbsp; ss1nbsp;(consnbsp;(vla-get-namenbsp;txt)nbsp; ss1)) nbsp;);取得文字样式集合 nbsp;(setqnbsp;ss1nbsp;”()nbsp;ss2nbsp;”()) nbsp;(whilenbsp;(setqnb sp;txtnbsp;(carnbsp; ss1)) nbsp;(setqnbsp; ss1nbsp;(cdrnbsp; ss1)nbsp;TxtStylenbsp;(vla-Itemnbsp;txtsnbsp;txt)) nbsp;(ifnbsp;(/=nbsp;(setqnbsp;fontnamenbsp;(vla-get-fontfilenbsp;txtStyle))nbsp; 1;得到字体名称 nbsp;(progn;;1 nbsp;(ifnbsp;(nullnbsp;(setqnbsp; n2nbsp;(findfilenbsp;fontname)));2;先搜索CAD里面的字体 nbsp;(setqnbsp; n2nbsp;(findfilenbsp;(strcatnbsp; C:\WINDOWS\Fonts\ nbsp;fontname)));搜索不到的话，搜索系统里面的字体 nbsp;);if;2;搜索字体 nbsp;(setqnbsp;ss1nbsp;(consnbsp;fontnamenbsp;ss1)) nbsp;(ifnbsp; 21;如果有这个字体 nbsp;(setqnbsp;ss2nbsp;(consnbsp;fontnamenbsp;ss2)) nbsp;);if;21 nbsp;);progn;1 nbsp;);if;1 nbsp;(ifnbsp;(/=nbsp;(setqnbsp;fontnamenbsp;(vla-get-bigfontfilenbsp;TxtStyle))nbsp; 3;得到大字体的名称 nbsp;(progn;;3 nbsp;(ifnbsp;(nullnbsp;(setqnbsp; n2nbsp;(findfilenbsp;fontname)));搜索大字体 nbsp;(setqnbsp; n2nbsp;(findfilenbsp;(strcatnbsp; C:\WINDOWS\Fonts\ nbsp;fontname)));如果没有就搜索系统里面的字体 nbsp;);搜索字体 nbsp;(setqnbsp;ss1nbsp;(consnbsp;fontnamenbsp;ss1)) nbsp;(ifnbsp; 31;如果有找到这个字体 nbsp;(setqnbsp;ss2nbsp;(consnbsp;fontnamenbsp;ss2)) nbsp;);if;31 nbsp;);progn;3 nbsp;);if;3 nbsp;);while nbsp;(ifnbsp;( nbsp;(lengthnbsp;ss1)nbsp;0)nbsp;(prognnbsp;(princnbsp; 图纸里面使用的字体:nbsp; )nbsp;(princnbsp;ss1)nbsp;)) nbsp;(ifnbsp;( nbsp;(lengthnbsp;ss2)nbsp;0)nbsp;(prognnbsp;(princnbsp; fonts文件夹里面的字体有:nbsp; )nbsp;(princnbsp;ss2)nbsp;)) nbsp;(princ) );复制到记事本，以【.lsp】为后缀命名，autolisp加载，命令【TES】，在命令行查看使用的字体。 篇二： 安装造价