[求助]：打开一个文件时，出现很多？？？，怎么一次将这些？？替换为已有的字体

intertiger · 发表于 2003-11-12 20:02:32

有没有cht命令命令的应用说明啊

lxwlgylxw · 发表于 2003-11-12 21:08:52

有没有cht命令命令的应用说明啊

[斑竹提示]：多次抄袭楼上的回复，涉嫌恶意灌水。　    by cdhua001

f5612140 · 发表于 2003-11-12 21:29:30

一個簡單的lisp程序,將chineset.shx改成各位希望的字體
二樓說得好,類似秦始皇統一文字,將其他圖檔顯示???的字型換成電腦中有
的字型即可

(defun c:ccc()
(setvar "cmdecho" 0)
(setq aa (tblnext "style" t))
(while aa
(setq textpe (cdr (assoc 2 (cdr aa))))
(setq engtpe (cdr (assoc 3 (cdr aa))))
(setq chitpe (cdr (assoc 4 (cdr aa))))
(if (= chitpe "")
(setq stp engtpe)
(setq stp (strcat engtpe "," "chineset.shx"))
)
(command "style" textpe stp "" "" "" "" "" "")
(setq aa (tblnext "style"))
)
(command "style" "china" "romans,chineset" "" ".5" "" "" "" "")
(print "style setup O.K.")
(prin1)
)
(prin1)

显示全部楼层 · 发表于 2003-11-12 21:32:14

提示: 作者被禁止或删除内容自动屏蔽

笑傲糨糊 · 发表于 2003-11-12 21:57:41

最初由 f5612140 发布
[B]一個簡單的lisp程序,將chineset.shx改成各位希望的字體
二樓說得好,類似秦始皇統一文字,將其他圖檔顯示???的字型換成電腦中有的字型即可[/B]

看来讨厌字体文件泛滥大有人在，哈哈～～
你的程序：
(if (= chitpe "")
      (setq stp engtpe)
      (setq stp (strcat engtpe "," "chineset.shx"))
   )
   (command "style" textpe stp "" "" "" "" "" "")
   (setq aa (tblnext "style"))
)
(command "style" "china" "romans,chineset" "" ".5" "" "" "" "")

如果改成下面的话，这秦始皇好像就温柔一点，哈哈～～

(setq engtpel (strlen engtpe))
   (if  (and
         (/= engtpe nil)
         (= chitpe nil)
         (= (findfile engtpe) nil)
         (= (strcase (substr engtpe (- engtpel 2))) "SHX")
         )
      (command "_style" textpe "romans.shx" "0.0" "0.8" "" "" "" "")
   )
   (if  (and
         (/= chitpe  nil)
         (= (findfile chitpe ) nil)
         )
      (command "_style" textpe "romans.shx,chineset.shx" "0.0" "0.8" "" "" "" "")
   )

intertiger · 发表于 2003-11-12 22:07:42

看到lisp就头晕，（cad的编制语言，不知道叫错了没有），不知道为什么这么多人学它，也不知道学会了又用它来做什么，不会仅仅是为了cad而学的吧，糨糊老兄，你用他来做什么，还有就是你的钱好多啊，不会是播采回来的吧，我昨天刚在那里经历了黑色时间。。。

f5612140 · 发表于 2003-11-12 22:11:57

謝謝糨糊老兄的指教,給小弟另一個思考的方向
-->笑傲老兄 (唸起來還是糨糊老兄比較順,玩笑話,勿怪)
因23樓帖修改

笑傲糨糊 · 发表于 2003-11-12 22:21:17

对不起，我可不叫“糨糊”，我是“笑傲”那些“糨糊”的。糨糊的杀手怎么成了“糨糊”？呵呵。。。。。。

intertiger · 发表于 2003-11-12 22:24:37

。。。。。。。。你不是笑我是糨糊吧。。。。。。。。。。。

笑傲糨糊 · 发表于 2003-11-12 22:47:14

回22楼：名字只是个代号而已，如果顺口，那就叫“糨糊老兄”蛮亲切的嘛。
回24楼：怎么会呢？
回21楼：Lisp能起一点作用，但起不了大作用。我们本来就是用户而不是软件开发人员，用Lisp作点补充就够了。

intertiger · 发表于 2003-11-12 22:52:30

注：21楼同24楼。。。。。。。。。。
不知道好学不好学，不过看来学会了好处很多，有时间一定学

wangxin810 · 发表于 2003-11-13 00:42:10

如果不是同一种字体，需要在文字样式中添加所需的多种字体

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

lquer1 该用户已被删除	发表于 2003-11-12 21:32:14 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
lquer1 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报