（完成）[求助]：可有这样一个工具将图中文字按其中心位置放大缩小

雪晴 · 发表于 2003-3-29 15:24:45

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

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

×

在绘图中经常碰到将文字进行缩放的事，虽说有个特性匹配命令，但他只能将文字按其基点放大缩小，若字体的基点不是center，文字的位置就偏了，图面效果也差了。可有这样一个工具（用特性匹配命令）将图中文字按其中心位置以任意比例放大缩小？

eachy · 发表于 2003-3-29 21:12:03

最初由 jjjj3463 发布
[B]在绘图中经常碰到将文字进行缩放的事，虽说有个特性匹配命令，但他只能将文字按其基点放大缩小，若字体的基点不是center，文字的位置就偏了，图面效果也差了。可有这样一个工具（用特性匹配命令）将图中文字按其中心... [/B]

(defun c:XDTB_TEXTSCL (/ ss mat e e1 h1 box basept matscl)
(if (setq e1 (xdrx_entsel "\n选择源文字: " '((0 . "text"))))
(progn
(xdrx_begin)
(xdrx_ucson)
(xdrx_setenttodb (car e1))
(setq h1 (xdrx_getentdxf 40))
(setq mat (xdrx_matrix_identity))
(princ "\n选择范围[All - 全选]....")
(setq ss (ssget '((0 . "TEXT"))))
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq box (xdrx_entity_box e))
(setq basept (xdrx_midp (car box) (caddr box)))
(setq matscl (xdrx_matrix_setscale
mat
(/ h1 (xdrx_getentdxf 40))
basept
)
)
(xdrx_entity_transform e matscl)
)
(xdrx_ucsoff)
(xdrx_end)
(princ)
)
)
)

雪晴 · 发表于 2003-3-30 00:54:02

对cad2000的运用还算熟练，但对编程一窍不通，请问斑竹将这个程序放到2000的哪里。

eachy · 发表于 2003-3-30 01:51:41

最初由 jjjj3463 发布
[B]对cad2000的运用还算熟练，但对编程一窍不通，请问斑竹将这个程序放到2000的哪里。 [/B]

程序必须在XDRX_API支持下运行，如果安装了晓东工具箱，将文件保存为xdtb_textscl.lsp 并放到 \XDSoft\Lisp目录下后(或者在CAD的Support路径下忙里)，在cad中command下输入(load "xdtb_textscl")，然后以 xdtb_textscl 命令启用。

LUCAS · 发表于 2003-3-31 11:53:40

;;usage:(textscl <倍数>)
;;usage:(textscl 2)
(defun TEXTSCL (SCALE / SS CENTPT)
(defun AX:GETBOUNDINGBOX (ENT / LL UR)
(vl-load-com)
(vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)
(MIDPOINT (vlax-safearray->list LL)
(vlax-safearray->list UR)
)
)
(defun MIDPOINT (PT1 PT2)
(mapcar
'(lambda (X Y)
(* 0.5 (+ X Y))
)
PT1
PT2
)
)
(princ "\n选择范围[All - 全选]....")
(setq SS (ssget '((0 . "text,mtext")))
N 0
)
(repeat (sslength SS)
(setq CENTPT (AX:GETBOUNDINGBOX (setq ENT1 (ssname SS N))))
(command "_.scale" ENT1 "" CENTPT SCALE)
(setq N (1+ N))
)
(princ)
)

leyew · 发表于 2003-3-31 18:28:38

怎么不行啊，提示选择源文字时，我选择时说”没有点取到符合条件的实体, 重试!“
不知怎么用？

liji · 发表于 2003-3-31 20:24:19

其实我觉得没有这么麻烦，因为我们一般在编辑文字的时候总是喜欢用COPY的命令复制过去然后再用DD的命令进行修改，所以我个人认为只要我们在写第一个单词的时候把它的属性改为CENTER，那么我们如果要放大或者缩小文字的话就没有什么问题了

雪晴 · 发表于 2003-4-1 06:56:39

最初由 liji 发布
[B]其实我觉得没有这么麻烦，因为我们一般在编辑文字的时候总是喜欢用COPY的命令复制过去然后再用DD的命令进行修改，所以我个人认为只要我们在写第一个单词的时候把它的属性改为CENTER，那么我们如果要放大或者缩小文字... [/B]

实际工作中有很多图你是以别人的图为底画图，你不可能先把已经存在底字属性都改为CENTER再接下去画你的图。

前生 · 发表于 2003-4-1 15:53:42

就是坐标系未转换

LUCAS · 发表于 2003-4-3 07:47:52

程序写多了反而忘了指令!!呵呵!!
放大或缩小选定的文字对象，而不改变它们的位置
「文字」工具列：
「修改」菜单：「物件」「文字」「比例」
指令行： scaletext
选取对象:使用对象选取方式，完成选取后按下 ENTER
输入调整比例的基准点选项 [既有(E)/左(L)/中心(C)/中央(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中下(BC)/右下(BR)] <既有>:指定作为缩放基准点的位置
在要求输入基准点的提示下，您可以选择若干个位置中的一个作为缩放基准点，对于每个选取的文字对象都可以单独使用这些基准点。缩放基准点位于文字选项的一个插入点，但是即使全部选项与选择插入点时的选项相同，文字对象的对正方式也不受影响。
上面展示的基准点选项在 TEXT 指令中描述。除单行文字的「对齐」、「拟合」与「左边」文字选相当于左下 (BL) 多行文字贴附点之外，单行文字的基准点选项与多行文字的基准点选项类似。
指定文字高度或 [对象相符(M)/比例系数(S)] <0.5000>:指定文字高度或输入选项

NDL · 发表于 2003-4-8 11:19:04

我对cad2000的运用还算熟练，对编程是刚开始接触，请问如果目前还没有下载安装晓东工具箱是不是还不能用？
有没有解决的措施
我上次是在网吧下载小东工具箱的，一死几系统自动恢复了以后就没有了，都没考下来！
现在我是上班中，所以不能立刻下载，想问问这个程序我现在是否能用的了，如果不能，我等晚上回去下载了以后再说。

boy_tian · 发表于 2003-4-10 10:26:35

用R14里的cht命令就可以了吧

jspdi709 · 发表于 2003-4-10 11:09:39

是啊！简单的问题复杂化，复杂的问题简单化！！呵呵！！

淡天 · 发表于 2003-4-15 10:32:11

cad本身也考虑周全!
可惜太多的命令我们不会用

kfboyxwa · 发表于 2003-4-17 12:29:58

不要随便说easy,先试试.
http://www.xdcad.net/forum/showt ... d=206851#post206851

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

（完成）[求助]：可有这样一个工具将图中文字按其中心位置放大缩小

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

相关帖子

Re: [求助]：可有这样一个工具将图中文字按其中心位置放大缩小

点评

浏览过的版块