---

Hallo zusammen!
Ich wollte Fragen ob mir von euch jemand helfen kann!

Ich möchte gerne wissen, ob es möglich ist ein Dokument, das nicht geöffnet ist zu definieren, um z.b. nur die IPorperties anzusprechen!
denn normalerweise muss man doch immer sagen

ActiveDocument

Doch ich will das Dokument nicht öffnen um die IProperties zu ändern!!
Weis von euch wer einen weg, wie das mit vba möglich ist!!

Vielen Dank im Voraus!!

mfg Bernhard

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

---

Hi Bernhard,

never say never ... - ich als nicht IV'ler behaupte aber mal einfach niente. Wobei eure DIVA allerdings immer für Überraschungen zu haben ist 

Weiss nicht ob binär was ginge, könnte mir aber vorstellen,
dass wird - wenn denn überhaupt machbar - bissel dark & kultig;-)

Gruss Nancy 

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

---

Ohne es jetzt genau zu wissen:

"activeDocument" spricht ja ein Dokument an, das gerade im IV geöffnet ist. Dann macht man mit den Objekten innerhalb des Dokuentes etwas.

Normalerweise kann man dann auch ein beliebiges Dokument auf der Platte ansprechen und mit dessen Objekten das gleiche anstellen. Nur normalerweise muß man es dann eben doch öffnen - aber eben möglicherweise im Hintergrund - und dann wieder weglegen. Die Referenz zu  dieser Datei wird ja beim öffnen erzeugt - und die muß man dann wohl anstelle von "activeDocument" angeben.

So stelle ich mit das jedenfalls vor  .

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

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Hallo Bernhard,

warum willst Du das Dokument nicht öffnen? Reicht Dir nicht der Zugriff über den Apprentice-Server?

Gruß
Norbert

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

---

Hallo, es ist möglich!
hier ein Vorschlag

'Daten ansprechen bei nicht geöffneter Datei

++++++++++++++++++++++++++++++++++++++
Sub Daten_ansprechen()

Dim Datei As String

Datei = "C:\test.ipt"

Dim oApp As Inventor.Application
Set oApp = GetObject(, "Inventor.Application")
   
Dim opartDoc As partDocument
Set opartDoc = oApp.Documents.Open(Datei, False)

Dim test_prop As String

test_prop = opartDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").Value

'Benutzer Eigenschaft  "Abmessung" muß erst  erzeugt werden
'Dim test_benutz_prop As String
'test_benutz_prop = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Abmessung").Value

MsgBox test_prop

opartDoc.Close  ' wichtig wieder schliessen

End Sub

++++++++++++++++++++++++++++++++++++++++

[Diese Nachricht wurde von VOSTA1 am 06. Okt. 2005 editiert.]

[Diese Nachricht wurde von VOSTA1 am 06. Okt. 2005 editiert.]

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

---

Zitat:

---

Original erstellt von BernhardU:
...
Doch ich will das Dokument nicht öffnen um die IProperties zu ändern!!
...

---

Hallo Bernhard,

das mit dem "nicht öffnen" ist so eine Sache wie im richtigen Leben:

Wenn Du das Päckchen nicht öffnest, kannst Du nicht sehen was drin ist.

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

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Weiß jemand vielleicht ob das zum Kopieren von Skizzierten Symbolen Funktioniert.

------------------
mfg
Thomas

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

---

Vielen Dank!

Also wie ich es vermutet habe ist es nicht möglich die I-Propeties
bei geschlossenen Dateien zu bearbeiten!

muss ich einfach visible auf false setzten bei öffnen

Ich dachte eigentlich nur darein, weil es im Windows Explorer auch möglich ist bei den normalen Dateiegenschaften auf die I-Properties zuzugreifen!

Nochmals vielen Dank!

möglicherweise fällt noch wem was ein!!

mfg Bernhard

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

---

Hallo Bernhard,

lies mal diesen Threaad:
http://ww3.cad.de/foren/ubb/Forum50/HTML/010710.shtml

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

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

---

Hallo Zusammen!
Habe in der Zwischenzeit einen guten Ansatz gefunden!!

Schaut mal!
Dazu benötigt man den Verweis:

C:\Programme\Autodesk\Inventor\Bin\RxApprentice.tlb

= Autodesk Inventor's Apprentice Object Library

' AttValues_CADNames = eine Collection mit den Propertynames
  ' AttValues_CADValues = eine Collection mit den zugewiesenen Values und AttValues_CADNames als Key-Names

  Dim oApprentice As New ApprenticeServerComponent
  ' Open a document.
  Dim oDoc As ApprenticeServerDocument
  Set oDoc = oApprentice.Open(CommandCadFileName)
  ' Attribute füllen
  Dim PropertySet As PropertySet
 
  For x = 1 To oDoc.PropertySets.Count
  Set PropertySet = oDoc.PropertySets.Item(x)
  For y = 1 To PropertySet.Count
  AttCount = 0
    For z = 1 To AttValues_CADNames.Count
    If UCase(AttValues_CADNames.Item(z)) = UCase(PropertySet.Item(y).Name) Then
      PropertySet.Item(y).Value = AttValues_CADValues.Item(AttValues_CADNames.Item(z))
    End If
    Next z
  Next y
  Next x
  ' dokument speichern und schließen
  Dim oFileSaveAs As FileSaveAs
  Set oFileSaveAs = oApprentice.FileSaveAs
  ' Save the assembly.
  Call oFileSaveAs.AddFileToSave(oDoc, oDoc.FullFileName)
  Call oFileSaveAs.ExecuteSave
  Set oDoc = Nothing

Ist zwar noch nicht perfekt, da durch das speichern wieder der Ordner "OldVersion" erzeugt wird (Nicht wenn man die iProperties im explorer mit der Hand ändert) doch es geht absolut in die richtige Richtung!!

Ich hoffe ich kann euch mit dem Fund auch  weiterhelfen!!

Noch einen schönen Tag!!

mfg Bernhard

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