' (C) Copyright 2012 - FRaccie
Imports System
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
' This line is not mandatory, but improves loading performances
<Assembly: ExtensionApplication(GetType(AutoCAD_Tools.MyPlugin))>
Namespace AutoCAD_Tools
Public Class MyPlugin
Implements IExtensionApplication
Public Sub Initialize() Implements IExtensionApplication.Initialize
Try
' Create an AutoCAD toolbar with buttons
Dim callensModule As System.Reflection.Module = System.Reflection.Assembly.GetExecutingAssembly().GetModules()(0)
Dim callensModulePath As String = callensModule.FullyQualifiedName
callensModulePath = callensModulePath.Substring(0, callensModulePath.LastIndexOf("\"))
Dim acadApp As Autodesk.AutoCAD.Interop.AcadApplication _
= Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
Dim hwTb As Autodesk.AutoCAD.Interop.AcadToolbar _
= acadApp.MenuGroups.Item(0).Toolbars.Add("Callens & EMK - AutoCAD Toolbar")
Dim tbBut0 As Autodesk.AutoCAD.Interop.AcadToolbarItem _
= hwTb.AddToolbarButton(0, "Hello", "Hello My Makers", "_HELLO ")
'tbBut0.SetBitmaps(callensModulePath + "\tbBut0.bmp", callensModulePath + "\tbBut0.bmp")
'Dim tbBut1 As Autodesk.AutoCAD.Interop.AcadToolbarItem _
'= hwTb.AddToolbarButton(1, "About", "About My Makers", "_SHOWABOUT ")
'tbBut1.SetBitmaps(callensModulePath + "\dwg2excel.bmp", callensModulePath + "\dwg2excel.bmp")
Dim tbBut2 As Autodesk.AutoCAD.Interop.AcadToolbarItem _
= hwTb.AddToolbarButton(2, "DWG2EXCEL", "DWG2EXCEL", "_DWG2EXCEL ")
tbBut2.SetBitmaps(callensModulePath + "\dwg2excel.bmp", callensModulePath + "\dwg2excel.bmp")
' MsgBox(callensModulePath + "\dwg2excel.bmp")
Dim tbBut3 As Autodesk.AutoCAD.Interop.AcadToolbarItem _
= hwTb.AddToolbarButton(3, "EXCEL2DWG", "EXCEL2DWG", "_EXCEL2DWG ")
tbBut3.SetBitmaps(callensModulePath + "\excel2dwg.bmp", callensModulePath + "\excel2dwg.bmp")
hwTb.Dock(Autodesk.AutoCAD.Interop.Common.AcToolbarDockStatus.acToolbarDockLeft)
Catch
Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(vbCr & "Initializing failed")
End Try
End Sub
Public Sub Terminate() Implements IExtensionApplication.Terminate
' Do plug-in application clean up here
End Sub
End Class
End Namespace