图面字型批量修改程序

qq_zsw

求助：
　　请教高手我写的批量该文字字体设置程序；我向把图内用道的字体，统一把字型改为宋体，但是

运行后字体找不到，图面文字都变成小问号了．

　　求大家帮忙

(defun C:dty (/)
  (setq sty (tblnext "style" T))
  (while (setq styname (cdr (assoc 2 sty)))
      (setq styname (strcase styname))
      (setq newname  "C:\\WINDOWS\\Fonts\\SimSun.ttc" )
       (setq styent (entget (tblobjname "style" styname)))
       (if (/= (cdr (assoc 3 styent)) newname)
         (setq styent (subst (cons 3 newname) (assoc 3 styent) styent))
         )
       (if (/= (cdr (assoc 4 styent)) "")
         (setq styent (subst '(4 . "") (assoc 4 styent) styent))
         )
        (entmod styent)
    (setq sty (tblnext "style"))
    )
  )

phoenixdjq

下面是我做的，你参考一下吧，希望对你有用

(defun c:st()
(command "-style" "宋体" "宋体" "" 0.8 "" "" "")
(setq ss (ssget '((0 . "TEXT,mtext"))))
(setq len (sslength ss))
(setq n 0)
(repeat len
(setq ent (ssname ss n))
(setq dxf (entget ent))
(setq new (cons 7 "宋体"))
(setq old (assoc 7 dxf))
(setq dxf (subst new old dxf))
(entmod dxf)
(setq n (+ 1 n))
)
)

qq_zsw

楼上的仁兄,多谢指教

不过,我需要的是从符号表直接操作,请指教我的程序为何不行

lzy9788

我的工具箱里有这个程序(http://LZYCAD.ys168.com)

在本站有下载http://www.mjtd.com/Soft/SoftShow.asp?SoftID=50