求一个功能，是标注的文字的字体大小变成原来的两倍

664571221

求一个功能，是标注的文字的字体大小变成原来的两倍，可以框选

Gu_xl

1. (defun c:tt (/ ss k obj)  (vl-load-com)
   
2.   (if (setq ss (ssget '((0 . "DIMENSION"))))
   
3.     (repeat (setq k (sslength ss))
   
4.       (vla-put-TextHeight
   
5.         (setq obj (vlax-ename->vla-object (ssname ss (setq k (1- k)))))
   
6.         (* 2 (vla-get-textheight obj))
   
7.       )
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt (/ ss k obj)  (vl-load-com)<br />   (if (setq ss (ssget '((0 . "DIMENSION"))))<br />     (repeat (setq k (sslength ss))<br />       (vla-put-TextHeight<br />         (setq obj (vlax-ename->vla-object (ssname ss (setq k (1- k)))))<br />         (* 2 (vla-get-textheight obj))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

shh1980

1- K 妙哉！！！来自: Android客户端

山野

如果让自己使用命令后，放大或者缩小的倍数，是否更合适？

山野

(defun c:tt (/ ss k obj)
  (vl-load-com)
  (setq sfbili (getreal "\n 输入比例"))
  (if (setq ss (ssget '((0 . "DIMENSION"))))
    (repeat (setq k (sslength ss))      
      (vla-put-TextHeight
        (setq obj (vlax-ename->vla-object (ssname ss (setq k (1- k)))))
        (* sfbili (vla-get-textheight obj))
      )
    )
  )
  (princ)
)

阿猪蛋

大佬，666666  感谢