[求助]：怎么单独对某一acadText对象文字字体进行设置而不影响其它文字？

dyheng · 发表于 2005-4-25 09:59:09

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

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

×

我现在做了一个钢筋标注程序，原来测试时恰好是系统默认文字样式，文字之间间距不会出现差错，可后来我把thisdrawing.ActiveTextStyle的typeFace改成“仿宋-GB2315”了，这时间距就出错了！请问除了thisdrawing.ActiveTextStyle这种方法外，还有没有其它方法可以只更改某一具体acadText对象的字体，而不会影响其它文字属性？

mlr_nj · 发表于 2005-4-25 18:44:45

Sub ss()
Dim objtext As AcadText
Dim p1(2) As Double
p1(0) = 0: p1(1) = 10: p1(2) = 0
Set objtext = ThisDrawing.ModelSpace.AddText("sss", p1, 2)
objtext.StyleName = "dxfs"
End Sub

dyheng · 发表于 2005-4-25 20:41:19

objtext.StyleName = "dxfs"，这个StyleName应该是图形中已存在的文字样式名称，但是如果我不知道这个图形中已存在样式的名称，那该怎么办？
有没有比较固定的样式可用或其它方法？

雪山飞狐(lzh) · 发表于 2005-4-25 21:03:11

自己建一个样式

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

[求助]：怎么单独对某一acadText对象文字字体进行设置而不影响其它文字？

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

相关帖子