19xy19 发表于 2018-2-6 13:06
说话算话，100RMB微信转给你吧~大神你私信我一下微信吧，我加你~
搜不到微信。。。。
19xy19 发表于 2018-2-6 13:10
也谢谢你哈~也微信私信我一下吧~30献上~
不用，又没写插件，也没咋帮上忙，随手测试一下的事。
本帖最后由 ntwison 于 2018-2-6 16:39 编辑
{:1_1:}刚才用手机发的，现在电脑才连上网
本帖最后由 ntwison 于 2018-2-6 16:39 编辑
再试试下面这个
(defun C:tt( / a b m n)
(setq ssnet (ssget "X" '((0 . "MTEXT"))))
(setq n (sslength ssnet))
(setq m 0)
(setq O-ttp "{\\\fTimes New Roman");Arial改成图中需要改变的字体
(while (< m n)
(setq N-ttp "{\\\fArial");Times New Roman改成想要的字体
(setq a (ssname ssnet m))
(setq b (entget a))
(setq T-old (cdr (assoc 1 b)))
(setq T-match (substr T-old 1 18))
(if (wcmatch T-match O-ttp)
(progn
(setq L-txt (strlen T-old))
(setq Mid-txt (substr T-old 19 L-txt))
(setq N-ttp (strcat N-ttp Mid-txt))
(setq M-txt (subst(cons 1 N-ttp) (assoc 1 b) b));文字样式修改
(entmod M-txt);更新图元
);progn
);if
(setq m (1+ m))
);while
(princ)
);END defun
楼主还需要方法吗，我今天还调过
lrd1861 发表于 2018-2-6 09:23
试一试这个
可不可以吧源码奉献出来，我也需要改另一种字体