---

Hallo,
bitte um Hilfe für folgende Problem :

Möchte aus einer *.iam alle verwendeten Baugruppen (*.iam) und Teile (*.ipt) und die Anzahl der Bauteile(z.B. Schraube ist 5mal vorhanden) auslesen.
Ferner würde ich gerne die Poperties einer *ipt verändern.

Wie kann ich die Poperties einer beliebigen test.ipt verändern ohne das die test.ipt geöffnet wird.

Ziel ist folgendes:
Ich öffne eine beliebige Baugruppe und Starte ein Makro siehe Beispiel. Das Makro soll nun alle verwendeten Bauteile und Baugruppen und deren Anzahl auslesen.

Anschliessend soll z.B eine Eigenschaft (Proberty) überprüft und gegebenenfalls geändert werden.

Mit den beiden nachfolgenden Makros kann ich zwar die verwendeten Baugruppen und Teile auslesen, aber nicht deren Anzahl
bzw. ich kann die Properties ändern, dazu muß ich das Teil aktiv auf den Bildschirm holen.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub ipt_iam_assembly()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As AssemblyDocument
  Set oDoc = oApp.ActiveDocument
 
  For i = 1 To oDoc.ReferencedFiles.Count
 
 
  MsgBox oDoc.ReferencedFiles(i).FullFileName
  MsgBox oDoc.ReferencedFiles(i).InternalName
  'usw.
  '1. Wie bekomme ich die Anzahl der *.iam  bzw *.ipt wenn, Teil oder Baugruppe mehrfach vorhanden ????
  '2. Wie kann ich die Properties *.iam  bzw *.ipt ansprechen, ohne das das Bauteil bzw. Baugruppe sichtbar geöffnet wird.

'''  Call Property_bearbeiten( ???? *.iam bzw.  *.ipt  ????? ) wie muß der Code aussehen

  Next i
 
  MsgBox i
 
 
End Sub

'+++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Property_bearbeiten()

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

MsgBox oDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi VOSTA1,

bin derzeit auch an so einem Thema dran - wenn ich mal wieder dazu komme - Ich melde mich dann nochmal - Oder bist Du schon weiter gekommen?

------------------
Gruß Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wie oft die Teile in deiner Baugruppe vorkommen, musst du glaube ich selbst zählen.
Ansonsten würde ich nicht über ReferencedFiles, sondern direkt über die ComponentOccurrences gehen. Da hast du dann auch Zugriff auf die ComponentDefinition und die Properties, ohne die Teile explizit zu öffnen.
Da gibts in der API Hilfe auch ein Beispiel zu den ComponentOccurrences.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
danke für die Antworten auch in der PM.

Der Tip mit den ComponentOccurrences ist richtig, damit bekommt man die Anzahl der Teile hin. Man muß jedoch noch noch Schleifen programmieren, da jedes Teil mehrmals vorkommen kann.

Mein Problem ist noch den genauen Code herauszufinden, mit dem ich die *.ipt und *.iam ansprechen kann.

Mit dieser sub kann ich alle Teile auslesen
++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub AssyComps()

  Dim oApp As Application
  Set oApp = ThisApplication

  Dim oDoc As AssemblyDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oCompOccs As ComponentOccurrences
  Set oCompOccs = oDoc.ComponentDefinition.Occurrences

MsgBox oCompOccs.Count, , "Anzahl Occurances"

  Dim oCompOcc As ComponentOccurrence
   
  For Each oCompOcc In oCompOccs

    MsgBox CompOcc.DefinitionReference.ReferencedFileDescriptor.FullFileName

'wie muß der Code für die Properties der *.ipt  hier aussehen, damit ich z.B. Status von "InBearbeitung" in "Freigegeben" ändern kann  ????????????????
'CompOcc...................

  Next oCompOcc

End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MFG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Vosta,

was hast Du den fuer eine Homepage angegeben in Deinem Profil ???

Gruesse,

Paul

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Von der ComponentOccurrence kommst du auf die Definition, von da auf das Document und dann runter auf die PropertySets.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und dann muß man auch noch zwischen "normalen" Baugruppen und Schweißbaugruppen unterscheiden. Abgeleitete Kompenten sind auch ein Sonderfall!

------------------
Gruß Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP