Цитата |
---|
Сантей пишет: Подскажите, как мне назначить выбранным материал имеющийся в детали, зная его наименование. |
Код |
---|
' Set a reference to the part document. ' This assumes a part document is active. Dim oPartDoc As PartDocument Set oPartDoc = ThisApplication.ActiveDocument Dim oMat As MaterialAsset For Each oMat In oPartDoc.MaterialAssets If oMat.DisplayName = "Вода" Then oPartDoc.ActiveMaterial = oMat Exit For End If Next |
Код |
---|
Dim pd As PartDocument = m_inventorApplication.ActiveDocument Dim oMat As Material For Each oMat In pd.Materials If oMat.name = "Вода" Then pd.ComponentDefinition.Material = oMat Exit For End If Next |
Изменено: Алексей Романов - 10.12.2015 12:29:25