选择文件-电子传递
确定后会生成一个压缩包,里面有个文本文件,里面有:
传递中不包括下列文件:
Fonts\simplex.shx
Fonts\SIMHEI.TTF
Fonts\sasbo___.shx
Fonts\swisseb.ttf
Fonts\dutchi.ttf
说明你这里面用了这些字体
你到CAD安装路径下的Fonts里面找上述的这些字体传给别人,就可以了
命令【style】,在字体样式里面查看并统计字体。
用autolisp程序插件查看使用的字体,代码如下:
(defun C:tes ( / &n2 &ss1 fontname ss1 ss2 txt txts txtstyle)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(if (null vlax-dump-object) (vl-load-com) )
(setq txts (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))))
(setq &ss1 '())
(vlax-for txt txts
(setq &ss1 (cons (vla-get-name txt) &ss1))
);取得文字样式集合
(setq ss1 '() ss2 '())
(while (setq txt (car &ss1))
(setq &ss1 (cdr &ss1) TxtStyle (vla-Item txts txt))
(if (/= (setq fontname (vla-get-fontfile txtStyle)) "");1;得到字体名称
(progn;;1
(if (null (setq &n2 (findfile fontname)));2;先搜索CAD里面的字体
(setq &n2 (findfile (strcat "C:\\WINDOWS\\Fonts\\" fontname)));搜索不到的话,搜索系统里面的字体
);if;2;搜索字体
(setq ss1 (cons fontname ss1))
(if &n2;21;如果有这个字体
(setq ss2 (cons fontname ss2))
);if;21
);progn;1
);if;1
(if (/= (setq fontname (vla-get-bigfontfile TxtStyle)) "");3;得到大字体的名称
(progn;;3
(if (null (setq &n2 (findfile fontname)));搜索大字体
(setq &n2 (findfile (strcat "C:\\WINDOWS\\Fonts\\" fontname)));如果没有就搜索系统里面的字体
);搜索字体
(setq ss1 (cons fontname ss1))
(if &n2;31;如果有找到这个字体
(setq ss2 (cons fontname ss2))
);if;31
);progn;3
);if;3
);while
(if (> (length ss1) 0) (progn (princ "\n图纸里面使用的字体: ") (princ ss1) ))
(if (> (length ss2) 0) (progn (princ "\nfonts文件夹里面的字体有: ") (princ ss2) ))
(princ)
);复制到记事本,以【.lsp】为后缀命名,autolisp加载,命令【TES】,在命令行查看使用的字体。
不用,把你用的字体改为cad最常用字体就可以了,在格式-文字样式里修改。
打开时选用gbcbig字体,这种字体在cad里面是用线描的,相当于字也是图,是用线描出来的,一般就不会出问题。
最保险的办法就是打开你的安装好CAD文件夹,把Fonts文件夹里的东东全部给他,让他放在同名文件夹里。