|
发表于 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 |
|