Moin liebe KollegInnen,
ich versuche, mit einem Makro das einem Teil zugewiesene Material auszulesen und ggfs. ein anderes Material zuzuweisen.
So sieht der Code aus:
Sub SetMaterial(sSWxMaterial as string)
Dim sMatName As String
Dim retval As Variant
Dim sMatDB As String
sMatDB = "Approved Materials" 'Name der Materialdatenbank
sMatName = RefModel.getmaterialpropertyname2(vConfigName, sMatDB) 'liest den Namen des zugewiesenen Materials aus
retval = RefModel.SetMaterialPropertyName2("", sMatDB, sSWxMaterial) 'setzt neues Material
end sub
Auch bei erfolgreichem Setzen des Materials gibt retval nichts zurück. Ich möchte den Wert eigentlich benutzen, um im Fehlerfall eine Meldung auszugeben. Das geht ohne rückgegebenen Wert natürlich nicht.
Mach ich da was falsch?
Hinweis zu GetMaterialPropertyName2: Wenn das Teil noch kein zugewiesenes Material hat, tritt folgendes auf:
Bei Ausführung der Zeile "sMatName = ..." wird sMatDB geändert in "", also leer, warum auch immer. Ich muss dann den Namen der Materialdatenbank neu setzen.
Piet
------------------
Jeder nichttrivial gekämmte Igel hat mindestens einen Glatzpunkt.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP