Zitat:
Original erstellt von RoccoRalle:
Danke Seher,habe die Doku durchgeackert, die AIMDAddIn 11.0 Library hinzugefügt scheite aber an folgender Stelle:
Public Sub Compass_Test()
Dim oAIMDAutomation As AIMDAutomation
Dim oAIMDkey As String
oAIMDkey = oAIMDAutomation.Compass.GetAIMKEY _(ThisApplication.ActiveDocument)
End Sub
mit folgender Fehlermeldung:
- Objektvariable oder ... nicht festgelegt
Wer kann mir helfen ??? (Laut Duku ist das alles richtig!)
Hallo Ralf,
ich kenne die Compass-API zwar nicht, aber das Problem liegt offensichtlich bei
Dim oAIMDAutomation As AIMDAutomation
Du hast damit die Objektvariable erst deklariert, aber noch keinen Verweis gesetzt, damit Du sie dann weiter unten nutzen kannst.
Die Zeile muss entweder so aussehen:
Dim oAIMDAutomation As New AIMDAutomation
oder aber so:
Dim oAIMDAutomation As AIMDAutomation
Set oAIMDAutomation = .... (irgendwie sowas: = AIMDAddIn.AIMDAutomation)
------------------
Grüsse, Paul
Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung
thinkCAD Web-Kataloge
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP