664571221 发表于 2016-3-26 11:06:01

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

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

Gu_xl 发表于 2016-3-26 13:30:20

(defun c:tt (/ ss k obj)(vl-load-com)
(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)))))
        (* 2 (vla-get-textheight obj))
      )
    )
)
(princ)
)

shh1980 发表于 2016-3-27 07:51:15

1- K 妙哉！！！

山野 发表于 2024-2-25 11:06:35

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

山野 发表于 2024-2-25 11:22:08

(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)
)

阿猪蛋 发表于 2024-2-26 10:40:32

大佬，666666感谢
页: [1]
查看完整版本: 求一个功能，是标注的文字的字体大小变成原来的两倍