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的易学、易用，编程周期短等优势，可以使您的程序更完美，更好用。->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
