用VB在AutoCADR14中写TEXT的方法-Read.DOC

用 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 a 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的强大功能之一，它可以使应用程序自动地接收由其它应用程序发送来的数据，当传送端的数据有变化时，接收端的数据也会随之改变，也可将命令或键盘输入传递给其它程序，实现远程控制。 　　在VB编程环境中，创建应用程序的方法很简单，首先是设计用户界面，也就是在空白窗体中放入所需要的控件，如命令按钮，单选钮，文本框，标签，图片框等，然后针对各控件上要发生的事件(如鼠标单击，鼠标移动等)书写事件过程，最后将编写的应用程序运行，调试，生成执行文件即可。VB中能和其它Window应用程序建立DDE通道的控件有文本框，标签和图片框。下面结合简单实例，说明VB应用程序与AutoCAD间建立DDE通道和交换数据的方法。 　　在VB中启动一个新项目，参见图(1)建立窗体，其中“建立链接”，“直线”，“标注”，“退出”为命令按钮，标有“Text1”的为文本框，用于建立DDE通道，并输入下面的事件代码。 　Option Explicit 　Private Sub cmdLine_Click() 画直线 　　Text1.LinkExecute [^3^3line 3,3 8,8 ^3] 　End Sub 　Private Sub cmdText_Click() 标注文字 　　Text1.LinkExecute [^3^3text 10,10 1 90 AUTOCAD!^10] 　End Sub 　Private Sub cmdLink_click() 建立链接 　　Text1.LinkMode = 0