style “形文件未定义”错误

fengyun7000

我想建立一个大字体格式，在桌面上放了一个txt.shx和hztxt.shx文件，用晓东这个程序调，程序通过了
在CAD下用不了，总出现““形文件未定义””的错误，谁有办法解决呀？
(defun c:maksty ()
(setq bigfont "C:\\Users\\hanjianwen\\Desktop\\hztxt.shx")
(setq fontfile "C:\\Users\\hanjianwen\\Desktop\\txt.shx")
(setq name "hanstyle" width 0.7)
(xd::setefont name bigfont fontfile width)
)
(defun xd::setefont (name bigfont fontfile width / ts st)
  (if (not (wcmatch bigfont "*.shx"))
    (setq bigfont (strcat bigfont ".shx"))
  )
  (if (not (wcmatch fontfile "*.shx"))
    (setq fontfile (strcat fontfile ".shx"))
  )
  (if (and (not (tblsearch "style" name))
           (findfile bigfont)
           (findfile fontfile)
      )
    (progn
      (setq ts (vla-get-textstyles
                 (vla-get-activedocument (vlax-get-acad-object))
               )
            st (vla-add ts name)
      )
      (vla-put-bigfontfile st bigfont)
      (vla-put-fontfile st fontfile)
      (vla-put-width st width)
      t
    )
  )
)

zhystar

初学，看看了解一下

Lisphk

图片里面的，hztxt.shx前面有个图标，
1、可能是权限的问题
2、可能是字体文件的问题

建议，你把字体文件拷贝到D盘，然后设置下，看看是否还有问题。

fengyun7000

已解决。
重新启动下CAD，新图里就没问题了。