[求助]：字体的问题?

glxgf123456 · 发表于 2004-11-6 23:58:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

为什么我下载的CAD图纸都找不到字体,出现的是乱码,怎样下载字体库,怎么用,各位帮帮我吧,先谢谢了!

xyp1964 · 发表于 2004-11-7 23:55:40

[php]
更换一种新字体来代替。
也可以用程序解决：
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;xgzt.lsp 修改字体
;;;* C:XGZT
;;;-- XYP@bsedi.com
;;;2004.10.01
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r    加载修改字体程序。")
;-------------------------------------------
;;;主程序
(defun c:XGZT(/ st)
  (cmdla0)
  (setq st (dxf 7 (entget(car (entsel"\n\t选择拟修改的字体 : ")))))
  (COMMAND "style" st "宋体" "400" "1" "0" "" "")
  (cmdla1)
  )

;;;-------------------------------------------
;;;子程序
;;;
(defun CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
  )

;;;
(defun CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (princ)
  )

;;;
; ----------------------- DXF --------------------------
(defun dxf (code elist) (cdr (assoc code elist)))

;;;
(DEFUN PXYP (TXT1)
  (SETQ TXT1 (STRCAT "\n\r    程序命令: "  TXT1 "    -- XYP@bsedi.com"))
  (PRINC TXT1)
  (Princ)
  );defun

;;;
(pxyp"xgzt    (修改字体)")
(princ)
;-------------------------------------------
;;;END
[/php]
加载xgzt.lsp，运行xgzt。点取乱码字体就搞定！

lmk115234 · 发表于 2004-11-9 18:52:51

我看还是直接到网上搜索,下载.然后解压到CAD的安装目录下的FONTS文件夹内即可.
提供一个链接:www.vba.cn

lbb19966957 · 发表于 2004-11-9 19:35:09

不用这么麻烦吧!有ST换字体不就可以了吗,有什么样的字体,就换什么样的啊

fage101 · 发表于 2004-11-9 20:00:49

5楼的朋友能详细说一下吗？我打开别人画的cad图，经常出现乱码！

xyp1964 · 发表于 2004-11-10 12:42:53

最初由 fage101 发布
[B]5楼的朋友能详细说一下吗？我打开别人画的cad图，经常出现乱码！ [/B]

试试运行2楼的程序！

swhlzl · 发表于 2004-11-11 11:13:57

http://www.newtumu.com/
这里有很多字体

jiangzq01 · 发表于 2004-11-12 16:15:56

打开别人的字体里出现乱码，说明你的字库里没有相应的字体，把相应的字体拷贝到CAD的安装目录中去，然后重新启动CAD，如果还有乱码，就在格式-文字样式里修改，就可以了

账号		自动登录	找回密码
密码			立即注册

[求助]：字体的问题?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子