VSTA – 未来的 VBA 开发工具

mccad

前段时间，有文章说明，新版本的AutoCAD将提供一种新的开发工具VSTA。但对于VSTA，大家的了解应该都不多吧。

以下文章其实是2006年底发表的文章，那时AutoCAD 2008版本正在测试，到目前已经是两年时间了。文章并没有说到哪个版本会用到VSTA，但其实2009版本没有，2010版本从目前看可能性也不太大，毕竟微软自己还没有大量使用。

VSTA – 未来的 VBA 开发工具

作者:  Jerry Winters – VB CAD, Inc.
发表时间：2006年11月
翻译：mccad - mjtd.com

VBA 是基于 VB6 开发平台。 VB6 在多年前已经被 VB.NET 所代替。 而 VBA 在未来也将被 VSTA (Visual Studio Tools for Applications) 所代替。我们将带大家一起关注未来AutoCAD 中VBA的未来是什么样的。我们将讲解VSTA带来的新特性及强大的功能。

VSTA 介绍

VSTA 在前几年还有另外一个名称。是 VSA (Visual Studio for Applications)。VSTA, 和 VBA 一样，用于软件供应商提供给用户对软件进行定制的工具。除AutoCAD外，Microsoft Excel是大家最熟悉的使用VBA的软件。

VBA 已经有相当长的时间了。而且它一直相当不错。但微软并不想将VBA移植到64位平台上使用。这意味着新版本的Windows （VISTA）在64位平台将无法支持VBA。

Autodesk 已采取方案以确保大家至今所创建的VBA项目将仍然能够在VISTA 64 上运行，我们将认真做好开始学习和执行代码以及项目以让其符合VSTA的要求。

这是前端的 Microsoft Office InfoPath 2007。InfoPath 是一个有利于创建用于数据录入和显示的表单。InfoPath 是第一个集成VSTA的程序。通过菜单我们可以进入InfoPath的VSTA环境：

工具 > 编程 > Microsoft Visual Studio Tools for Applications。 

mccad

这就是 VSTA。让我们看看在VSTA工程中要使用的是哪些工具： 

上页的最后一个图像显示一个模板，它在我们进行VSTA开发时用到的。“Windows Form” (窗体)相当于一个空白的VBA用户窗体。 模板上已经有些控件了，随时可以使用。“Explorer From”(浏览器窗体)， 例如，其中的TreeView 和 ListView 控件也放到位置上了。

如果我们要插入一个“Windows窗体”，我们该怎么做呢？让我们来看看VSTA工具箱的控件吧。 

看看所有这些控件!非常多。大家可以对比一下上面的控件列表和下面所显示的VBA控件。 

mccad

但控件数量的多少并不足以说明我们迁移到VSTA版是一件好事。

现在，再看看下面的图片：

似曾相识？之前好象看过吧。它看起来就象前一幅的图像。VSTA有66个控件。VB 2005 Express Edition 有66个控件。难道是用 VB 2005 Express Edition 让我们看到VSTA 会带给我们什么？

这是VB Express中添加项目的对话框。可以看到，它们的区别只是VB Express中有“关于对话框”而VSTA中没有。

到目前，我们已经知道：
1 VSTA 已经在Microsoft Office InfoPath 2007中使用。
2 VSTA 只在非常少的其它程序中使用。
3 VSTA 尚未在任何其它Office程序中使用。
4 VBA 不支持64位环境。
5 世界正走向64位环境。
6 Autodesk 已经逐步让VBA可用于64位的AutoCAD版本。
7 VB 2005 Express 与 VSTA并没有多少区别。
8 VSTA 目前尚不能在AutoCAD中使用。
9 我们已经有一段时间(我不能说有多久)在学习并且让我们的代码转移到.net环境。

mccad

VSTA 中的几个例子
接下来就来看看Microsoft 的 InfoPath 2007 程序。
与其花时间在InfoPath的 VSTA 环境，还不如看看运行在VB 2005 Express Edition中一些例子，并将其与VBA中相同功能的代码比较。
画线
VB.NET (和 VSTA)   

