Hallo,
im Zuge einer Datenbankerstellung drängte sich mir die Frage auf, ob es bei einer Materialerstellung via Makro möglich ist gewisse Parameter wie die Dichte zu sperren. Nach reichlicher Forenrecherche habe ich mehrere Versuche gestartet die mich nicht zum gewünschtem Ergebnis geführt haben.
Mit folgendem Code habe ich es zuletzt versucht:
Sub CATMain()
Dim oCat As Document
Set oCat = CATIA.ActiveDocument
Dim oFamilies As MaterialFamilies
Set oFamilies = oCat.Families
Dim oFamily As MaterialFamily
Set oFamily = oFamilies.Add
Dim oMaterials As Materials
Set oMaterials = oFamily.Materials
Dim oMaterial As Material
Set oMaterial = oMaterials.Add
Dim oAnalysisMaterial As AnalysisMaterial
Set oAnalysisMaterial = oMaterial.CreateAnalysisData("SAMIsotropicMaterial")
oAnalysisMaterial.PutValue "SAMDensity", "1050"
Dim sSel As Selection
Set sSel = CATIA.ActiveDocument.Selection
Dim myParam As Parameter
Set myParam = ?????????????????????.Parameters.Item("SAMDensity")
sSel.Clear
sSel.Add myParam
CATIA.StartCommand ("Lock")
End Sub
Mir ist nicht klar wie ich den CATIA Parameter SAMDensity ansprechen soll/kann.
Gruß
Heiko
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP