[分享]：■文字缩放工具■

zhuquanmao · 发表于 2004-10-24 21:16:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

可以以选择的文本的插入点为基准缩放所选中的文本

[PHP] ;;; ;; 文字缩放
(defun c:wzsf (/ sca en pt ss n el)
  (command "undo" "group")
  (initget 0)
  (setq sca (getreal "\n输入缩放比例："))
  (setq ss (ssget '((0 . "TEXT"))))
  (setq n 0)
  (while (< n (sslength ss))
(setq el (entget (ssname ss n)))
(setq en (cdr (assoc -1 el)))
(setq pt (cdr (assoc 10 el)))
(command "scale" en "" pt sca )
(setq n (1+ n))
  )
  (command "undo" "end")
  (princ)
)
[/PHP]

dingning618 · 发表于 2004-11-5 17:31:26

怎么用的啊

自由的鱼 · 发表于 2004-11-5 22:20:44

最初由 dingning618 发布
[B]怎么用的啊 [/B]

把代码保存为LSP文件，然后加载运行！

timnis · 发表于 2004-11-6 00:48:42

在2000以上的版本在选择了要修改的文字后在属性里改高度就可以了。

zhuquanmao · 发表于 2004-11-6 10:47:41

最初由 timnis 发布
[B]在2000以上的版本在选择了要修改的文字后在属性里改高度就可以了。 [/B]

这样改只能让其高度相等用此程序是比例缩放

八目妖 · 发表于 2004-11-6 18:05:31

没钱呀，
集资中.................

nga · 发表于 2004-11-7 00:41:25

还是不明白什么意思？那用CAD缩放命令还不一样吗？

zhuquanmao · 发表于 2004-11-7 16:22:18

最初由 nga 发布
[B]还是不明白什么意思？那用CAD缩放命令还不一样吗？ [/B]

多多个单行文本使用CAD缩放是以一个点为基准缩放这个是以各个文本的插入点为基准进行缩放的*-*1

tangsz2002 · 发表于 2004-11-8 10:34:05

用_scaletext命令不就行了吗？

bluesky1000 · 发表于 2004-11-9 12:21:51

真的不错，我试过SCALETEXT了，它只能把所有文字缩放成统一大小，这样有时候并不适用。

lanxuejun · 发表于 2004-11-9 19:12:37

和sc命令有什么区别？

9合彩 · 发表于 2021-1-20 11:53:51

选不到文字怎么办？

9合彩 · 发表于 2021-1-20 12:01:16

SCALETEXT /M /S 就可以完成楼主的功能

kmliro_2017 · 发表于 2024-3-30 07:46:41

谢谢分享！！！！！

账号		自动登录	找回密码
密码			立即注册

[分享]：■文字缩放工具■

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子