岩土工程CAD 发表于 2008-5-19 10:01:00

求在CAD中对所有文字按原坐标缩放程序

求在CAD中对所有文字按原坐标缩放程序。

水仙的错 发表于 2019-9-14 14:03:50

(LOAD "C:/0 - 副本 (2).lsp") ; 错误: 输入的字符串有缺陷
用不了，程序有问题

ketxu 发表于 2020-1-8 17:39:55

You can use ScaleText or Tscale command for alternate method ^^

xiaohahamail 发表于 2020-11-5 22:27:54

找了好久，能用就好

ZZXXQQ 发表于 2008-5-19 20:39:00

论坛有许多答案，先搜索一下再问。


;比例缩放文字 明经 ZZXXQQ 2008.5.19
(defun c:tt ()
(if (and (setq w (getdist "\n输入缩放比例 :"))
   (setq ss (ssget '((0 . "TEXT"))))
   )
(progn
(setq i -1)
(repeat (sslength ss)
   (setq ent (entget (ssname ss (setq i (1+ i))))
         f (* (cdr (assoc 50 ent)) w)
         ent (subst (cons 50 f) (assoc 50 ent) ent))
   (entmod ent)
)
))
(princ)
)

岩土工程CAD 发表于 2008-5-20 16:03:00

<p>谢谢。</p>

岩土工程CAD 发表于 2008-5-21 09:25:00

本帖最后由 作者 于 2008-5-21 10:18:17 编辑

我用了，但对用多行文字写的带上下标的文字缩放不了。只是过滤，没有缩放命令。

ZZXXQQ 发表于 2008-5-21 22:16:00

<p>程序只对TEXT文本进行处理，如果要同时对MTEXT进行处理，将程序中"TEXT"改成"*TEXT"试试。</p>

byghbcx 发表于 2008-6-10 09:52:00

<p>用SCALETEXT命令试试</p>

cnks 发表于 2008-6-11 00:23:00

常来的应该很容易搞定

xyp1964 发表于 2008-6-14 13:34:00

自身缩放

winamw913 发表于 2008-11-19 16:40:00

顶一下

CAD83 发表于 2008-11-21 08:55:00

能对是直线的文字缩放就好了,不知行不?
页: [1] 2
查看完整版本: 求在CAD中对所有文字按原坐标缩放程序