재질 파일 설정

 

 

모델 안에 있는 Materials 파일 리스트 알아보기

 

Creo 화면

 

 

        Dim model As IpfcModel
        Set model = session.CurrentModel
        
        Dim oSolid As IpfcSolid: Set oSolid = model
        Dim oPart As IpfcPart: Set oPart = oSolid
        Dim oMaterials As IpfcMaterials
        Set oMaterials = oPart.ListMaterials
        
        For i = 0 To oMaterials.Count - 1
            MsgBox oMaterials.Item(i).Name
        Next i

    conn.Disconnect (2)

 

 

모델 안에 있는 현재 Materials 파일 이름 알아보기

Creo 모델 Tree

 

        Dim model As IpfcModel
        Set model = session.CurrentModel
        
        Dim oSolid As IpfcSolid: Set oSolid = model
        Dim oPart As IpfcPart: Set oPart = oSolid
        Dim oMaterial As IpfcMaterial
        Set oMaterial = oPart.CurrentMaterial

        MsgBox oMaterial.Name
        

    conn.Disconnect (2)

 

 

모델에 재질정의 하기

 

 

        Dim model As IpfcModel
        Set model = session.CurrentModel
        
        Dim oSolid As IpfcSolid: Set oSolid = model
        Dim oPart As IpfcPart: Set oPart = oSolid
        Dim oMaterial As IpfcMaterial
        Set oMaterial = oPart.RetrieveMaterial("smco")
        
        oPart.CurrentMaterial = oMaterial

    conn.Disconnect (2)