---

Hallo,

ich hab folgendes Problem:

Ich will aus einer Baugruppe einen Parameter ("Winkel") in VB importieren:

Dim oPara As Inventor.Parameter
oPara = oDoc.ComponentDefinition.Parameters.Item("Winkel")

und diesen Parameter dann in einer Schleife aufaddieren:

Do While Not zaehler <= 180      
       oPara = oPara + 2      
       zaehler = zaehler + 1
       oDoc.Update()
       oApp.ActiveView.Update()
       If zaehler = 180 Then Exit Do
Loop

Jetzt hab ich an der markierten Stelle folgenden Fehler:

"Der +-Operator ist für die Typen "Inventor.Parameter" und "Integer" nicht definiert."

Wie kann ich das umgehen? Kann ich irgendwie nur den Wert des Winkels importieren und nicht den "ganzen" Parameter?

Beste Grüße

[Diese Nachricht wurde von Exodus2012 am 06. Jun. 2011 editiert.]

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

---

Hallo Erik,

die Fehlermeldung sagt's ja bereits: Dein oPara ist ein PARAMETER und nicht der WERT des Parameters. Um einen Wert zuzuweisen musst Du auf '.Value' gehen, also:

oPara.Value = oPara.Value + 2

Ich vermute mal, dass Du irgendwas um irgendwas in 2° Schritten drehen willst ? Beachte folgendes:
- Inventor arbeitet intern mit 'cm' als Länegneinheiten
- Inventor arbeitet intern mit Radianten als Winkeleinheiten, Du muss also dann Deinen Wert in Grad umrechnen mit / 180 * PI

Generell zu Deinem Code:

Do While Not zaehler <= 180     
    oPara = oPara + 2      
    zaehler = zaehler + 1
    oDoc.Update()
    oApp.ActiveView.Update()
    If zaehler = 180 Then Exit Do
Loop

Die beiden letzten Zeilen:
    oApp.ActiveView.Update()
    If zaehler = 180 Then Exit Do

kannst Du Dir schenken... bzw. Do While Not zaehler <= 180 ??? Wo fängt Dein Zähler denn an ?

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

Hallo Paul,

Vielen Dank für deine Hilfe, muss mich mit VB und dem Programmieren an sich noch etwas beschäftigen.  
Mit oPara.Value funktionierts endlich! Danke übrigens auch für den Tipp mit der Umrechnung. Den Fehler hätte wohl selbst nie gefunden!
Die Schleife soll eigentlich heissen Do While Not >= 180.

Gruss

[Diese Nachricht wurde von Exodus2012 am 06. Jun. 2011 editiert.]

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