|
本帖最后由 zhb236623 于 2011-9-20 22:36 编辑
写个小程序搞定....类似这个..更改文字高度......- (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)
-
- )
- )
复制代码 |
|