|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
用VB 在 AutoCAD R14 中写 Text 的方法 |
| 作者：本站收集 日期：2005-8-4 11:34:13 |
|
|
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 的易学、易用，编程周期短等优势，可以使您的程序更完美，更好用。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:34:13 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]