---

Hallo,
da ich noch keine Antwort zum Thema bearbeiten der Eigenschaften von *.ipt's ohne die Datei zu öffnen bekommen habe, möchte ich, hier meine Frage mit einem Beispiel wiederholen.

Wie muß  der 2.Teil des Makros geändert werden.

Private Sub getRefs()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
 
  Dim oDoc As AssemblyDocument
  Set oDoc = oApp.ActiveDocument

  Dim Teil_i(200) As String
 
  Pfad = "C:\Verwendetete_Bauteile.txt"

Open Pfad For Output As #1
 
    For i = 1 To oDoc.ReferencedFiles.Count
   
        Teil_i(i) = oDoc.ReferencedFiles(i).FullFileName
 
        Print #1, Teil_i(i)
    Next i

Close #1

MsgBox (" Datei wurde unter : " & Pfad & "  gespeichert")
 
 
'2.Teil  ++++++++++++++++++++++++++++++++++++
' wie kann ich  die Eigenshaften (properties) *.ipt, die als Array in Teil(i) sind
' ansprechen ohne die *.ipt zu öffnen wie ich es zur Zeit gelöst habe
'Durch open wird jedes Teil geöffnet

Dim oApp_m As Inventor.Application
Set oApp_m = ThisApplication
 
 
Dim oDoc_m As Document
Set oDoc_m = oApp_m.Documents.Open(Teil_i(1))
 

  Dim T As String
  T = oDoc_m.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value
 
  Dim Mldg, Titel, Voreinstellung, Wert1
    Mldg = "Titel ändern"    ' Aufforderung festlegen.
    Titel = "Properties"    ' Titel festlegen.
    Voreinstellung = T ' Voreinstellung festlegen.
    ' Meldung, Titel und Standardwert anzeigen.
    Wert1 = InputBox(Mldg, Titel, Voreinstellung)

    If Wert1 = "" Then
    T = oDoc_m.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value
    End If
   
    If Not Wert1 = T Then
    oDoc_m.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value = Wert1
    End If
 
 
   
End Sub

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

---

Hallo Vosta,

wo ist das Problem, wenn Du da sTeil oeffnest ? Bz. warum willst Du es nicht oeffnen ?

Du kannst aber auch unsichtbar oeffnen, aendere dazu  Deine Open-Zeile:

Set oDoc_m = oApp_m.Documents.Open(Teil_i(1), False)

und zum Schluss um das Part-Doc zu schliessen ohne speichern:

Call oDoc_m.Close(True)

Das ganze laeuft sehr schnell ab, da keine Grafik aufgebaut wird.

Gruesse,

Paul

www.ashburyroad.com

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

---

Ich möchte die Eigenschaften aller einzelnen *.ipts ändern, wenn z.B. eine Baugruppe freigeben wird, müssen auch alle Bauteile freigegeben sein.
Mit  einen solchen Makro  könnte ich mir ersparen z.B. bei 20 Teilen von Hand den Status  zu überprüfen und zu ändern.

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

---

Hallo Paul,
das war gebnau das was ich gesucht habe!
Öffnen wollte ich nicht, weil das nur Zeit kostet und nicht nötig ist.

Untities sind unterwegs.

und mit

Call oDoc_m.Save

kann ich  die Änderungen abspeichern.

MFG VOSTA

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