Function in vb? (Autodesk/Inventor VBA)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Function in vb? (693 mal gelesen)

wehk
Mitglied

Schreiben Sie einen Gästebucheintrag für wehk

Beiträge: 14
Registriert: 31.07.2002

erstellt am: 01. Sep. 2004 10:30

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo
habe wieder einmal ein (Anfänger-) Problem.
Ich würde gern in Assembly-Modus einen WorkPoint auswählen.
Hierzu habe ich aus der Hilfe (SelectSimple) die Daten in VB kopiert.
Leider gibt Inventor immer die Fehlermeldung "Laufzeitfehler 91
Objektvariable oder With-Block-Variable nicht festgelegt" an.
Ich meine aber, dass ich diese gesetzt habe... oder vertue ich mich da :- )

Quelltext:
.
.
Private Sub SuchPunkt()
...
Dim oSelect As New clsSelect
Dim oWorkPoint As WorkPoint
Set oWorkPoint = oSelect.Pick(kWorkPointFilter)
...
End Sub

unter der Klasse clsSelect

Option Explicit
Private WithEvents oInteractEvents As InteractionEvents

Public Function Pick(filter As SelectionFilterEnum)
...
Set oInteractEvents = oApp.CommandManager.CreateInteractionEvents 'an dieser Stelle springt das Programm immer raus :- (
...
End Function

Danke :- )

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

yamaha
Mitglied
Konstrukteur

Senden Sie eine Private Message an yamaha

Schreiben Sie einen Gästebucheintrag für yamaha

Beiträge: 374
Registriert: 19.05.2004

Autocad/Inventor 2022, Windows 10 Pro 64Bit

erstellt am: 01. Sep. 2004 10:45

<-- editieren / zitieren -->

Unities abgeben:

Nur für wehk

Hallo wehk,

Hast du "oApp" auch zugewiesen?

Versuch doch mal
"ThisApplication.CommandManager.CreateInteractionEvents"

------------------
Gruß Jörn

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

yamaha
Mitglied
Konstrukteur

Beiträge: 374
Registriert: 19.05.2004

Autocad/Inventor 2022, Windows 10 Pro 64Bit

erstellt am: 01. Sep. 2004 10:47

<-- editieren / zitieren -->

Unities abgeben:

Nur für wehk

Sorry wehk.

"ThisApplication.CommandManager.CreateInteractionEvents"

geht ja garnicht weil du in VB bist.

Versuch mal:
Private oApp As Inventor.Application
Set oApp = AddInSiteObject.Application

------------------
Gruß Jörn

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

wehk
Mitglied

Beiträge: 14
Registriert: 31.07.2002

erstellt am: 01. Sep. 2004 10:55

<-- editieren / zitieren -->

Unities abgeben:

Hallo...

an oApp scheint es nicht zu liegen... ich benutze dieses Befehl schon vorher... ohne Beanstandung.... wenn es daran liegen sollte, so hätte Inventor schon vorher meckern müssen... tut es aber nicht.

Ich vermute, dass "WithEvents" nicht richtig übernommen wurde...

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

Senior Konstrukteur (m/w/d)
KraussMaffei ist einer der weltweit führenden Hersteller von Maschinen und Anlagen für die Produktion und Verarbeitung von Kunststoff und Kautschuk. Als einziger Anbieter im Markt vereinen wir alle Technologien der Kunststoffverarbeitung und stehen seit mehr als 180 Jahren für Spitzentechnologie und wegweisende Innovationen. Mit unseren Lösungen arbeiten Kunden aus Automobil-, Bau-, Medizin- und Verpackungsindustrie, sowie Hersteller von Konsumgütern....
*Anzeige ansehen*	Konstruktion, Visualisierung

wehk
Mitglied

Beiträge: 14
Registriert: 31.07.2002

erstellt am: 01. Sep. 2004 14:55

<-- editieren / zitieren -->

Unities abgeben:

Hm...
jetzt funktioniert es wieder....komisch... :- )

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)