[求助]请教CAD高手?

tailake · 发表于 2004-8-9 15:26:00

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

gzy · 发表于 2004-8-9 21:38:00

最好找作者要.

woleikk · 发表于 2004-8-9 21:42:00

这个要求很荒唐，

老菲 · 发表于 2004-8-10 00:20:00

要内码支持.

f5612140 · 发表于 2004-8-10 10:29:00

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

cl12232000 · 发表于 2004-8-10 11:52:00

侠之大者 :
请问怎么编程呀, 你怎么不说清楚?!

f5612140 · 发表于 2004-8-10 16:15:00

请参考

copy


(defun c:ccc()     (setvar "cmdecho" 0)
     (setq twidth (getreal (strcat "\nSetup Text Width:?")))
     (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)
)