[求助]请教CAD高手?

tailake

由于工作原因,我需要编辑日本传来的图纸,由于字体的不同,每次总要在字体样式中修改,非常麻烦,是不是只要有日文字体就可以了,如果谁有提供给我一些.

gzy

最好找作者要.

woleikk

这个要求很荒唐，

老菲

要内码支持.

f5612140

tailake发表于2004-8-9 15:26:00回复：（tailake）请教CAD高手? 由于工作原因,我需要编辑日本传来的图纸,由于字体的不同,每次总要在字体样式中修改,非常麻烦

可透过编程,一个指令搞定

cl12232000

侠之大者 :


请问怎么编程呀,         你怎么不说清楚?!

f5612140

请参考

2. (defun c:ccc()     (setvar "cmdecho" 0)
3.      (setq twidth (getreal (strcat "\nSetup Text Width:<0.8>?")))
4.      (if (= twidth nil)(setq twidth 0.8))
5.      (setq aa (tblnext "style" t))
6.      (while aa
7.            (setq textpe (cdr (assoc 2 (cdr aa))))
8.            (setq engtpe (cdr (assoc 3 (cdr aa))))
9.            (setq chitpe (cdr (assoc 4 (cdr aa))))
10.            (if (= chitpe "")
11.                    (setq stp engtpe)
12.                    (setq stp (strcat engtpe "," "chineset.shx"))
13.            )
14.            (command "style" textpe stp "" "" "" "" "" "")
15.            (setq aa (tblnext "style"))
16.      )
17.      (command "style" "china" "romans,chineset" "" twidth "" "" "" "")
18.      (print "style setup O.K.")
19. (prin1)
20. )

(defun c:ccc()     (setvar "cmdecho" 0)      (setq twidth (getreal (strcat "\nSetup Text Width:<0.8>?")))      (if (= twidth nil)(setq twidth 0.8))      (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" "" twidth "" "" "" "")      (print "style setup O.K.") (prin1) )

xiang76

我工作中也常碰到这问题，请f5612140说详细点好吗？


       


我碰到的是繁体中文 。、多谢

zybocai

你们遇见的问题我没见过！

f5612140

xiang76发表于2004-8-13 20:20:00我工作中也常碰到这问题，请f5612140说详细点好吗？         
我碰到的是繁体中文 。、多谢

appload载入,执行ccc