---

Hallo zusammen!

Ich bin gerade dabei ein wenig mit VBA in Autocad 2006 Map zu programmieren (Newbie), und wollte mir ein eigenes Menü basteln. Folgender Code:

Sub Start_Point()
    'Deklaration
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = Application.MenuGroups("ACAD")

    ' Erstellen eines neuen Menüs
    Dim newMenu As AcadPopupMenu
    Dim testMenu As AcadPopupMenu
    Dim Vorhanden As Boolean
    Vorhanden = False
    On Local Error Resume Next
   
    For Each testMenu In currMenuGroup.Menus
      If testMenu.Name = "LW-Tools" Then Vorhanden = True
    Next testMenu

    If Vorhanden = False Then
        Set newMenu = currMenuGroup.Menus.Add("LW-Tools")
    Else
        Set newMenu = currMenuGroup.Menus("LW-Tools")
    End If

    ' Deklarieren der Variablen für die Menüoption
    Dim newMenuItem As AcadPopupMenuItem
    Dim openMacro As String

   
    ' Anzeigen des Menüs in der Menüleiste
    If newMenu.OnMenuBar = False Then
        newMenu.InsertInMenuBar (Application.MenuBar.Count)
    End If

End Sub

Es passiert immer folgendes: Wenn ich das Programm ausführe, wird meine Menüleiste auf "Datei", "Ansicht", "Fenster" und "?" reduziert. Wollte aber das meine normale Map-Leiste erhalten bleibt, und mir lediglich am Ende mein PopupMenu "LW-Tools" erscheint.

Was mache ich falsch??

Danke schon im voraus.

Ralf

------------------
Toshiba Tecra

Autcad Map 3D 2006
Vestra CAD

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

---

Hi .. und willkommen als Aktiver bei CAD.de ..
ohne mich jetzt mit deinem Code zu befassen : schau mal auf Afralisp .. die Jungs haben da ein Tutorial dazu...

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

Danke das bringt mich doch gleich ein Stück weiter. Schau ich mir dann in Ruhe mal an.

Ralf

------------------
Toshiba Tecra

Autcad Map 3D 2006
Vestra CAD

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