用VB在AutoCADR14中写TEXT的方法

用 VB 在 AutoCAD R14 中写 TEXT 的方法 AutoCAD 可以写不同高宽比、不同角度、不同颜色的 TEXT。无论是用 AutoCAD 的 TEXT 命令，还是用 AutoLISP，都是很容易做到的，用 VB 是否也很容易哪？我们来看下面一段示例：Public objAcad As ObjectPublic objDoc As ObjectDim ent As ObjectDim startPoint(0 To 2) As DoubleDim Point1(0 To 2) As DoubleSet objAcad = GetObject(, "AutoCAD.Application") ' 获得 AutoCAD R14 对象Set objDoc = objAcad.ActiveDocument' 初始化 TEXT 的起点startPoint(0) = 10#startPoint(1) = 10#startPoint(2) = 0#' 写一串 TEXT, 其中字高为 5Set 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 WithSet objAcad = Nothinga VB 应用程序中用 DDE 功能开发 AutoCAD for Windows目前，许多工程 CAD 系统是以 AutoCAD 作为支撑软件，在其基础上进行二次开发而形成的。AutoCAD R12 for Windows 以 AutoLISP 和 ADS 作为二次开发工具，但它们都有不足之处，AutoLISP 速度慢，没有友好的开发环境，ADS 是基于 C 语言的开发环境，而 C 语言面对 Windows 编程本身难以掌握，因此 AutoLISP 和 ADS 的使用都受到一定的限制。VB 是 Windows 下主要的开发工具之一，它的“可视性”和“事件驱动性”简化了面对Windows 的编程，深受广阔用户的青睐。Windows 下，VB 和 AutoCAD 都支持强有力的 DDE(动态数据交换)功能，用 VB 编写具有 DDE 功能的程序来控制 AutoCAD，既能与 AutoCAD 交换各种复杂的数据结构，又能向AutoCAD 发送命令，由此开发出的应用程序能满足用户的需要，同时又缩短了开发周期。本文结合实例介绍了用 VB 开发 AutoCAD 的途径与方法。 一、直接利用 DDE 功能开发 DDE 是 Windows 的强大功能之一，它可以使应用程序自动地接收由其它应用程序发送来的数据，...