请各位版主更改一下 标注箭头与文字的缩放问题

zzmm

这行代码是G版写的  我增加了一行箭头的缩放     能把这行代码改写为
       增加时  按1.5 - 2 - 2.5 。。。。持续增加
       减小时  第一次 缩小到原有文字箭头的0.5倍
               第二次 箭头和文字消失不见

2. ;;动态调整标注字高
   
3. (defun c:ttv (/ ss n l gr loop)
   
4.   (while (setq ss (ssget '((0 . "DIMENSION"))))
   
5.     (setq l nil)
   
6.     (repeat (setq n (sslength ss))
   
7.       (setq l (cons (vlax-ename->vla-object (ssname ss (setq n (1- n)))) l))
   
8.       )
   
9.     (setq loop t)
   
10.     (princ "\n** 按键 "+" 增大字高 "-" 减小字高 <回车键、鼠标左键结束>")
    
11.     (while loop
    
12.       (setq gr (grread t 15))
    
13.       (cond
    
14.         ((= 3 (car gr))
    
15.          (setq loop nil)
    
16.          )
    
17.         ((= 2 (car gr))
    
18.          (cond
    
19.            ((or (= 13 (cadr gr)) (= 32 (cadr gr)))
    
20.             (setq loop nil)
    
21.             )
    
22.            ((= 43 (cadr gr)) ;_ +
    
23.             (mapcar
    
24.               '(lambda (o)
    
25.                  (vla-put-TextHeight o (* 1.5 (vla-get-TextHeight o)))
    
26.                  (vla-put-ArrowheadSize o (* 1.5 (vla-get-ArrowheadSize o)))
    
27.                  )
    
28.               l
    
29.               )
    
30.             )
    
31.            ((= 45 (cadr gr)) ;_ -
    
32.             (mapcar
    
33.               '(lambda (o)
    
34.                  (vla-put-TextHeight o (* 0.5 (vla-get-TextHeight o)))
    
35.                  (vla-put-ArrowheadSize o (* 0.5 (vla-get-ArrowheadSize o)))
    
36.                  )
    
37.               l
    
38.               )
    
39.             )
    
40.            )
    
41.          )
    
42.         )
    
43.       )
    
44.     )
    
45.     (princ)
    
46.   )

;;动态调整标注字高<br /> (defun c:ttv (/ ss n l gr loop)<br />   (while (setq ss (ssget '((0 . "DIMENSION"))))<br />     (setq l nil)<br />     (repeat (setq n (sslength ss))<br />       (setq l (cons (vlax-ename->vla-object (ssname ss (setq n (1- n)))) l))<br />       )<br />     (setq loop t)<br />     (princ "\n** 按键 "+" 增大字高 "-" 减小字高 <回车键、鼠标左键结束>")<br />     (while loop<br />       (setq gr (grread t 15))<br />       (cond<br />         ((= 3 (car gr))<br />          (setq loop nil)<br />          )<br />         ((= 2 (car gr))<br />          (cond<br />            ((or (= 13 (cadr gr)) (= 32 (cadr gr)))<br />             (setq loop nil)<br />             )<br />            ((= 43 (cadr gr)) ;_ +<br />             (mapcar<br />               '(lambda (o)<br />                  (vla-put-TextHeight o (* 1.5 (vla-get-TextHeight o)))<br />                  (vla-put-ArrowheadSize o (* 1.5 (vla-get-ArrowheadSize o)))<br />                  )<br />               l<br />               )<br />             )<br />            ((= 45 (cadr gr)) ;_ -<br />             (mapcar<br />               '(lambda (o)<br />                  (vla-put-TextHeight o (* 0.5 (vla-get-TextHeight o)))<br />                  (vla-put-ArrowheadSize o (* 0.5 (vla-get-ArrowheadSize o)))<br />                  )<br />               l<br />               )<br />             )<br />            )<br />          )<br />         )<br />       )<br />     )<br />     (princ)<br />   )

    原有标注        减地二次时        

【KAIXIN】

2004 显示正常

zzmm

我是要改动代码  让原始标注在按  -   号时  第一次比例缩减 0.5   地二次 箭头 文字都消失

ll_j

2012正常。
请再检查标注设置是不是有什么特别的。

【KAIXIN】

zzmm 发表于 2013-2-1 13:18
我是要改动代码  让原始标注在按  -   号时  第一次比例缩减 0.5   地二次 箭头 文字都消失

你是要消失？那第三次呢？第四次.......？

tianyi1230

文字太小了吧，可以使用，但是07下面+只能在小键盘上使用