2. <CommandMethod("DrawLineA")> _
3. Public Sub DrawLineA()
4.   Dim myTransMan As DatabaseServices.TransactionManager
5.   Dim myTrans As DatabaseServices.Transaction
6.   Dim myDoc As ApplicationServices.Document
7.   Dim myDWG As DatabaseServices.Database
8.   Dim myBT As DatabaseServices.BlockTable
9.   Dim myMS As DatabaseServices.BlockTableRecord
10.   Dim myLine As DatabaseServices.Line
11.   Dim StartPoint As New Geometry.Point3d(1, 2, 3)
12.   Dim EndPoint As New Geometry.Point3d(4, 5, 6)
13.   myLine = New DatabaseServices.Line(StartPoint, EndPoint)
14.   myDoc = ApplicationServices.Application.DocumentManager.MdiActiveDocument
15.   myDWG = myDoc.Database
16.   myTransMan = myDoc.TransactionManager
17.   myTrans = myTransMan.StartTransaction
18.   myBT = myDWG.BlockTableId.GetObject(OpenMode.ForRead)
19.   myMS = myBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)
20.   myMS.AppendEntity(myLine)
21.   myTrans.AddNewlyCreatedDBObject(myLine, True)
22.   myTrans.Commit()
23.   myTrans.Dispose()
24.   myTransMan.Dispose()
25. End Sub

<CommandMethod("DrawLineA")> _ Public Sub DrawLineA()   Dim myTransMan As DatabaseServices.TransactionManager   Dim myTrans As DatabaseServices.Transaction   Dim myDoc As ApplicationServices.Document   Dim myDWG As DatabaseServices.Database   Dim myBT As DatabaseServices.BlockTable   Dim myMS As DatabaseServices.BlockTableRecord   Dim myLine As DatabaseServices.Line   Dim StartPoint As New Geometry.Point3d(1, 2, 3)   Dim EndPoint As New Geometry.Point3d(4, 5, 6)   myLine = New DatabaseServices.Line(StartPoint, EndPoint)   myDoc = ApplicationServices.Application.DocumentManager.MdiActiveDocument   myDWG = myDoc.Database   myTransMan = myDoc.TransactionManager   myTrans = myTransMan.StartTransaction   myBT = myDWG.BlockTableId.GetObject(OpenMode.ForRead)   myMS = myBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)   myMS.AppendEntity(myLine)   myTrans.AddNewlyCreatedDBObject(myLine, True)   myTrans.Commit()   myTrans.Dispose()   myTransMan.Dispose() End Sub

VBA   

2. Sub DrawLineA()
3.   Dim StartPoint(0 To 2) As Double
4.   Dim EndPoint(0 To 2) As Double
5.   StartPoint(0) = 1: StartPoint(1) = 2: StartPoint(2) = 3
6.   EndPoint(0) = 4: EndPoint(1) = 5: EndPoint(2) = 6
7.   ThisDrawing.ModelSpace.AddLine StartPoint, EndPoint
8. End Sub

Sub DrawLineA()   Dim StartPoint(0 To 2) As Double   Dim EndPoint(0 To 2) As Double   StartPoint(0) = 1: StartPoint(1) = 2: StartPoint(2) = 3   EndPoint(0) = 4: EndPoint(1) = 5: EndPoint(2) = 6   ThisDrawing.ModelSpace.AddLine StartPoint, EndPoint End Sub

好了，我知道你在想什么。这么多的代码就只画了一条线？
这是怎么回事？我们不使用VBA来避免那么多的程序垃圾？这里说说我们能做什么以减轻大家的痛苦。

mccad

首先，当用VBA画一条线时，同样的动作也将发生在用VB.NET画一条线时。所有这些事务均需要处理但它们都是在后台处理的。打开块表和块表记录这些动作都进行了处理但它们都是在后台处理的。
其次，我们可以采取步骤来使编程更加简单。让我们花点时间来谈谈Snippet(代码段)。


在 VB.NET 按右键会显示弹出菜单。如果我们点击“Insert Snippet”(插入代码段)，可看到一个树表。

代码段提供了一个简单的方法，我们写好一次的代码，以后可以重复使用。

1. <?xml version="1.0"?>
2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
3. <CodeSnippet Format="1.0.0">
4.   <Header>
5.    <Title>输入标题</Title>
6.    <Author>mccad (mjtd.com)</Author>
7.    <Description>输入说明</Description>
8.    <Shortcut>无</Shortcut>
9.   </Header>
10.   <Snippet>
11.    <Code Language="VB" Kind="Method"> <![CDATA[
12.    '这里插入代码
13.    ]]> </Code>
14.   </Snippet>
15. </CodeSnippet>
16. </CodeSnippets>

