| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Funktion in Document (1123 mal gelesen)
|
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 IV9-SP3 IV10-Sp3a IV11
|
erstellt am: 25. Okt. 2006 14:06 <-- editieren / zitieren --> Unities abgeben:
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 |
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 IV9-SP3 IV10-Sp3a IV11
|
erstellt am: 25. Okt. 2006 18:46 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 25. Okt. 2006 19:12 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
|
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 IV9-SP3 IV10-Sp3a IV11
|
erstellt am: 25. Okt. 2006 19:29 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 25. Okt. 2006 19:34 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
Code:
Public Sub TestMass() MsgBox GetCenterX End SubPublic 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 |
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 IV9-SP3 IV10-Sp3a IV11
|
erstellt am: 25. Okt. 2006 19:52 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 25. Okt. 2006 19:57 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
|
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 IV9-SP3 IV10-Sp3a IV11
|
erstellt am: 25. Okt. 2006 20:29 <-- editieren / zitieren --> Unities abgeben:
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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 26. Okt. 2006 08:33 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 26. Okt. 2006 08:46 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
|