Hallo liebe Community,
leider bin ich hier erst seit heute registriert und auch noch ein absoluter Neuling im Gebiet der Inventor-Programmierung.
Wie ich gesehen habe, ist dieses Forum ein sehr beliebter Treffpunkt und auch ein Platz, wo einem sehr schnell und sehr gut weiter geholfen wird. Vielen Dank schon im Voraus für eure Bemühungen zu meiner Frage. Ich denke für euch wird es kein großes Problem darstellen diese zu beantworten oder mit Tips und Hinweise zu geben, aber ich selbst schlage mich jetzt schon seit ein paar Tagen damit rum eine Lösung selbst zu finden.
Ich wollte mal versuchen über ein Add-In, dass man im Inventor dann einbinden kann einen Button generieren zu lassen, der im Inventor erscheint und bei dessen anklicken dann eine selbst geschrieben Funktion ausgeführt wird. Zum Testen und beginn würde es auch mal reichen eine MessageBox aufgehen zu lassen. Wie ich eine DLL-Datei erstelle und diese dann so registrieren bzw. ausführen lassen kann, damit das Add-In im Inventor automatisch geladen wird, habe ich schon slebst hinbekommen. Mir fehlt aber komplett das Wissen über die API als Neuling und auch das ein oder andere auf Englisch geschriebene ist mir etwas missverständlich.
Daher meine Frage, ob ihr mir weiterhelfen könnt mit Code, wie man einen Button definiert in der DLL-Datei, und dafür sorgt, dass dieser Button dann im Inventor geladen wird / erscheint bzw. eine Aktion stattfindet wenn man darauf klickt.
Hilfreich wäre es auch wenn jemand bei der Gelegenheit schreiben könnte, wei man dann z.B. den generierten Button auch wieder verschwieden lassen könnte im Inventor später.
Das einzige was ich bisher habe ist der Ansatz:
Code:
Dim WithEvents oButtonDefinition As ButtonDefinitionPrivate Sub ApplicationAddInServer_Activate(ByVal AddInSiteObject As Inventor.ApplicationAddInSite, ByVal FirstTime As Boolean)
'the activate method is called by Inventor when it loads the addin
'the AddInSiteObject provides access to the Inventor Application object
'the FirstTime flag indicates if the addin is loaded for the first time
'initialize global variables
Set objInventorApp = AddInSiteObject.Application
blnAddInLoadedFirstTime = FirstTime
'add addin activate code here
'e.g. event initialization, command creation etc.
Set oapp = GetObject(, "Inventor.Application")
'MsgBox ("GESTARTET")
Dim oControlDefinitions As ControlDefinitions
Set oControlDefinitions = oapp.CommandManager.ControlDefinitions
End Sub
Das Problem wie ihr sehr ist, dass ich keinen wirklichen Ansatz habe und mir auch irgendwie das verständnis sicherlich fehlt wie ich nun beim Aktivieren einen Button erstellen kann, dieser dann geladen wird im Inventor und beim anklicken z.B. eine Message Box erscheint, also wie ich dann am Ende sozusagen den Prozedur-Körper schreiben muss, dass der Button auch angesprochen wird.
Vielen dank im Voraus für eure Bemühungen und eure Hilfe.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP