---

Hallo!
Mal wieder ein neues Problem.
Ich habe hier den Code für ein PaletteSet.

Was ich aber nicht schaffe ist, dass es nicht angedockt wird und eine bestimmte Position hat.
Hier mal angenommen ein Drittel des Schirms.

Es wird aber immer oben angedockt...

Gleich noch eine Frage, kann man überprüfen ob ein bestimmter PaletteSet in Autocad schon "offen" ist bzw angezeigt wird?

Code:

---

Imports Autodesk.AutoCAD.Customization
Imports System
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports vb = Microsoft.VisualBasic
<Assembly: ExtensionApplication(GetType(Start))>
<Assembly: CommandClass(GetType(ACADCommands))>
Public Class Start
    Implements Autodesk.AutoCAD.Runtime.IExtensionApplication
    Dim acadApp As Autodesk.AutoCAD.Interop.AcadApplication = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication

    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 AcadCommands
    Dim acadApp As Autodesk.AutoCAD.Interop.AcadApplication = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication

    <Autodesk.AutoCAD.Runtime.CommandMethod("PSPDocmanager")> _
    Public Sub Docman()
        Dim ps As PaletteSet = New PaletteSet("Productstream Manager")
        Dim pal As Palette
        Dim pt As New System.Drawing.Point(Autodesk.AutoCAD.ApplicationServices.Application.MainWindow.Size.Width / 3, Autodesk.AutoCAD.ApplicationServices.Application.MainWindow.Size.Height / 3)
        Dim siz As New System.Drawing.Size(200, 250)

        pal = ps.Add("Productstream Document Manager", New DocumentManager)
        ps.Dock = DockSides.None
        ps.Size = siz
        ps.Location = pt
        ps.Activate(0)
        ps.Visible = True

    End Sub
End Class

---

[Diese Nachricht wurde von veydan am 24. Mrz. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

...stimmt, wenn die Applikations das erste mal gestartet wird (und ein PaletteSet geladen wird), dann kann man Koordinaten angeben, das scheint dem AutoCAD egal, es dockt immer links an.

Ich kann nur erahnen, was hier passiert: Autodesk hatte lange Zeit mit 'verschwundenen' Dialogen zu kämpfen (siehe Threads wie Layerdialog verschwunden, oder Eigenschaftsfenster nicht mehr sichtbar, ...), also wird das ganze jetzt über Arbeitsbereiche gesteuert. Und wenn ein Dialog noch nicht bekannt ist, dann eben links dranhängen.

Vorteil aber doch daraus: wenn Du den Dialog mal zurechtgerückt hast, dann bleibt die Position und Größe auch mit den Arbeitsbereichen gespeichert.

Ist wahrscheinlich nicht die gewünschte Antwort, aber hoffentlich als Erklärung hilfreich.

- alfred -

------------------
www.hollaus.at

---

Hallo!
Ich habe es anders gelöst.
Einfach in C#, dann klappt es ohne Probleme.

Weiterer Vorteil, ich habe es in VB.NET nicht geschafft, dass wenn ich den Befehl zur Anzeige des PaletteSets ausführe nicht ein zweites drittes, viertes PaletteSet erscheint.

in C# habe ich das einfach über eine static Variable auf Klassenebene gelöst.

mfg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

dass mit C# was anders passiert als mit vb.NET kann ich nicht glauben, die erzeugen den gleichen CRL/CIL-Code, damit kann es eigentlich nur an Unterschieden in der Programmierung liegen.

Bzgl. mehrfachem Start des Dialogs hättest Du genauso mit vb.NET abfangen können, indem Du hier eine Variable mit 'Shared' deklarierst und bei jedem Befehlsaufruf prüfst, ob diese schon 'belegt' ist.

Also z.B. in Deiner 'Class AcadCommands'

Code:

---

private Shared pPalSet As PaletteSet = nothing

<Autodesk.AutoCAD.Runtime.CommandMethod("PSPDocmanager")> _
Public Sub Docman()
    if pPalSet is nothing then
        Dim ps As PaletteSet = Nothing
        Try
          ps = New PaletteSet("Productstream Manager")
          Dim pal As Palette
          '....alle init's dafür
        Catch ex as Exception
        Finally
          if ps isnot nothing then pPalSet = ps
        End Try
    End If
    If pPalSet isnot Nothing then pPalSet.Visible = True
End Sub

---

Und mich interessiert jetzt ganz brennend, wie Du AutoCAD dazu bringst, eine Palette, die dem Profil/dem Arbeitsbereich noch nicht bekannt war, 'ungedockt' zu starten 

- alfred -

------------------
www.hollaus.at

---

bei diesem Code funktioniert es einwandfrei
der erste befehl wird über ein externes programm jedesmal abgesetzt wenn eine Zeichnung aufgemacht wird.

der 2 ist nur um es wieder anzuzeigen, falls es geschlossen wurde.

Code:

---

public class PSPDocumentMan
    {
        static Autodesk.AutoCAD.Windows.PaletteSet ps;

        [Autodesk.AutoCAD.Runtime.CommandMethod("LoadPSPDocManager")]
        public static void DoIt()
        {
            if (ps == null)
            {
                //use constructor with Guid so that we can save/load user data
                ps = new Autodesk.AutoCAD.Windows.PaletteSet("Productstream Manager");
                ps.Style = Autodesk.AutoCAD.Windows.PaletteSetStyles.NameEditable |
                    Autodesk.AutoCAD.Windows.PaletteSetStyles.ShowPropertiesMenu |
                    Autodesk.AutoCAD.Windows.PaletteSetStyles.ShowAutoHideButton |
                    Autodesk.AutoCAD.Windows.PaletteSetStyles.ShowCloseButton;
                ps.MinimumSize = new System.Drawing.Size(250, 250);
                ps.Add("Productstream Document Manager", new PSPDocumentManager());

                ps.Visible = true;
                ps.Dock = Autodesk.AutoCAD.Windows.DockSides.None;
                ps.Location = new Point(300, 300);
            }
           
        }
        [Autodesk.AutoCAD.Runtime.CommandMethod("ShowPSPDocManager")]
        public static void DoShowIt()
        {
            if (ps != null)
            {
                ps.Visible = true;
                ps.Dock = Autodesk.AutoCAD.Windows.DockSides.None;
                ps.Location = new Point(300, 300);
            }

        }
    }

---

mfg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Großartig, vielen Dank, meine ursprüngliche Aussage ist dann widerlegt (dass AutoCAD beim ersten Start automatisch andockt), mein Fehler (wenn auch ich das nicht als echten Fehler sehe) war, dass ich alle Einstellungen rund um Dock, Position, ... explizit VOR dem '.Visible' gemacht habe, natürlich in der Hoffnung, dass dann nicht großes Bildschirm-Flackern auftritt, weil die Situation eben vor einschalten geklärt ist.

Dem ist nicht so, zuerst muss '.Visible' gemacht werden und dann eben Bildschirmflackern während ungedockt wird und dann nochmals während das PaletteSet zu definierter Position geschoben wird, aber so funktionierts wenigstens, nochmals vielen Dank.

Kleiner Hilfehinweis zu Deinem Code: wenn der User mal das PaletteSet zu einer Position verschiebt, wo er es eben gerne hätte, dann speichert sich AutoCAD die Position und startet beim nächsten mal eh richtig, also die Einstellungen mit '.Position' musst Du nur beim ersten Start Deiner Applikation einstellen.

- alfred -

------------------
www.hollaus.at