| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Benutzerdefinierte IProperties mit Excel ausfüllen (2101 mal gelesen)
|
almajusol Mitglied
Beiträge: 8 Registriert: 05.08.2008 WIN XP Pro SP2 Inventor Suite 2009 SP1 Intel Pentium 4 3.06 GHz 3GB RAM
|
erstellt am: 25. Okt. 2008 13:17 <-- editieren / zitieren --> Unities abgeben:
Hallo, Ich habe folgendes Problem und hab leider in der Suche nichts gefunden. Ich habe eine ipt mit einem eingebeteten Excel Blatt. Jetzt möcht ich auch im Excel direkt Benutzerdefinierte Iproperties vergeben, z.B Massnorm, Zertifikat u.s.w. Die Benutzerdefinierten IProps müssen nicht erstellt oder gelöscht werden von Excel aus sondern ich möchte in Bestehende bestimmte Werte eintragen. Die Werte wären alphanumerisch. Wie kann ich das mit VBA bewerkstelligen. Weiters möcht ich auch einzelne Teile aus der Baugruppe löschen mithilfe des Excelblattes. Gibt es hier eine Lösung. Danke Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
almajusol Mitglied
Beiträge: 8 Registriert: 05.08.2008 WIN XP Pro SP2 Inventor Suite 2009 SP1 Intel Pentium 4 3.06 GHz 3GB RAM
|
erstellt am: 30. Okt. 2008 10:12 <-- editieren / zitieren --> Unities abgeben:
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3794 Registriert: 15.02.2001
|
erstellt am: 04. Nov. 2008 20:33 <-- editieren / zitieren --> Unities abgeben: Nur für almajusol
Hallo Markus, habe da mal etwas rumgestöbert - und bin auch fündig geworden: Erst mal zu Deiner ersten Aufgabenstellung, das Ändern der eingebetteten Tabelle mit VBA Code:
' Obtain the Parameters collection Dim oParams As Parameters Set oParams = oPartDoc.ComponentDefinition.Parameters Dim XL As Object Dim xlWB As Object Dim xlWS As Object 'Connect to Excel On Error Resume Next Set XL = GetObject("Excel.Application") If Err Then Err.Clear Set XL = CreateObject("Excel.Application") End If On Error GoTo 0 XL.Visible = True 'Es wird davon ausgegangen, dass die Datei eingebettet ist Set xlWS = oParams.ParameterTables.Item(1).WorkSheet dim iZeile as Integer iZeile = 1 With xlWS .Activate ' Zeile iZeile beschreiben .Cells(iZeile, 1).Value = "Test" .Cells(iZeile, 2).Value = "34,5" .Cells(iZeile, 3).Value = "m" End With 'detach from XL Set xlWS = Nothing Set XL = Nothing
Ich hoffe, das hilft Dir erst mal über die Startschwierigkeiten hinweg. ------------------ Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) ----------------------------------------------------- Wir unterstützen die Arbeit der: - Rettungshundestaffel des DRK Viersen - Rettungshundestaffel Isar Ost Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bjö Mitglied Dipl.-Ing. Maschinenbau, Konstruktion
Beiträge: 29 Registriert: 03.12.2008 Inventor 2010 WIN XP Professional SP3 Intel Core 2 2,4 GHz 4 GB RAM NVIDIA Quadro FX 1700 CATIA V5 R17
|
erstellt am: 28. Jan. 2009 09:18 <-- editieren / zitieren --> Unities abgeben: Nur für almajusol
Zitat: Original erstellt von almajusol: Hallo,Jetzt möcht ich auch im Excel direkt Benutzerdefinierte Iproperties vergeben, z.B Massnorm, Zertifikat u.s.w. Die Benutzerdefinierten IProps müssen nicht erstellt oder gelöscht werden von Excel aus sondern ich möchte in Bestehende bestimmte Werte eintragen.
Hallo Markus, hast du dieses Problem mittlerweile gelöst? Ich hab grad das selbe Problem und nicht die leiseste Ahnung von VBA. Mein bisheriger plan war, die iprops des .ipt weiter von Hand zu ändern, was sicherlich nicht das gelbe vom Ei ist... Wäre super, wenn du eine evtl. vorhandene Lösung mal posten könntest. Viele Grüße, Björn
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
almajusol Mitglied
Beiträge: 8 Registriert: 05.08.2008 WIN XP Pro SP2 Inventor Suite 2009 SP1 Intel Pentium 4 3.06 GHz 3GB RAM
|
erstellt am: 28. Jan. 2009 12:23 <-- editieren / zitieren --> Unities abgeben:
|