---

Screenshot.png

Hi,
nach der Inventor 2022 Installation funktioniert der VBA Aufruf über Benutzerparameter nicht mehr!
Weiß evtl. jemand woran das liegen könnte?
Die Funktion wird für gerade/ungerade Anzahl der Zähne bei einer Zahnstange benötigt.

Der Aufruf erfolgt über Benutzerparameter: VBA:Ger_Ung(z_Zähnezahl;0,25 oE;mn_Normalmodul;PI)

VBA Code:
Public Function Ger_Ung(Zahl As Double, Faktor As Double, NModul As Double, PI As Double) As Double

'gerade oder ungerade Anzahl der Zähne

        If Zahl Mod 2 <> 0 Then
            MsgBox Zahl & " ist Ungerade"
           
            Ger_Ung = (Faktor * NModul * PI) * 2
           
        Else
            MsgBox Zahl & " ist Gerade"
            Ger_Ung = 0
        End If

End Function

Vielen Dank

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

---

Hallo

Warum es nicht mehr geht kann ich nicht sagen. Möglicherweise nicht beabsichtigt. Könntest du als Fehler melden, falls nicht jemand weiß das es Absicht ist.
Alternativ mach eine iLogic Regel draus. Ändert sich einer der verwendeten fx-Parameter wird die Regel ausgeführt. Ereignisauslöser usw. sind nicht erforderlich.

Code:

---

If z_Zähnezahl Mod 2 <> 0 Then
    MsgBox (z_Zähnezahl & " ist Ungerade")
    MZ_Abstand = (Faktor * mn_Normalmodul * PI) * 2
Else
    MsgBox (z_Zähnezahl & " ist Gerade")
    MZ_Abstand = 0
End If

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Screenshot_Z11.png Screenshot_Z10.png Zahnstange.ipt

Hallo Ralf,

vielen Dank. Über iLogic funktioniert es. Wie haben aber bereits viele Modelle mit dem VBA Code und die Umstellung wäre sehr umständlich.
Wie es scheint wird der VBA Aufruf komplett ignoriert da auch keine MsgBox funktioniert,...
Ich habe eine ipt angehängt und 2 Screenshots. Die Verzahnung soll immer am Zahnfuß aufhören. Der Parameter "Abstand" bleibt jedoch immer gleich.

Viele Grüße

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

---

Hallo

Verstehe, bei Bestandsdaten müsste man über einen Mechanismus zum Austausch der VBA-Funktion gegen iLogic nachdenken. Ohne das im Detail getestet zu haben, eine globale iLogic Regel die beim Öffnen eines Dokumentes prüft, ob der Parameter "Abstand" existiert und die Gleichung mit "VBA:" beginnt. Wenn ja, dann das Makro auskommentieren/deaktivieren und die Berechnung über iLogic in den Parameter schreiben.
Ich hab parallel mal bei Autodesk angefragt, ob das Absicht oder ein Fehler ist. Mal sehen, ob was zurück kommt.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Vielen Dank. Über iLogic bekomme ich das hin aber die Bestandsdaten anpassen wäre richtig aufwendig.

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