 |
Inventor VBA : Daten aus Excel importieren
Chris 31 am 11.01.2016 um 08:51 Uhr (15)
Normalerweise setzt du den Verweis über:VBA-Fenster- Reiter Extras- Verweise- passenden Verweis und-color: #FFFF99'>suchen- Haken setzen- OK klicken- fertig.Über Code den Verweis setzen ist in meinen Augen problematisch. Normalerweise aktualisiert sich der Verweis selbstständig, wenn du das Macro verteilst.Wenn du den Verweis als Code schreibst, könnte es sein, dass er ins Leere läuft, da die Verweisdatei woanders gespeichert ist, anders heißt, oder was auch immer...------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : und-color: #FFFF99'>Suchen Ersetzen mit Tabellenwerten
Chris 31 am 02.05.2016 um 15:08 Uhr (1)
Hi,Vor dem Öffnen auf iProps prüfen könnte gehen, aber nur auf Umwegen. Einfacher wäre in dem Fall sicher die Prüfung, ob es ein ContentCenterPart ist und wenn ja, dann zu überspringen.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : und-color: #FFFF99'>Suchen Ersetzen mit Tabellenwerten
Chris 31 am 22.04.2016 um 10:27 Uhr (1)
Ah, Sorry...Es müsste Propset.ItemByPropId(9) heißen, dann braucht man den Namen nicht.Warum er in der obersten Baugruppe bei Bauteilen aussteigt habe ich jetzt nicht erkennen können.Gibt er denn eine Fehlermeldung?------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : und-color: #FFFF99'>Suchen Ersetzen mit Tabellenwerten
Chris 31 am 21.04.2016 um 11:42 Uhr (1)
Das dürfte im Prinzip nicht das Problem sein.Vorab aber noch 1. Sind die iProps in jedem Bauteil vorhanden und müssen ersetzt werden?2. Hast du in deiner Excel-Liste auch die Namen, der iProps?------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : und-color: #FFFF99'>Suchen Ersetzen mit Tabellenwerten
Chris 31 am 21.04.2016 um 13:49 Uhr (1)
Dann ist es wirklich kein Problem.Kennst du dich mit VBA aus?EDIT: Der Name der Baugruppe/ des Bauteils ist in der Liste auch hinterlegt? Oder wie ist denn die Liste generell aufgebaut?------------------MFGChris[Diese Nachricht wurde von Chris 31 am 21. Apr. 2016 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : und-color: #FFFF99'>Suchen Ersetzen mit Tabellenwerten
Chris 31 am 21.04.2016 um 14:24 Uhr (1)
Hier wäre auf die Schnelle mal ein Ansatz.Ich kann es dir noch umbauen, wenn du mir den Namen des Excelblattes, die Spaltenbezeichnung für alt und neu gibst.Code:Public Sub iPropertiesaendern()Dim oAssDoc As AssemblyDocumentSet oAssDoc = ThisApplication.ActiveDocumentDim Propset As propertysetDim iProp As PropertySet Propset = oAssDoc.PropertySets("Inventor Summary Information")Set iProp = Propset.Item(9)iProp.Expression = oWorkbook.ActiveSheet.Cells(1, 1).ValueDim oOccurrence As ComponentOccurrenceDim oPa ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iLogic
Chris 31 am 16.06.2016 um 13:18 Uhr (1)
Hi Joe,in deinem Code-Ausschnitt fehlt das o in oOccurrence.sollte eigentlich heißen:Code:oPath = oOccurrence.ReferencedDocumentDescriptor.FullDocumentNameFalls das kein Kopierfehler ist, dann poste doch bitte mal deinen kompletten Code, damit ich nen Fehler und-color: #FFFF99'>suchen kann.Bei mir läuft der Code anstandslos durch.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
