如何调整AutoCAD调色板集的大小

时间:2014-04-29 18:11:29

标签: vb.net resize palette autocad-plugin

目标

调整插件启动时调色板的大小,使其如下所示:

Palette Set Goal

这里的一切都经过正确调整,看起来不错。手动关闭AutoCAD时,此设置已保存。虽然,我的目标是让程序让它像这样启动。


当前启动结果

这是我开始的结果:

Current Palette Set Result

正如你所看到的,它还不够广泛。宽度需要变大但高度设置正确。


当前尝试

以下是启动我的应用程序时的内容:

<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

这个结果似乎并没有实际停靠调色板组。底部有不需要的空间。

Current Palette Set After Code


我们如何正确调整调色板设置?

1 个答案:

答案 0 :(得分:1)

我通过切换DockSize行解决了这个问题。

可以像这样调整大小(同时保持向左停靠)

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

这解决了我的问题。