kaka8009 发表于 2022-12-29 12:14:31

如何快速在位放大文字

图纸上有很多文字，字体偏小了，能不能快速选择以后，在位放大文字，文字的位置不会发生变化？

tigcat 发表于 2022-12-29 19:14:31

cad自带命令:scaletext

xj6019 发表于 2022-12-29 12:22:52

(defun c:NM (/ i midpt pt s s1 ss xj-en2pt)
        (defun xj-en2pt (e/ s)
                (if (and e (setq tp (type e))
                                        (atom e)
                                        (or (= tp 'vla-object)
                                                (and (= tp 'ename)(setq e (vlax-ename->vla-object e)))
                                        )
                                )
                        (progn
                                (vla-GetBoundingBox e 'a 'b)
                                (mapcar 'vlax-safearray->list (list a b))
                        )
                )
        )       
        (defun midpt (pt1 pt2)(mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2))
(setq i -1)
(if(setq ss (ssget (list '(0 . "*TEXT"))))
    (while(and(setq s1 (ssname ss (setq i (1+ i)))))               
                        (setq s(xj-en2pt s1))
                        (setq pt(midpt(car s)(cadr s)))
                        (command "scale" (ssadd s1) "" pt 2) ;需要放大几倍这里的数字对应调整就行，目前是文字放大2倍
                )
)
        (princ)
)

bonny 发表于 2022-12-29 12:50:57

位置不变，是个相对的概念。不是一个程序就可以通吃所有的

中国梦 发表于 2022-12-29 20:04:12

谢谢楼主分享

尘缘一生 发表于 2022-12-30 05:18:52




kaka8009 发表于 2023-1-4 12:34:40

谢谢楼上各位热心解答！
6楼这个是啥工具箱啊？
页: [1]
查看完整版本: 如何快速在位放大文字