可以修改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
还有很多图层管理程序 改变某图层的随层颜色 关闭某些图层 只显示当前层 显示选择的图层,关闭其它为选择的图层 显示选择的图层,关闭其它图层 打开所有图层 获取图层颜色
|