| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Inventor User Defined Properties (3755 mal gelesen)
|
Tut_Ench_Ammun Mitglied Dipl.-Ing. (FH)
Beiträge: 161 Registriert: 16.06.2005 AutoCAD MECHANICAL 2006 Inventor 10 Ansys Workbench 10.0/11.0 WIN XP - SP 2 Fujitsu Siemens Computers Intel(R) Core(TM)2 CPU 2.13 GHz, 3.25 GB RAM
|
erstellt am: 23. Feb. 2011 12:02 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, habe verzweifelt gesucht aber bis jetzt nicht's brauchbares gefunden. Wie kann ich benutzerdefinierte Eigenschaften (Inventor User Defined Properties) per VBA in ein Modell hinzufügen? Vielen Dank für die Antworten. MfG Tutti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tut_Ench_Ammun Mitglied Dipl.-Ing. (FH)
Beiträge: 161 Registriert: 16.06.2005 AutoCAD MECHANICAL 2006 Inventor 10 Ansys Workbench 10.0/11.0 WIN XP - SP 2 Fujitsu Siemens Computers Intel(R) Core(TM)2 CPU 2.13 GHz, 3.25 GB RAM
|
erstellt am: 23. Feb. 2011 12:07 <-- editieren / zitieren --> Unities abgeben:
Hätte ich mal anders gesucht. Folgenden Code gefunden, der auch funzt. Sub User_Property_hinzufügen() Code: ' Get the active document. Dim invDoc As Document Set invDoc = ThisApplication.ActiveDocument ' Get the user defined (custom) property set. Dim invCustomPropertySet As PropertySet Set invCustomPropertySet = invDoc.PropertySets.Item("Inventor User Defined Properties") ' Declare some variables that will contain the various values. Dim strText As String Dim dblValue As Double Dim dtDate As Date Dim blYesOrNo As Boolean ' Set values for the variables. strText = "Some sample text." dblValue = 3.14159 dtDate = Now blYesOrNo = True ' Create the properties. Dim invProperty As Property Set invProperty = invCustomPropertySet.Add(strText, "Test Test") Set invProperty = invCustomPropertySet.Add(dblValue, "Test Value") Set invProperty = invCustomPropertySet.Add(dtDate, "Test Date") Set invProperty = invCustomPropertySet.Add(blYesOrNo, "Test Yes or No")End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |