'
'  (C) Copyright 2007 by Autodesk, Inc.  All rights reserved.
'
' Permission to use, copy, modify, and distribute this software in
' object code form for any purpose and without fee is hereby granted, 
' provided that the above copyright notice appears in all copies and 
' that both that copyright notice and the limited warranty and
' restricted rights notice below appear in all supporting 
' documentation.
'
' AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. 
' AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
' MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC. 
' DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
' UNINTERRUPTED OR ERROR FREE.
'
' Use, duplication, or disclosure by the U.S. Government is subject to 
' restrictions set forth in FAR 52.227-19 (Commercial Computer
' Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
' (Rights in Technical Data and Computer Software), as applicable.
'
' This sample application shows how to create detail symbol using COM API in SymBBAuto.
' To start the application, run CREATEDETAILSYM command.
'

Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.Type

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common.AcRegenType
Imports Autodesk.AutoCAD.ApplicationServices

Imports SymBBAuto.McadOrientation
Imports SymBBAuto.McadWeldSymbolType
Imports SymBBAuto


<Assembly: ExtensionApplication(GetType(netDetail.netDetail))> 
<Assembly: CommandClass(GetType(netDetail.CreateCommand))> 
Namespace netDetail
    Public Class netDetail
        Implements Autodesk.AutoCAD.Runtime.IExtensionApplication

        Public Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize

        End Sub

        Public Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate

        End Sub
    End Class

    Public Class createCommand
        <Autodesk.AutoCAD.Runtime.CommandMethod("CREATEDETAILSYM")> _
        Public Sub ShowNet()
            Dim userForm As New frmDetail
            userForm.StartPosition = Windows.Forms.FormStartPosition.CenterScreen
            userForm.Show()
        End Sub
    End Class

End Namespace
