[转贴]：批量修改文字字高

fengjianwei · 发表于 2006-9-11 16:21:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

可以修改TEXT文本，也可以修改MTEXT文本。有些网站中，只可以修改TEXT文本
(defun c:chth( / a ns ts n index b1 b2 c c1 c2 d)
  (setq a (ssget))
  (setq ts (getdist "\nEnter new text size:"))
  (setq n (sslength a))
  (setq index 0)
  (repeat n
(setq b1 (entget (ssname a index)))
(setq index (+ index 1))
(setq c1 (assoc 0 b1))
(setq c2 (cdr c1))
(if (or (= c2 "MTEXT") (= c2 "TEXT"))
................

全文请查看
还有很多图层管理程序
改变某图层的随层颜色
关闭某些图层
只显示当前层
显示选择的图层，关闭其它为选择的图层
显示选择的图层，关闭其它图层
打开所有图层
获取图层颜色
http://hi.baidu.com/ywxsh/blog/index/1

ss1025 · 发表于 2006-9-13 23:55:14

坛子里有好多更好的程序。

xmchy · 发表于 2006-9-14 20:12:18

有几个,不是很多,

qsb506 · 发表于 2006-9-14 23:29:47

楼主，改文本的全文到底在哪里啊？

linux1234 · 发表于 2006-9-22 14:08:11

俺需要修改文本样式的

LAYOUT95 · 发表于 2006-9-24 14:49:19

用CAD的过滤功能

laoxie_1983 · 发表于 2006-9-25 08:11:13

不要搞得这么神密吗?咱来发一个:
(defun c:chzg()'改变标注距离字体高度
  (setq e1 (ssget))
  (setq nh (cons 40 (getdist "\n请输入新的字体高度:")))
  (setq l 0)
  (repeat (sslength e1)'计算实体数目
  (setq e3 (entget (ssname e1 l)))
   (if (or (= (cdr (assoc 0 e3)) "TEXT") (= (cdr (assoc 0 e3)) "MTEXT"))
      (entmod (subst nh (assoc 40 e3 )e3))
      )
   (setq l (+ l 1))
)
(princ)
)

雨箭风刀 · 发表于 2006-9-25 12:38:21

一般我就在属性面板里面改了（ctrl+1）
或用 textscale 也比较满意。
写过一个通用改字高的，除了TEXT,Mtext，还可以改属性，标注文字，块内文字好像也可以改，忘了，要改也不难。在论坛发过

winunix · 发表于 2006-9-26 21:06:35

有没有批量修改文字字型的呢，我很需要这个，有的话，贴上来，谢谢了。

jxbxhy · 发表于 2006-9-28 09:25:06

这个论坛内容，不错，太好了，学习了好多东东

linaofo · 发表于 2006-9-28 18:55:34

都很实用！！

marcoyuwen · 发表于 2006-9-30 14:23:09

很一般，用AutoCAD自身命令也可实现。

账号		自动登录	找回密码
密码			立即注册

[转贴]：批量修改文字字高

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子