wjh-wxr 发表于 2007-5-27 13:03:00

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

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

xyp1964 发表于 2007-6-4 20:51:00

<p>;;;需先加载通用函数xyplib.vlx</p><p>(defun c:test ()<br/>&nbsp; (CMDLA0)<br/>&nbsp; (setq&nbsp;ss (ssget "X" '((0 . "TEXT")))<br/>&nbsp;i&nbsp; -1<br/>&nbsp; )<br/>&nbsp; (while (setq s1 (ssname ss (setq i (1+ i))))<br/>&nbsp;&nbsp;&nbsp; (xyp-SUBUPD s1 7 "宋体")<br/>&nbsp; )<br/>&nbsp; (CMDLA1)<br/>)</p>

清风明月名字 发表于 2013-6-27 20:07:11

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

yp9819 发表于 2020-5-13 09:08:21

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

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

p-3-ianlcc 发表于 2020-5-14 10:08:19

xyplib之前好像曉東CAD有人有分享
不過好像找不到，不知道還有沒有人有。
页: [1]
查看完整版本: [求助]将图纸中的所有文字用另外的字体替换的LISP程序如何编写