| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
|
Autor
|
Thema: Parameter-Fenster (1506 mal gelesen)
|
g
Mitglied
Maschinenbautechniker
   Beiträge: 62
Registriert: 21.07.2009
|
erstellt am: 21. Jul. 2010 07:16  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Habe folgende Frage: Bei Inventor VBA benutze ich um Werte ins Parameter-Fenster zu übertragen: Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim oParam As Parameter
For Each oParam In oDoc.ComponentDefinition.Parameters
If oParam.Name = "NamedesParameters" Then
oParam.Value = 100 'oder deinen berechneten Wert
End If
Next
Wie geht das bei einem selbsterstellen VB-NET Programm (exe) mit Visual Studio.net ?????
(benutze Inventor 2010/2011 unter Vista/Win7 64 BIT , Visual Studio 2008/2010 64 Bit)
MFG aus Bochum / Wattenscheid
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik, Master Eng. IT-Security & Forensic
    
Beiträge: 2912
Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 21. Jul. 2010 09:11 <-- editieren / zitieren --> Unities abgeben: Nur für g 
Hallo Geht genauso, nur da die exe "neben" Inventor läuft und nicht wie ein VBA-Programm in Inventor, mußt du dir zuerst die laufende Inventorinstanz z.B. mit getobject holen. Code:
Dim oApp As Inventor.Application
Set oApp = GetObject(, "Inventor.Application")
Oder wo genau klemmt es? ------------------
MfG
RK [Diese Nachricht wurde von rkauskh am 21. Jul. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
g
Mitglied
Maschinenbautechniker
Beiträge: 62
Registriert: 21.07.2009
|
erstellt am: 21. Jul. 2010 19:04 <-- editieren / zitieren --> Unities abgeben:
Hallo Habe den Code: Dim oApp As Inventor.Application
Set oApp = GetObject(, "Inventor.Application") benutzt Dim oParam As ????Parameter ??????--IN VISUAL STUDIO FALSCH ????
Wie lautet es korekt Dim oParam Aa .......... For Each oParam In oDoc.ComponentDefinition.Parameters
If oParam.Name = "NamedesParameters" Then
oParam.Value = 100 'oder deinen berechneten Wert
End If
Next
MFG aus Bochum / Wattenscheid
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 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012
|
erstellt am: 21. Jul. 2010 19:10 <-- editieren / zitieren --> Unities abgeben: Nur für g
|
g
Mitglied
Maschinenbautechniker
Beiträge: 62
Registriert: 21.07.2009
|
erstellt am: 01. Aug. 2010 11:18 <-- editieren / zitieren --> Unities abgeben:
|
| |
rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik, Master Eng. IT-Security & Forensic
Beiträge: 2912
Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 03. Aug. 2010 21:44 <-- editieren / zitieren --> Unities abgeben: Nur für g
Hallo Im Visual Studio hast du in den Projekteigenschaften unter "Verweise" sicher die Autodesk.Interop eingefügt. Jetzt öffnest du deine .vb-Datei und fügst ganz oben Code:
Imports Inventor
ein. Danach sollte es nicht mehr erforderlich sein Inventor.Parameter zu schreiben, sondern Parameter reicht. ------------------
MfG
RK Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
