|
Inventor VBA : eigenschaften für alle Komponenten der Baugruppe ändern
Alcom am 28.07.2009 um 10:17 Uhr (0)
Hallo!Ich möchte eine eine Eigenschaft (part Number) für alle Komponenten einer Baugruppe ändern. Mein Problem ist dass ich nicht weiß wie ich ein "loop" durch alle Komponenten aller Baugruppen und Unterbaugruppen machen kann. Einige Tipps oder Stichwörter? DankeAlcom
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : eigenschaften für alle Komponenten der Baugruppe ändern
Alcom am 28.07.2009 um 11:08 Uhr (0)
Hallo!Danke für die Hilfe!Hab was zusammenbekommen, Funktioniert aber nicht. ich habs geschaft die Daten in die Dokumenteniprops zu schreiben, aber nicht für die Komponenten der Baugruppen.----------------- Public Sub setprop() Set reference to active document. This assumes the active document is an assembly Dim oDoc As Inventor.AssemblyDocument Set oDoc = ThisApplication.ActiveDocument Get assembly component definition Dim oCompDef As Inventor.ComponentDefinition Set oCompDef = oDoc.ComponentD ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : eigenschaften für alle Komponenten der Baugruppe ändern
Alcom am 28.07.2009 um 11:38 Uhr (0)
problem gelöst, für die die es evt brauchen:-------------------------Public Sub Bauteilnummeraktualisieren() Get the active assembly. Dim oAsmDoc As AssemblyDocument Set oAsmDoc = ThisApplication.ActiveDocument Get all of the referenced documents. Dim oRefDocs As DocumentsEnumerator Set oRefDocs = oAsmDoc.AllReferencedDocuments Iterate through the list of documents. Dim oRefDoc As Document For Each oRefDoc In oRefDocs Dim invcustompropertyset As PropertySet Set invcustompropertyset = o ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
