用vb 和 vb.net 进行CAD二次开发有什么区别？

houlinbo

用vb 和 vb.net  进行CAD二次开发有什么区别？

houlinbo

    Public Sub NewDwg()
        Dim acadDoc As Autodesk.AutoCAD.Interop.AcadDocument '连接CAD文档
        Dim acadapp As Autodesk.AutoCAD.Interop.AcadApplication '连接CAD环境
        ' 连接至 AutoCAD 应用程序
        Try
            ' 可能导致异常的代码
            acadapp = GetObject(, "AutoCAD.Application.17")
        Catch
            ' 当异常发生时处理异常的代码
            Err.Clear()
            Try
                acadapp = CreateObject("AutoCAD.Application.17")
            Catch
                MsgBox(Err.Description)
                Exit Sub
            End Try
        Finally
            ' 清理现场
        End Try
        ' 连接至 AutoCAD 图形
        acadDoc = acadapp.ActiveDocument
        acadapp.Visible = True
        '==========================================================
        '新建Dwg文件
        Try
            acadDoc = acadapp.Application.Documents.Add
            acadDoc.SaveAs("f:\houlinbo.dwg")
            'acadDoc.Close()
            'acadDoc.Application.Documents.Open("f:\houlinbo.dwg", False)
        Catch
        End Try
    End Sub