[求助]打开图纸自动替换全部的文字样式为Standard

cadm0211

打开图纸自动替换全部的文字样式为Standard，附加一个条件SHX字体为gbenor.shx 大字体为gbcbig.shx高度为0宽度比例为1 。我上传一个，不过不好用，在使用中的文字样式还是替换不了。请高手帮助。

新黎既

;;;改所有字体为: rs,hztxt
(defun c:rshz (/ a3 ss j n ed)
  (print "程序正在执行中，请稍后......")
  (command "style" "hz" "rs.shx,hztxt.shx" "" "" "" "")
  (setq a3 "hz")
  (setq ss (ssget "x" (list (cons 0 "text"))))
  (setq n (sslength ss))
  (setq j 0)
  (while (< j n)
     (setq ed (ssname ss j))
     (command "change" ed "" "" "" a3 "" "" "")
     (setq j (+ j 1))
   )
)