Imports System
Imports System.Net
Imports System.Runtime
Imports System.Drawing
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Windows
Imports Win = Autodesk.AutoCAD.Windows
<Assembly: CommandClass(GetType(Autodesk.AutoCAD.Sb.Plugin.MyCommands))>
Namespace Autodesk.AutoCAD.Sb.Plugin
Public Class MyCommands
Private Shared palette_set As Win.PaletteSet = Nothing
Private Shared _UserControl1 As UserControl1 = Nothing
<CommandMethod("Test", CommandFlags.Session)> _
Public Sub MyPalleteTest()
If palette_set Is Nothing Then
palette_set = New Win.PaletteSet("Пример")
_UserControl1 = New UserControl1
palette_set.Add("Пример", _UserControl1)
palette_set.KeepFocus = True
palette_set.Visible = True
palette_set.Style = Win.PaletteSetStyles.ShowCloseButton Or Win.PaletteSetStyles.ShowPropertiesMenu Or Win.PaletteSetStyles.ShowAutoHideButton
palette_set.DockEnabled = Win.DockSides.Left Or Win.DockSides.Right
palette_set.Size = New Size(700, 600)
palette_set.TitleBarLocation = Win.PaletteSetTitleBarLocation.Right
palette_set.Dock = Win.DockSides.Right
palette_set.Opacity = 100
palette_set.RecalculateDockSiteLayout()
Else
palette_set.KeepFocus = True
palette_set.Visible = True
End If
End Sub
End Class
End Namespace