明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1342|回复: 7

[基础教程] 如何快速在位放大文字

[复制链接]
发表于 2022-12-29 12:14:31 | 显示全部楼层 |阅读模式
图纸上有很多文字,字体偏小了,能不能快速选择以后,在位放大文字,文字的位置不会发生变化?
发表于 2022-12-29 19:14:31 | 显示全部楼层
cad自带命令:scaletext

点评

pym
正解  发表于 2023-1-7 19:08
回复 支持 1 反对 0

使用道具 举报

发表于 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)
)
回复 支持 1 反对 0

使用道具 举报

发表于 2022-12-29 12:50:57 | 显示全部楼层
位置不变,是个相对的概念。不是一个程序就可以通吃所有的
发表于 2022-12-29 20:04:12 | 显示全部楼层
谢谢楼主分享
发表于 2022-12-30 05:18:52 | 显示全部楼层



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2023-1-4 12:34:40 | 显示全部楼层
谢谢楼上各位热心解答!
6楼这个是啥工具箱啊?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-26 04:15 , Processed in 0.139461 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表