AutoCAD 可以写不同高宽比、不同角度、不同颜色的 TEXT。无论是用 AutoCAD的TEXT 命令,还是用 AutoLISP，都是很容易做到的，用 VB 是否也很容易哪？我们来看下面一段示例：
Public objAcad As Object
Public objDoc As Object
Dim ent As Object
Dim startPoint(0 To 2) As Double
Dim Point1(0 To 2) As Double
Set objAcad = GetObject(, "AutoCAD.Application") ' 获得AutoCAD R14对象
Set objDoc = objAcad.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
Set objAcad = Nothing
从这里我们可以得出结论，在 VB 中同样可以象 AutoLISP 那样操纵AutoCAD，在某种程度上，VB 更灵活。加上 VB 的易学、易用，编程周期短等优势，可以使您的程序更完美，更好用。
|
