dcg553496180 发表于 2014-1-22 11:00:26

如何修改文字样式

想将选定的文字修改成统一的文字样式 Standard，请教各位大神如何实现，小弟在此拜谢

llsheng_73 发表于 2014-1-22 11:10:51

(setq ss(ssget'((0 . "TEXT")))
(if ss(progn
   (setq m(sslength ss)n 0)
   (while(< n m)
   (setq en(entget(ssname ss n))n(1+ n))
   (entmod(subst'(7 . "Standard")(assoc 7 en)en)))))

dcg553496180 发表于 2014-1-22 14:51:45

llsheng_73 发表于 2014-1-22 11:10 static/image/common/back.gif
(setq ss(ssget'((0 . "TEXT")))
(if ss(progn
   (setq m(sslength ss)n 0)


多行文字不能运用

dcg553496180 发表于 2014-1-22 16:16:40

llsheng_73 发表于 2014-1-22 11:10 static/image/common/back.gif
(setq ss(ssget'((0 . "TEXT")))
(if ss(progn
   (setq m(sslength ss)n 0)


ok了，非常感谢

312735894 发表于 2014-1-22 19:32:24

dcg553496180 发表于 2014-1-22 14:51 static/image/common/back.gif
多行文字不能运用

(setq ss (ssget '((0 . "TEXT,MTEXT"))))

dcg553496180 发表于 2014-1-23 08:23:23

312735894 发表于 2014-1-22 19:32 static/image/common/back.gif
(setq ss (ssget '((0 . "TEXT,MTEXT"))))

我当时改了下，写的是（setq ss （ssget "x" (list (cons 0 MTEXT))))
问题好像是出在后面，后来改好了
页: [1]
查看完整版本: 如何修改文字样式