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]

Imports Autodesk.AutoCAD.Interop 

 Public Class Class1 

     ReadOnly Property ThisDrawing() As Autodesk.AutoCAD.Interop.AcadDocument 
        Get 
            Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument 
        End Get 
    End Property 

     <Autodesk.AutoCAD.Runtime.CommandMethod("TEST")> _ 
    Sub test() 
         ThisDrawing.Utility.Prompt("Hello World!") 
    End Sub 

End Class


 

[C#] 

using System; 
using System.Collections.Generic; 
using System.Text; 
using Autodesk.AutoCAD.Interop; 

namespace CSTest 
{ 
    public class Class1 
     { 
        public static AcadDocument ThisDrawing 
         { 
            get 
             { 
                return (AcadDocument)Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument; 
             } 
         } 

         [Autodesk.AutoCAD.Runtime.CommandMethod("TEST")] 
        public void test() 
         { 
             ThisDrawing.Utility.Prompt("Hello World!"); 
         } 

     } 
}