乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 61|回复: 4

怎样设置属性块中文字的宽度比例?

[复制链接]

6

主题

19

帖子

2

银币

初来乍到

Rank: 1

铜币
43
发表于 2005-1-22 16:13:00 | 显示全部楼层 |阅读模式
我做了一个属性块,并且设置了文字的显示宽度,在输入文字的时候,由于文字字符数量有长有短,需要根据文字的长短随时调整文字的宽度比例,那位高手帮忙解决一下?另如果文字中含有数字,会有不同的处理方法吗?
感谢中!
回复

使用道具 举报

12

主题

46

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
94
发表于 2005-1-23 09:26:00 | 显示全部楼层
TextObj.ScaleFactor =
回复

使用道具 举报

6

主题

19

帖子

2

银币

初来乍到

Rank: 1

铜币
43
发表于 2005-1-23 13:26:00 | 显示全部楼层
如果我设定文字的显示宽度为8,字符为两个中文字符,宽度比例为0.67,但我要在8的宽度范围内显示4个字符,那宽度比例就要改变,我要知道怎样根据字符数量来确定宽度比例?并且字符和数字及中文字符怎样分别处理?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2005-1-23 13:55:00 | 显示全部楼层
可以把属性文本的对齐方式改为“调整”,再更改文本插入点和对齐点的坐标值
回复

使用道具 举报

12

主题

46

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
94
发表于 2005-1-23 18:28:00 | 显示全部楼层
Set AcadApp = GetObject(, "AutoCAD.Application")                         ' 获得AutoCAD对象
                         Set objDoc = AcadApp.ActiveDocument
                         ' 初始化 TEXT 的起点
                         StartPoint(0) = 10#
                         StartPoint(1) = 10#
                         StartPoint(2) = 0#
                         ' 写一串 TEXT, 其中字高为 5
                         Set Ent = objDoc.ModelSpace.AddText("textString", StartPoint, 5#)
                         ' 初始化 TEXT 的调整点
                         Point1(0) = 20#
                         Point1(1) = 10#
                         Point1(2) = 0#
                         With Ent
                         .Color = 1                                                                                                                                                 ' 改用红色
                         .ObliqueAngle = 0.174444                                 ' 改倾斜角度
                                         .VerticalAlignment = 0                                                 ' 设垂直位置为 0
                         .ScaleFactor = 1#                                                                                         ' 设文字高宽比,当需要两端对齐时,必须任意给一个值
                         .HorizontalAlignment = 5                                 ' 设文字为两端对齐
                         .TextAlignmentPoint = Point1 ' 设对齐点
                         End With
AcadApp.ActiveDocument.ActiveViewport = AcadApp.ActiveDocument.ActiveViewport
                         Set AcadApp = Nothing
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 19:45 , Processed in 2.057326 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表