[VBA]单行文字的垂直排列

dchlmz · 发表于 2006-5-9 15:00:00

这幅图上的文字是垂直排列的单行文字。

可我就是不知道怎么做？

dchlmz · 发表于 2006-5-9 15:01:00

这幅图上的文字是垂直排列的单行文字。

可我就是不知道怎么做？

dchlmz · 发表于 2006-5-9 15:04:00

图已经上传，如何用VBA实现单行文字垂直排列？

请各位高手帮忙，不胜感激。

xinghesnak · 发表于 2006-5-9 15:47:00

问题已解决，应做如下设置

aa.StyleName = "Style-等线体(标准) V"

我没试出来是自己没用到过，楼主见谅啊。。。。。^_^

dchlmz · 发表于 2006-5-9 15:49:00

忘了上传形字体

dchlmz · 发表于 2006-5-9 15:52:00

忘了上传形字体

该怎么设置呀

aa.StyleName = "Style-等线体(标准) V"

aa是什么呀

xinghesnak · 发表于 2006-5-9 15:56:00

Sub main()
Dim aa As Object
Set aa = ThisDrawing.ModelSpace.Item(0)
aa.StyleName = "Style-等线体(标准) V"
End Sub

dchlmz · 发表于 2006-5-9 16:08:00

不行呀，显示不支持该方法aa.StyleName = "Style-等线体(标准) V"

xinghesnak · 发表于 2006-5-9 16:25:00

aa得到的是acadblock,你的程序是这样写的吗？

dchlmz · 发表于 2006-5-9 16:33:00

不是，我是新建图形，在原图中调用"Style-等线体(标准) V"字型，肯定能让字垂直排列。

我的源程序如下：请指正。

Sub main()
Dim tsObj As AcadTextStyle
    Dim textobj As AcadText
    Dim textString As String
    Dim insPnt(0 To 2) As Double
    Dim agnPnt(0 To 2) As Double
    Dim Height As Double

    Set tsObj = ThisDrawing.TextStyles.Add("Style-等线体(标准) V")
    ThisDrawing.ActiveTextStyle = tsObj

    FontsName = "C:\AutoCAD 2002\Fonts\等线体(标准).shx"
    ThisDrawing.ActiveTextStyle.fontFile = FontsName

    FontsName = "C:\AutoCAD 2002\Fonts\等线体(标准)big.shx"
    ThisDrawing.ActiveTextStyle.BigFontFile = FontsName

    Height = 1.5
    tsObj.Width = 1
    textString = "中华人民共和国"

    'textobj.StyleName = "Style-等线体(标准) V"

    insPnt(0) = 100: insPnt(1) = 50: insPnt(2) = 0
    Set textobj = ThisDrawing.ModelSpace.AddText(textString, insPnt, Height)
    'textobj.Alignment = acAlignmentAligned
    'textobj.VerticalAlignment = acVerticalAlignmentTop
    'textobj.TextAlignmentPoint = insPnt


    ThisDrawing.Application.Update '更新数据
    ThisDrawing.Application.ZoomExtents '全窗口

End Sub

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

[VBA]单行文字的垂直排列

本帖子中包含更多资源

本帖子中包含更多资源