AutoCAD可以寫不同高寬比、不同角度、不同顏色的TEXT。無論是用AutoCAD的TEXT命令,還是用AutoLISP，都是很容易做到的，用VB是否也很容易哪？我們來看下面一段示例：
PublicobjAcadAsObject
PublicobjDocAsObject
DimentAsObject
DimstartPoint(0To2)AsDouble
DimPoint1(0To2)AsDouble
SetobjAcad=GetObject(,"AutoCAD.Application") '獲得AutoCADR14對象
SetobjDoc=objAcad.ActiveDocument
'初始化TEXT的起點
startPoint(0)=10#
startPoint(1)=10#
startPoint(2)=0#
'寫一串TEXT,其中字高為5
Setent=objDoc.ModelSpace.AddText("textString",startPoint,5#)
'初始化TEXT的調整點
Point1(0)=20#
Point1(1)=10#
Point1(2)=0#
Withent
.Color=1 '改用紅色
.ObliqueAngle=0.174444 '改傾斜角度
.VerticalAlignment=0 '設垂直位置為0
.ScaleFactor=1# '設文字高寬比，當需要兩端對齊時，必須任意給一個值
.HorizontalAlignment=5 '設文字為兩端對齊
.TextAlignmentPoint=Point1'設對齊點
EndWith
SetobjAcad=Nothing
從這裡我們可以得出結論，在VB中同樣可以象AutoLISP那樣操縱AutoCAD，在某種程度上，VB更靈活。加上VB的易學、易用，編程周期短等優勢，可以使您的程序更完美，更好用。->
