(defun c:zs() (setq ss (ssget)) (setq len (sslength ss)) (setq n 0) (repeat len (setq ent (ssname ss n)) (setq dxf (entget ent)) (setq kuan (assoc 41 dxf)) (setq xin (cons 41 0.8)) (setq dxf (subst xin kuan dxf)) (entmod dxf) (setq n (+ 1 n)) ) ) 这个程序是把所有的字的宽度(群码为41,即41代表的就时字宽)改为0.8 群码你可以去帮助中找,要不就看看书,如果你有教科书的话,肯定能找到 |