[求助]将图纸中的所有文字用另外的字体替换的LISP程序如何编写

wjh-wxr

[求助]将图纸中的所有文字用另外的字体替换的LISP程序如何编写，例如我要把图纸中的所有字都用“HZ.SHX"代替

xyp1964

;;;需先加载通用函数xyplib.vlx

(defun c:test ()
  (CMDLA0)
  (setq ss (ssget "X" '((0 . "TEXT")))
 i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (xyp-SUBUPD s1 7 "宋体")
  )
  (CMDLA1)
)

清风明月名字

谢谢XYP1964老师的分享，太好了！

yp9819

xyp1964 发表于 2007-6-4 20:51
;;;需先加载通用函数xyplib.vlx(defun c:test ()  (CMDLA0)  (setq ss (ssget "X" '((0 . " ...

老师 xyplib.vlx函数到哪里有呢？如何加载呢

p-3-ianlcc

xyplib之前好像曉東CAD有人有分享
不過好像找不到，不知道還有沒有人有。