复制代码

上述文件显示了代码段的基本结构。代码段的文件扩展名为.snippet。上述文件命名为“Template.Snippet”。更改标题、作者、说明和代码区域后，大家都可以有一个代码段了。
在 VB.NET 中，我们使用代码段管理器来组织我们的代码段。


这样，我们就可以指定哪些文件夹包含代码段。

mccad

第三，我们可在模块中创建我们自己的VBA等同代码：
以下是在 VB.NET 中的代码模块：

2. Imports Autodesk.AutoCAD
3. Imports Autodesk.AutoCAD.ApplicationServices
4. Imports Autodesk.AutoCAD.DatabaseServices
5. Imports Autodesk.AutoCAD.EditorInput
6. Imports Autodesk.AutoCAD.Geometry
7. Module ThisDrawing
8.   Function ModelSpace_AddLine(ByVal StartPt As Point3d, ByVal EndPt As Point3d) _
9.       As DatabaseServices.Line
10.     Dim myTransMan As DatabaseServices.TransactionManager
11.     Dim myTrans As DatabaseServices.Transaction
12.     Dim myDoc As ApplicationServices.Document
13.     Dim myDWG As DatabaseServices.Database
14.     Dim myBT As DatabaseServices.BlockTable
15.     Dim myMS As DatabaseServices.BlockTableRecord
16.     Dim myLine As DatabaseServices.Line
17.     myLine = New DatabaseServices.Line(StartPt, EndPt)
18.     myDoc = ApplicationServices.Application.DocumentManager.MdiActiveDocument
19.     myDWG = myDoc.Database
20.     myTransMan = myDoc.TransactionManager
21.     myTrans = myTransMan.StartTransaction
22.     myBT = myDWG.BlockTableId.GetObject(OpenMode.ForRead)
23.     myMS = myBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)
24.     myMS.AppendEntity(myLine)
25.     myTrans.AddNewlyCreatedDBObject(myLine, True)
26.     myTrans.Commit()
27.     myTrans.Dispose()
28.     myTransMan.Dispose()
29.     Return myLine
30.   End Function
31. End Module

Imports Autodesk.AutoCAD Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Geometry Module ThisDrawing   Function ModelSpace_AddLine(ByVal StartPt As Point3d, ByVal EndPt As Point3d) _       As DatabaseServices.Line     Dim myTransMan As DatabaseServices.TransactionManager     Dim myTrans As DatabaseServices.Transaction     Dim myDoc As ApplicationServices.Document     Dim myDWG As DatabaseServices.Database     Dim myBT As DatabaseServices.BlockTable     Dim myMS As DatabaseServices.BlockTableRecord     Dim myLine As DatabaseServices.Line     myLine = New DatabaseServices.Line(StartPt, EndPt)     myDoc = ApplicationServices.Application.DocumentManager.MdiActiveDocument     myDWG = myDoc.Database     myTransMan = myDoc.TransactionManager     myTrans = myTransMan.StartTransaction     myBT = myDWG.BlockTableId.GetObject(OpenMode.ForRead)     myMS = myBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)     myMS.AppendEntity(myLine)     myTrans.AddNewlyCreatedDBObject(myLine, True)     myTrans.Commit()     myTrans.Dispose()     myTransMan.Dispose()     Return myLine   End Function End Module

看看下面的代码如何？让我们看看怎样用它。

2. <CommandMethod("DrawLineB")> _
3. Public Sub DrawLineB()
4.   Dim StPoint As New Geometry.Point3d(1, 2, 3)
5.   Dim EnPoint As New Geometry.Point3d(4, 5, 6)
6.   ThisDrawing.ModelSpace_AddLine(StPoint, EnPoint)
7. End Sub

<CommandMethod("DrawLineB")> _ Public Sub DrawLineB()   Dim StPoint As New Geometry.Point3d(1, 2, 3)   Dim EnPoint As New Geometry.Point3d(4, 5, 6)   ThisDrawing.ModelSpace_AddLine(StPoint, EnPoint) End Sub

