---

Hallo Forum! Ich brauch noch mal Hilfe zum erstellen eines Button aus VBA. Ich hab jetzt schon ne ganze weile probiert und auch das Forum und das Netz durchforstet, wurde aber leider nicht fündig.
...Und zwar, kann mir jemand ein Beispiel posten, wie man beispielsweise in der Werkzeugbox "Abfrage" einen neuen Button erstellt?! Bitte ;-)

Und noch ne kleine andere Frage am Rande: In welcher Variable ist der
AutoCAD-Standartordner/Standartpfad hinterlegt? Ich benutze dafür "AcadApplication.Application.Path". ...Ist das die richtige?

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

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

---

Hi Einstein,

Wenn du mit Standard-Ordner den Ordner meinst, worin Autocad installiert ist, dann ist ThisDrawing.Application.Path das richtige.

Zur Toolbox muss ich heute Abend mal schauen. Ich meine da hätte sich was seit der Umstellung auf die CUI geändert.

Gruß, Carsten

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

---

Hallo! Ich bin's noch mal und ich hab's leider immer noch ni hin bekomm.

Zur Zeit bin ich so weit, dass in einer ComboBox aller, in Acad zur Verfügung stehenden Werkzeugkisten angezeigt werden. Der Bediener soll auswählen in welcher dieser Werkzeugkisten der Toolbutton erzeugt wird. ...Doch wie kann ich VBA/Acad sagen das dieser Button, in der beispielsweise nicht angezeigte/unsichtbaren Werkzeugbox "Zoom" oder "Abfrage" erstellt werden soll?

Bitte helft mir! Danke

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

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

---

Hi Einstein,

du musst dir den passenden Werkzeugkasten aus den Items von Application.MenuGroups("acad").toolbars über item.name raussuchen und dann kannst du deine Schaltfläche zuweisen.

Gruß, Carsten

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

---

Hallo Carsten1210. Ich hab's jetzt so programmiert und es läuft immer noch ni.

Sub Example_Top()
 
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

    Dim inToolBar As AcadToolbar
    Set inToolBar = Application.MenuGroups("acad").Toolbars.Item.Name("Abfrage")
 
   
    Dim newButton1 As AcadToolbarItem
    Set newButton1 = inToolBar.AddToolbarButton("", "TestButton", "Datei öffen", "_open ")
   
End Sub

Und da ergibt sich gleich noch ne Frage: Wie kann ich den Button ein eigenes Icon zuweisen und wie programmiere ich das, dass nach dem Neustart von Acad der Button immer noch da ist. Denn als ich's vorhin etwas zum laufen bekam, verschwand dieser Button nach jeden Acad Neustart!?

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

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

---

Hi,

Ungetestet.

Vielleicht hilft es dir ja weiter.

Gruß, Carsten

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

---

Hi carsten1210. Vielen Dank für die AW! Ich hab's jetzt hin bekomm!  

Nach stundenlangem probieren, Beispielcodes testen und auch dem "Support-Studium" hat's endlich geklappt.

Da ich aber immer noch VBA-Anfänger bin   , hab ich natürlich noch viele Fragen. Eine davon werd ich gleich in einen neuen Thread stellen.

...Ich hoffe ich nerve euch nicht, mit meinen ständigen Fragen und den vielen Threads.

------------------
MfG  A. Einstein       

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

[Diese Nachricht wurde von Einstein am 03. Jun. 2007 editiert.]

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