1

ゴール

プラグインの起動時にパレットセットのサイズを変更して、次のようにします。

パレットセットゴール

ここではすべてが正しく調整されており、見栄えがします。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

この結果は、実際にはパレット セットをドッキングしていないようです。下部に不要なスペースがあります。

コードの後の現在のパレット セット

パレット セットのサイズを正しく変更するにはどうすればよいですか?

4

1 に答える 1