[分享]：用VB在AutoCAD R14中写TEXT的方法

yl4116

用VB在AutoCAD R14中写TEXT的方法
  　　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 的易学、易用，编程周期短等优势，可以使您的程序更 完美，更好用。

*-*6