CADVBA代码移植到.NET

之前写的VBA代码，如果全部用.NET改写，比较劳命伤财，没什么兴趣改写。所以用了一种很偷懒的方法。
       通过com方式调用AutoCAD 200x Type Library，和AutoCAD/ObjectDBX Common xx.x Type Library，定义VBA中的ThisDrawing对象，书写比较规范的VBA代码基本上不用做什么修改就能运行了。
       对于VBA中的窗体，可以先导出为VB窗体，然后用升级向导升级到.NET，做些必要的修改就可以了。
       AutoDesk官方有相关的视频教程，还有个导出VBA到VB的工具。VBA→VB→VB.NET
       相关视频及工具下载地址: http://download.autodesk.com/media/adn/VBA_Migration/DevTV_Recording.zip

[VB.NET]


 1 Imports Autodesk.AutoCAD.Interop 
 2 
 3  Public Class Class1 
 4 
 5      ReadOnly Property ThisDrawing() As Autodesk.AutoCAD.Interop.AcadDocument 
 6         Get 
 7             Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument 
 8         End Get 
 9     End Property 
10 
11      <Autodesk.AutoCAD.Runtime.CommandMethod("TEST")> _ 
12     Sub test() 
13          ThisDrawing.Utility.Prompt("Hello World!") 
14     End Sub 
15 
16 End Class