用VB 在 AutoCAD R14 中写 Text 的方法

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

上一篇： 应用ActiveX Automation技术进行AutoCad的开发
下一篇： 用Visual Basic实现多画面播放功能

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有