---

Code.jpg Code.txt

Hallo,
ich möchte in einem Dokument eine Funktion erstellen, die mir die X-Koordinate des Schwerpunkts in die Parameterliste einträgt.
Wenn der angehängte Code in Module steht, läuft dieser.
Steht er aber in Functions, läuft dieser nicht.
Um diese Funktion in den Parametern aufrufen zu können, muß diese aber unter Functions stehen.

Kann mir jemand einen Tip geben?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

com_x.jpg

Hallo nochmal,
irgendwie komm ich noch immer nicht klar.
Warum bekomm ich in oPartDoc lauter Automatisierungsfehler?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

Setze deinen Breakepoint eine Zeile höher.

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

code.txt

Hallo Igor,
meinst du so?

Das hilft leider auch nicht.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

Code:

---

Public Sub TestMass()
    MsgBox GetCenterX
End Sub

Public Function GetCenterX() As Double
    Dim oPart As PartDocument
    Set oPart = ThisDocument
   
    Dim oMassProps As MassProperties
    Set oMassProps = oPart.ComponentDefinition.MassProperties
   
    oMassProps.Accuracy = k_Medium
   
    GetCenterX = oMassProps.CenterOfMass.X
End Function

---

Ausserdem übergibst du oben MassProperties an ComponentDefinition...

PS: Starte TestMass
------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

fx.jpg

Hallo Igor,
ich glaube das Problem liegt darin, daß ich die Funktion aus den fx-Parametern aufrufe.
In der Hilfe steht, daß zumindest ein Argument mitgegeben werden muß, wenn's auch nicht verwendet wird.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

Na du hast ja in deiner Funktion auch einen Parameter definiert:

Arg1 As Double

Dann musst du auch ein Double-Argument übergeben. Zudem kommt noch, dass du dein Parameter Arg1 gar nicht verwendest   

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

Hallo Igor,
lt. Hilfe muß midestens ein Argument übergeben werden, brauchen tät ich es nicht aber ich muss.

Writing User-Defined Functions
You must write the functions in the code module called "Functions." This code module is automatically created by Inventor for all document projects. It will initially be empty. Any parameters in the document will be able to use functions contained within this module. The parameters in a document cannot, however, use functions created in a documented project associated with another document. Because of the parameter's dependency on the function used in an expression, the function must exist in the document project in the document containing the parameter. Also, the function must be a public function. You can use all capabilities of VBA and the VBA development environment while writing these functions.

The user-defined function must take at least one argument, but it can have any number of additional arguments. All arguments are treated as input and their data type as Double. The return type of the function must be Double.

The Parameter command converts the return value of the user-defined function to a unit-less number.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

Natürlich lautet die letzte Zeile:

Code:

---

GetCenterX = oMassProps.CenterOfMass.X

---

Aber in VBA bekommt man keinen Fehler bei:

Code:

---

test = oMassProps.CenterOfMass.X

---

Nein, da wird nur 0 zurückgegeben 

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

Aber das was du machen willst, geht scheinbar nicht, denn es ist nicht möglich aus dem Dokument weder auf ThisApplication noch auf ThisDocument zu zugreifen. Berechnen ja, aber Inventor Objekte nein.

------------------
Grüße daywa1k3r

FX64 Software Solutions

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