燕秀计算机打印区域文字高度,CAD 让文字显示在指定区域,自动根据文字内容调整文字高度...

CAD 让文字显示在指定区域,自动根据文字内容调整文字高度

'***********************************************************************************************

'根据给定矩形区域填充文字(即使文字充满矩形框,根据文字内容自动调整文字高度)********************************

'    P1和P2 为矩形框的两个对角点,A文字的角度(只接受0、90、270三个角度)

Public Function 文字填充模块(ByVal Txt As String, ByVal P1 As Variant, P2 As Variant, A As Double)

Dim 文字 As AcadText

Dim 文字高度 As Double

Dim 文字长度 As Double

Dim 矩形框长度 As Double

Dim 矩形框高度  As Double

Dim 中点1(2) As Double

Dim 角点1 As Variant, 角点2 As Variant

If Abs(P1(0) - P2(0)) = 0 Or Abs(P1(1) - P2(1)) = 0 Then Exit Function

If A = 0 Then

矩形框长度 = Abs(P1(0) - P2(0))

矩形框高度 = Abs(P1(1) - P2(1))

Else

矩形框长度 = Abs(P1(1) - P2(1))

矩形框高度 = Abs(P1(0) - P2(0))

End If

中点1(0) = (P1(0) + P2(0)) / 2

中点1(1) = (P1(1) + P2(1)) / 2

中点1(2) = (P1(2) + P2(2)) / 2

Set 文字 = ThisDrawing.ModelSpace.AddText(Txt, Point3D(0, 0, 0), 2.5)

文字.GetBoundingBox 角点1, 角点2

文字长度 = Abs(角点1(0) - 角点2(0))

文字高度 = Abs(角点1(1) - 角点2(1))

If 矩形框长度 / 文字长度 <= 矩形框高度 / 文字高度 Then

文字.ScaleEntity 角点1, 矩形框长度 / 文字长度

Else

文字.ScaleEntity 角点1, 矩形框高度 / 文字高度

End If

文字.Alignment = acAlignmentMiddleCenter

文字.Move 文字.TextAlignmentPoint, 中点1

文字.Rotate 中点1, A * Atn(1) * 4 / 180

End Function

[本日志由 田草 于 2007-01-22 12:40 AM 编辑]

dbdec0d17052d36d24a574b6a7481800.gif 田草 于 2007-01-23 01:01 PM 发表评论:

强在哪儿?谢谢光临强在哪儿?

谢谢光临

id28.htm

dbdec0d17052d36d24a574b6a7481800.gif dylan_sue 于 2007-01-23 11:48 AM 发表评论:

qiang !qiang !

id28.htm

发表评论 - 不要忘了输入验证码哦!作者:

用户:

密码:   注册? 验证:

f0cb3e1d62ed227fd42099e0b6606550.png

防止恶意留言请输入问题答案:2*2=?

评论:

禁止表情

禁止UBB

禁止图片

识别链接

识别关键字

14544b3acce4d0477dd5cdf72990642d.gif

c98ae1c3ddae59c61c79853861fb5357.gif

d3f63b12c2f26a620887abc3afab3fd3.gif

7853c1bd307f3abaf1909e10e0461adb.gif

69bb04efb88bd6cfd35ac7ee98026598.gif

0e9d32b370a5ec4eee774cfbf03b2b6c.gif

9e66832cebe29c3004a1e60c815c30f5.gif

164ccad421f63305d7fb378b060673ae.gif

ea6eb5240a8d031ba0b4148f77f03601.gif

f61bb3b5230d6889a9a6e83c4b581d48.gif

c49427ea4b547e52d480ed2a869d5c88.gif

1547a514a7b0b58e2255807b0fa52c34.gif

647d94485af886c188db8aa6cf5bc8f5.gif

5f27afac4a0d02ae547612cf1bd51ea1.gif

9c4d3fdba24456ec90ad2fab5e1b0c07.gif

75acca17127573101bdc9a357d8c94d7.gif

0fdcee8bc174a5d05e11c18f83a2201b.gif

8967a761da15bc61052cf6f67f9c8b0b.gif

546742c5ff089a5ddd8bd6b3e590f10b.gif

678a238a6c57df08d67038fe16920e21.gif

0296678c0119d17c1a550496762d644f.gif

db2a75087efe2d1d38a79e0a35dae89e.gif

cdaa320e6af41c8fa774912dd800dc34.gif

e31f77bdb9458dde7a4e0e382d1ef283.gif

表  情

4c78027ec87b4a978cdf6927bd359464.png

cd5155596faaae7398ff934e894a4c77.png

fe250e552737ef31d121020175da1ac1.png

4d3ccda6f4371b75393d7118b0225d4f.png

0ceb57ed8a87084d57189b5961e3b036.png

e9d28bea4106b0702bf2225e48882fe8.png

964c6cd2feb76b49889d7615485ea86b.png

3811a50cfc094f4f181d938ef17420e8.png

5018ab6c3544a914af6a258c00bdea33.png

7ced03205703b7bbe3a2ac48631909d8.png

3dcf4c42f090b1fe6e8abb307616f65f.png

d722d60d7cf8db3f911e6f400a2a66e1.png

fb898796402e390f4bb5cf17a0afd006.png

8b780c4938417f54d8d4e1bf57685be1.png

a6e10551d89cf347ee2c89a365ae4411.png

280b2c1b28d7b2a1dd776877e216d391.png

d770d0b37e8625bd02812581f7873048.png

ca2d7db1eb1f2cab830277c93809a1d4.png

5f9a2e7bd5a19ccc323485ba237ddb8e.png

07f2bda117dd3000d384b0eed9c732b2.png

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
cad2014版本可用的工具箱,好东西就是要分享! 软件介绍 燕秀工具箱是一个完全免费的AutoCAD塑胶模具设计外挂,支持简体、繁体、英文的AutoCAD2004、2005、2006、2007、2008、2009 、2010、2011、2012。 功能特色: 它与众多类似外挂不同,主要注重应用功能的增强,并不只是画画标准件而已。目前大部分塑胶模具外挂的通病都是注重画标准件,但设计一套模具只有画组立图时才用得上标准件,而画组立图所用的时间仅占整套模具画2D图全部时间的一小部分,其它时间成了一个花瓶摆在那里。 更新日志: 燕秀工具箱V3.0 修复的功能: * 修复(隐藏对象)个别情况下无法运行问题 * 修复2.8(删除重复线)误删对象问题 * 修复2.8(检查坐标标注原点个数)显示问题 * 修复2.8个别情况下标注全局比例导致标注功能无法使用问题 * 修复(视图对齐)会自动关闭极轴问题 * 修复(智能标注)开启右键菜单不能右键转换问题 * 修改(计算打印区域标注文字高度)默认纸张为A4 * 修复其他的一些小问题 2011-6-22 燕秀工具箱V2.81 (5周年纪念版) 修复的功能: * 修复(隐藏对象)个别情况下无法运行问题 * 修复2.8(删除重复线)误删对象问题 * 修复2.8(检查坐标标注原点个数)显示问题 * 修复2.8个别情况下标注全局比例导致标注功能无法使用问题 * 修复(视图对齐)会自动关闭极轴问题 * 修复(智能标注)开启右键菜单不能右键转换问题 * 修改(计算打印区域标注文字高度)默认纸张为A4 * 修复其他的一些小问题
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值