批量修改文字字高:支持TEXT和MTEXT两种格式
<P>可以修改TEXT文本,也可以修改MTEXT文本。有些网站中,只可以修改TEXT文本<BR>(defun c:chth( / a ns ts n index b1 b2 c c1 c2 d)<BR>(setq a (ssget))<BR>(setq ts (getdist "\nEnter new text size:"))<BR>(setq n (sslength a))<BR>(setq index 0)<BR>(repeat n<BR>(setq b1 (entget (ssname a index)))<BR>(setq index (+ index 1))<BR>(setq c1 (assoc 0 b1))<BR>(setq c2 (cdr c1))<BR>(if (or (= c2 "MTEXT") (= c2 "TEXT"))<BR>................<BR><BR>全文 请查看<BR><A href="http://hi.baidu.com/ywxsh/blog/index/1" target="_blank" ><FONT color=#000000>http://hi.baidu.com/ywxsh/blog/index/1</FONT></A> </P><P><BR>还有很多图层管理程序<BR>改变某图层的随层颜色<BR>关闭某些图层<BR>只显示当前层<BR>显示选择的图层,关闭其它为选择的图层<BR>显示选择的图层,关闭其它图层<BR>打开所有图层<BR>获取图层颜色 </P> 上当,没源码 用“选择易”,选中后,直接修改。 scaletext命令试试看
页:
[1]