[求助]字体样式替换？

azjmjsj

我想把CAD图中的多种文字样式全部用一种新的文字样式替换，在lisp下如何编程实现？

请各位大哥帮忙！！！

紫云飞

简单的小程序，试一下吧

(defun c:cc(/)
  (setq b1 (getstring "请输入文字样式："))
  (setq d2 (cons 7 b1))
  (setq ss (ssget "x" (list (cons 0 "TEXT"))))
  (setq n (sslength ss))
  (setq index 0)
  (repeat n
    (setq b1 (entget (ssname ss index)))
    (setq d1 (assoc 7 b1))
    (setq b3 (subst d2 d1 b1))
    (entmod b3)
    (setq index (+ index 1))
  )

(princ)
)

紫云飞

如果把(setq ss (ssget "x" (list (cons 0 "TEXT"))))改成(setq ss (ssget "x" '((0 . "TEXT,MTEXT"))))那就连多行文本也能更改了！

azjmjsj

谢谢!!!

azjmjsj

再次请教，如何将图中所有字高为4的文本（text和Mtext)一次性选择，做如下修改：字高改为5，图层变为08层，用lisp如何编程实现？

yizhi4669

经常汇总来自各厂家的图纸，为字体都快烦死了！

这个程序太强了！

caoyin

2. (defun c:TT (/ );假设08层存在
3. (setq SS(ssget "_X" '((0 . "*TEXT") (40 . 4))))
4. (repeat (setq I (sslength SS))
5.   (setq DAT (entget (ssname SS (setq I (1- I)))))
6.   (setq DAt (subst '(8 . "08") (assoc 8 DAT) DAT))
7.   (setq DAT (subst '(40 . 5) (assoc 40 DAT) DAT))
8.   (entmod DAT)
9. )
10. )

(defun c:TT (/ );假设08层存在 (setq SS(ssget "_X" '((0 . "*TEXT") (40 . 4)))) (repeat (setq I (sslength SS))   (setq DAT (entget (ssname SS (setq I (1- I)))))   (setq DAt (subst '(8 . "08") (assoc 8 DAT) DAT))   (setq DAT (subst '(40 . 5) (assoc 40 DAT) DAT))   (entmod DAT) ) )

zxfddz

这个程序好用

hydkot99

如何修改文件中所有字体的宽高比呢？