您的方位:网站主页>Online Casino>常见问题>

怎样检查CAD用了哪些字体的具体阐明

时刻:2015-12-20 来历:网络
  1. 指令【style】,在字体款式里边检查并核算字体。

  2. 用autolisp程序插件检查运用的字体,代码如下:
     

    1. (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】,在指令行检查运用的字体。