---

Hallo Forum,
jetzt bastele ich schon eine weile ich möchte einfach nur das Material auslesen um dann eine weitere Aktion zu starten.

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

den habe ich aus der API Hilfe aber damit komme ich nicht weiter

kann mir jemand Helfen

------------------
Gruß
Fredy

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

---

Hallo Fredy,

ist nur das falsche PropertySet:

Private Sub getMaterial()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  Debug.Print oDoc.PropertySets(3).Item("Material").Value

End Sub

Du hast im 1. PropSet (oDoc.PropertySets(1)...) gesucht.

Grüsse,

Paul
www.morecam.ch
www.thinkcad.de

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

---

Vielen Dank Paul,

hätte mal am Telefon gefragt, wäre ich heute morgen schon fertig gewesen.

------------------
Gruß
Fredy

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

---

Hallo Fredy,

jaja, im Nachhinein ist man immer schlauer... 

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

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

---

Hallo,

beim Suchen nach meinem Problem bin ich jetzt hier gelandet. Auslesen aus der IPT funktioniert hervorragend. Aber wie kann ich das Material aus einer IDW auslesen. Bei mir kommt bei Material als Textinhalt "  " (nichts)!
Gruß
Michael

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

---

Moin!

Ich kann zwar kaum VBA, aber so viel ist logisch: IDW hat kein Material, denn IDW definiert eine Zeichnung.

Ich würde in den Eigenschaften der IDW nach dem(n) von der IDW referenzierten Modell(en) suchen, und wenn das eine IAM ist, darin nach den referenzierten IPT. Die haben dann Material.

------------------
Roland  
www.Das-Entwicklungsbuero.de

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

---

Danke für die schnelle Antwort. Das Material wird im IPT abgefragt, das ist klar! Auch das der Schriftkopf nach dem "Modell-Material" nachfragt ist auch klar. Da ich auch so gut wie kein VBA kann, wie kann ich meinem Programmm sagen, er soll von der aktuellen Zeichnung im Modell nach dem Material nachfragen?
Gruß
Michael

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

---

Screeshot.PNG

Hallo Michael,

das ist im Prinzip auch möglich, aber nicht ganz problemlos umzusetzen.

Man kann auf diverse Properties der Modelle zugreifen, die in einer idw referenziert sind.
Die Modellproperties im Schriftfeld stammen immer aus der ersten auf dem aktuellen Blatt eingefügten Modelldatei.

Dazu muss man die in der idw auf dem aktuellen Blatt die Liste der referenzierten Modelldateien abfragen
und den vorhandenen ersten Eintrag der Liste nehmen.

Damit greift man dann auf die Properties der entsprechenden Modelldatei zu.

Das sieht dann ungefähr so im Code aus:

----

        If MainProgPropMgr.oInventor.ActiveDocumentType = DocumentTypeEnum.kDrawingDocumentObject Then
            If MainProgPropMgr.oDoc.ReferencedDocuments.Count > 0 Then 'Modell vorhanden
                Me.TextBox_Material.Text = MainProgPropMgr.oDoc.ReferencedDocuments.Item(1).PropertySets.Item("Design Tracking Properties") _
                    .ItemByPropId(PropertiesForDesignTrackingPropertiesEnum.kMaterialDesignTrackingProperties).Value
                Me.TextBox_Material_P2plus.Text = Me.TextBox_Material.Text
            Else
                Me.TextBox_Material.Text = ""
                Me.TextBox_Material_P2plus.Text = ""
            End If
        End If

----

In dem Beispiel wird allerdings vereinfacht das erste in der idw referenzierte Modell zur Anzeige der Daten genutzt.

Grüße

Manfred

[Diese Nachricht wurde von Manfred Zirk am 07. Mrz. 2008 editiert.]

[Diese Nachricht wurde von Manfred Zirk am 07. Mrz. 2008 editiert.]

[Diese Nachricht wurde von Manfred Zirk am 07. Mrz. 2008 editiert.]

[Diese Nachricht wurde von Manfred Zirk am 07. Mrz. 2008 editiert.]

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

---

Hallo Manfred,
vielen Dank für die VBA-Zeilen. Ich hatte zwar noch ein paar kleine Probleme aber die habe ich jetzt im Griff und mein kleines Programm läuft wunderbar!
Gruß
Michael

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