|
本帖最后由 zhb236623 于 2011-9-27 22:39 编辑
- (defun c:gzg () ;;更改文字高度
- (setq ss (ssget '((0 . "text"))))
- (setq i 0)
- (repeat (sslength ss)
- (setq ssn (ssname ss i)
- endata (entget ssn)
- endata (subst (cons 40 3) (assoc 40 endata) endata)
- i (1+ i)
- )
- (entmod endata)
-
- )
- )
复制代码 可以用类似方法解决想要更改回来的地物 此程序是更改文字高度 选中的文字都改为 3 。 想要改为多少只要3-》变成想要的字体大小即可。。。- (defun c:gzk () ;;更改文字宽度
- (setq ss (ssget '((0 . "text"))))
- (setq i 0)
- (repeat (sslength ss)
- (setq ssn (ssname ss i)
- endata (entget ssn)
- endata (subst (cons 41 0.8) (assoc 41 endata) endata)
- i (1+ i)
- )
- (entmod endata)
-
- )
- )
复制代码 电杆的话好像是个块,(ssget '((0 . "text")))-》(ssget '((0 . "insert"))) 然后改改可以把那些插入的块都一起改过来。 |
|