这是不是更象我们之前所用到的代码？所以，少量的代码段动作和少量的模块工作，这样就可以伪装成 AutoCAD 2007 类型库。
现在我们要考虑如何才能做一些文件来使在 VB.NET 中处理 VBA。

2. <CommandMethod("FindDWGs")> _
3. Public Sub FindDWGs()
4.   Dim myDir As New IO.DirectoryInfo("C:\Program Files\AutoCAD 2007")
5.   Dim myFile As IO.FileInfo
6.   For Each myFile In myDir.GetFiles("*.dwg", IO.SearchOption.AllDirectories)
7.   MsgBox(myFile.FullName)
8.   Next
9. End Sub

<CommandMethod("FindDWGs")> _ Public Sub FindDWGs()   Dim myDir As New IO.DirectoryInfo("C:\Program Files\AutoCAD 2007")   Dim myFile As IO.FileInfo   For Each myFile In myDir.GetFiles("*.dwg", IO.SearchOption.AllDirectories)   MsgBox(myFile.FullName)   Next End Sub

以下是VBA代码:

2. Sub FindDWGs()
3.   GetDWGs "C:\Program Files\AutoCAD 2007"
4. End Sub
5. Sub GetDWGs(FolderIn As String)
6.   Dim myFile As File
7.   Dim mySub As Folder
8.   Dim myFSO As New FileSystemObject
9.   Dim myFolder As Folder
10.   Set myFolder = myFSO.GetFolder(FolderIn)
11.   For Each myFile In myFolder.Files
12.    Select Case LCase(Right(myFile.Name, 4))
13.    Case ".dwg"
14.     MsgBox myFile.Path
15.    End Select
16.   Next
17.   For Each mySub In myFolder.SubFolders
18.     GetDWGs mySub.Path
19.   Next
20. End Sub

Sub FindDWGs()   GetDWGs "C:\Program Files\AutoCAD 2007" End Sub Sub GetDWGs(FolderIn As String)   Dim myFile As File   Dim mySub As Folder   Dim myFSO As New FileSystemObject   Dim myFolder As Folder   Set myFolder = myFSO.GetFolder(FolderIn)   For Each myFile In myFolder.Files    Select Case LCase(Right(myFile.Name, 4))    Case ".dwg"     MsgBox myFile.Path    End Select   Next   For Each mySub In myFolder.SubFolders     GetDWGs mySub.Path   Next End Sub

mccad

AutoCAD 和 Office 的 VSTA 时机

说真的，什么时候VSTA将在AutoCAD使用？

由于与Autodesk的保密协议，这不能说。

那微软呢？什么时候VSTA会成为应用程序套装中的一部分？2007版是没有的，这已经是确切的信息。InfoPath是唯一带有VSTA的应用程序。那2008呢，这有可能。

在 Office 2007, VBA出现在Excel中但没有出现在InfoPath中。在Office 2007，VSTA在InfoPath中但没有在Excel中。好象微软不太可能会提供64位的VBA解决方案。

VSTA是如何工作的?

让我们做一些猜测吧。还是保密的问题。

VSTA好象将与VBA的方式进行工作。

在VBA中，“vbarun”命令是用于启动VBA宏。一个类似的命令也可以用于运行VSTA命令。

VBA文件保存为一个单一的.dvb文件。可能VSTA工程也将被保存成一个单一的文件。VBA文件通过将工程加入到“启动组”中实现“自动加载” 。

回顾

VSTA即将到来，指日可待。Autodesk 没有说到底何时使用，但已经让我们知道现在是开始学习.net API 和 Autodesk.AutoCAD 命令空间的时候了。64位是未来，而VBA将会过去。

让我们团结起来，各位编程的兄弟姐妹们。学习.NET，你我都将会站起来，斜眼看着C++编程者说：“不要老是看不起我!!!”

河伯

资料很好。关注VSTA已有一段时间，试过InfoPath 2007中VSTA，真不错。

AutoCAD嵌入VSTA是早晚的事，目前这方面资料太少。

下面网址是代理微软发售VSTA授权的公司，有些资源，请英文好的朋友翻译一些。

http://www.summsoft.com/

e2002

看上去Autodesk 在一些方向上还是受到MS的制约啊...

chshsl

是啊，受桌面系统控制的东东太多了！好多好的东西都被微软搞掉了，以后多元化就不存在了！