用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的易学、易用，编程周期短等优势，可以使您的程序更完美，更好用。
- 最新文章
- 用VB6的双通道技术获得影碟片断[04-17]
- 制作自己的MP3播放器[04-17]
- 用FreeFile防止文件打开冲突[04-17]
- 取得某个目录底下所有文件大小总和[04-17]
- VB6中的FSO对象模型[04-17]
- 如何在VB中实现目录遍历[04-17]
- 相关文章
- 在VB中使用水晶报表的一种简易编程方法[04-17]
- VisualBasic6中发送邮件的新方法[04-17]
- VisualBasic属性、方法和事件一[04-17]
- VB操作.ini后缀文件的方法[04-17]
- VB调用IMAGE控件实现图像缩放的一种方法[04-17]
- 分割图像的方法[04-17]
