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 的易学、易用，编程周期短等优势，可以使您的程序更完美，更好用。