|
|
发表于 2004-6-4 09:31:00
|
显示全部楼层
強迫轉換字體(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)
)
|
|
置顶卡
