---

Guten Morgen

über VB hole ich den aktuellen Eintrag des Materials.

Code:
    Dim objMaterialTable As SolidEdgeFramework.MatTable
    Dim plNumMaterials As Integer
    Dim listOfMaterials As Array

    objMaterialTable = mApp.GetMaterialTable()
    objMaterialTable.GetMaterialList(plNumMaterials, listOfMaterials)
...
    For i = 0 To plNumMaterials - 1
        cb_mat.Items.Add(listOfMaterials(i))
    Next

Nun wie kann ich das aus dem Combobox gewählte Material zurückschreiben?

Danke für eure Hilfe

Gruss Peticeo

[Diese Nachricht wurde von peticeo am 02. Mrz. 2010 editiert.]

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

---

Ich nehme an, du bist in einem PAR. Dann versuchs mal so:

Dim objDoc As SolidEdgePart.PartDocument
Dim mPropertySets As SolidEdgeFramework.PropertySets
Dim mProperties As SolidEdgeFramework.Properties
Dim mProperty As SolidEdgeFramework.Property

        objDoc = mApp.ActiveDocument

        mPropertySets = objDoc.Properties
        For Each mProperties In mPropertySets
            If mProperties.Name = "MechanicalModeling" Then
                For Each mProperty In mProperties
                    If mProperty.Name = "Material" Then
                        mProperty.Value = Me.cb_mat.Text
                    End If

                Next
            End If
        Next

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

---

So funktioniert nur in *.par. Ich müsste es vorallem für *.psm haben.

ich habs so versucht:

mPart.Properties("MechanicalModeling").Item("Material").Value =Me.cb_mat.Text

Was ist daran falsch?

Peticeo

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

---

... allenfalls das mPart sofern es weder als SheetMetalDocument, Object
noch als SolidEdgeDocument deklariert ist oder -- Nothing ist

[Diese Nachricht wurde von modeng am 02. Mrz. 2010 editiert.]

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

---

Zerleg die Zeile doch erst einmal, um den Fehler einzugrenzen.

------------------
APeters@BSS-Online.de

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

---

ok, ich werde es morgen nochmals versuchen.

Guten Abend

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

---

Hallo,

ich denke modeng hat recht.

im Falle eines Sheetmetals muss mPart als SolidEdgePart.SheetMetalDocument deklariert werden.

Du kannst es es einfach mal so versuchen:

Dim mPart as Object

Ist zwar etwas unsauber, müsste aber funktionieren.
Wenn du es sauber programmieren willst, musst du zunächst den Type des aktuellen Dokumentes abfagen und dann entsprechend deklarieren.

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