用法
评论
建议
取 消
确 定
(defun entity:check-error-codes (doc) "消除字体乱码,利用gbenor.shx gbcbig.shx\n参数:\ndoc:当前活动文档" "无" "(entity:Check-Error-Codes *DOC*)" (vlax-for txtstyle (vla-get-textstyles doc) (if (findfile (vla-get-fontfile txtstyle)) nil (vla-put-fontfile txtstyle "tssdeng.shx")) (if (findfile (vla-get-bigfontfile txtstyle)) nil (vla-put-bigfontfile txtstyle "tssdchn.shx"))) (princ))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新