用VB在AutoCADR14中写Text的方法

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