Как изменить размер набора палитр AutoCAD

Цель

Измените размер палитры, установленной при запуске плагина, чтобы она выглядела так:

Палитра Установить цель

Здесь все правильно настроено и выглядит красиво. Эта настройка сохраняется при закрытии AutoCAD вручную. Хотя моей целью было бы заставить программу запускаться именно так.


Текущий результат запуска

Вот результат, который я получаю при запуске:

Текущий результат настройки палитры

Как видите, она недостаточно широка. Ширина должна быть больше, но высота установлена ​​правильно.


Текущая попытка

Вот что у меня есть при запуске моего приложения:

<CommandMethod("Hunter-P")> _
Public Sub HunterP()
    'Tool Palette
    If ps Is Nothing Then
        ps = New Autodesk.AutoCAD.Windows.PaletteSet("Hunter Palette Set", "", New Guid("{ECBFEC73-9FE4-4aa2-8E4B-3068E94A2BFA}"))
        ps.Style = Autodesk.AutoCAD.Windows.PaletteSetStyles.ShowPropertiesMenu Or Autodesk.AutoCAD.Windows.PaletteSetStyles.ShowAutoHideButton Or _
                   Autodesk.AutoCAD.Windows.PaletteSetStyles.ShowCloseButton
        projPalette = New tpProjectToolPalette(Me)
        convPalette = New tpConveyorToolPalette(Me)
        ps.Add("Projects", projPalette)
        ps.Add("Conveyors", convPalette)
    End If

    ps.Visible = True
    ps.Dock = Autodesk.AutoCAD.Windows.DockSides.Left ' Docks the palette set to the left
    ps.Size = New System.Drawing.Size(350, 800) 'Sets the width and height
    convPalette.Visible = False

    'Activate Project ToolPalette
    ps.Activate(0)
    If m_DocData Is Nothing Then
        m_DocData = New MyDocData
    End If

    AddHandler AcApp.DocumentManager.DocumentActivated, AddressOf Me.DocumentManager_DocumentActivated
    AddHandler AcApp.DocumentManager.DocumentToBeDeactivated, AddressOf Me.DocumentManager_DocumentToBeDeactivated
End Sub

Этот результат, кажется, фактически не закрепляет набор палитр. Внизу есть нежелательное пространство.

Текущий набор палитр после кода


Как правильно изменить размер палитры?


person Alex    schedule 29.04.2014    source источник


Ответы (1)


Я решил эту проблему, поменяв местами строки Dock и Size.

Становится возможным изменить его размер таким образом (при этом сохраняя его закрепленным слева)

ps.Size = New System.Drawing.Size(335, 600) 'Resizing
ps.Dock = Autodesk.AutoCAD.Windows.DockSides.Left

Это решило мою проблему.

person Alex    schedule 29.04.2014