[必看]：使你的图纸看起来更美观

civil_liyan

用PKPM软件的朋友都知道，PKPM形成的文字都是两端对齐的，fit对齐方式，如果对文字
进行编辑，如果修改的字对原来的多，文字就变瘦了，改的字比原来的少，文字就变胖了。
可以用CHTEXT.lsp改为左对齐，但是文字的高宽比是改变不了的，有的文字高宽比是0.88，
有的则是1.0感觉不是很好。小弟特奉上一小程序改变文字高宽比，先用CHTEXT改为左对齐
再用小弟的程序改文字高宽比为统一的0.72，或您想要的任何比例，保证您图纸上的文字看
起来纤细苗条，文字不再胖瘦不一。

2. 
   
3. (defun c:gb()
   
4.         (setq s (getvar "cmdecho"))
   
5.         (setvar "cmdecho" 0)
   
6.         (setq s0 (ssget))
   
7.         (setq hzt nil)
   
8.         (while (not hzt)
   
9.                (setq hzt (getreal "    请输入文字高宽比 :-) "))
   
10.         )
    
11.         (setq i 0)
    
12.         (while (ssname s0 i)
    
13.                (if (= (cdr (assoc 0 (entget (ssname s0 i)))) "TEXT")
    
14.                    (progn
    
15.                         (setq e1 (entget (ssname s0 i)))
    
16.                         (setq e1 (subst (cons 41 hzt) (assoc 41 e1) e1))
    
17.                         (entmod e1)
    
18.                         (entupd (ssname s0 i))
    
19.                    )
    
20.                 )
    
21.                 (setq i (1+ i))
    
22.         )
    
23.         (setvar "cmdecho" s)
    
24. )
    
25. 
    

<br /> (defun c:gb()<br />         (setq s (getvar "cmdecho"))<br />         (setvar "cmdecho" 0)<br />         (setq s0 (ssget))<br />         (setq hzt nil)<br />         (while (not hzt)<br />                (setq hzt (getreal "    请输入文字高宽比 :-) "))<br />         )<br />         (setq i 0)<br />         (while (ssname s0 i)<br />                (if (= (cdr (assoc 0 (entget (ssname s0 i)))) "TEXT")<br />                    (progn<br />                         (setq e1 (entget (ssname s0 i)))<br />                         (setq e1 (subst (cons 41 hzt) (assoc 41 e1) e1))<br />                         (entmod e1)<br />                         (entupd (ssname s0 i))<br />                    )<br />                 )<br />                 (setq i (1+ i))<br />         )<br />         (setvar "cmdecho" s)<br /> )<br /> <br />