재질 파일에서 밀도값 가져오기

재질 파일이 설정된 Part 파일에서 밀도. 부피 값을 가져오는 코드 입니다. 무게는 밀도 값 * 부피로 표시 합니다.

Part 파일의 단위는 mm. gram 입니다.  

 

1. Part 파일의 재질 파일 이름 가져오기

Sub MaterialName()

    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5)
    Dim oSession As IpfcBaseSession: Set oSession = conn.Session
    Dim oModel As IpfcModel: Set oModel = oSession.CurrentModel
    Dim oPart As IpfcPart
    Dim oMaterial As IpfcMaterial    
     
    If oModel.Type = EpfcModelType.EpfcMDL_PART Then
            
            Set oPart = oModel
            Set oMaterial = oPart.CurrentMaterial
            MsgBox oMaterial.Name
            
    End If

    'Disconnect with Creo
    conn.Disconnect (2)

End Sub

 

2. 재질 파일 지정 하기

Sub MaterialSet()

    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5)
    Dim oSession As IpfcBaseSession: Set oSession = conn.Session
    Dim oModel As IpfcModel: Set oModel = oSession.CurrentModel
    Dim oPart As IpfcPart
    Dim oMaterial As IpfcMaterial    

' Set material
	
    Set oPart= oModel
    Set oMaterial = oPart.RetrieveMaterial("steel.mtl")
    
	oPart.CurrentMaterial = oMaterial

 

3. 재질 파일에서 밀도값 가져오기

Sub MaterialDensity()

    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5)
    Dim oSession As IpfcBaseSession: Set oSession = conn.Session
    Dim oModel As IpfcModel: Set oModel = oSession.CurrentModel
    Dim oPart As IpfcPart
    Dim oMaterial As IpfcMaterial    
     
    If oModel.Type = EpfcModelType.EpfcMDL_PART Then
            
            Set oPart = oModel
            Set oMaterial = oPart.CurrentMaterial
            MsgBox oMaterial.MassDensity
            
    End If

    'Disconnect with Creo
    conn.Disconnect (2)

End Sub

 

4.  부피 가져오기

Sub MaterialName()

    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5)
    Dim oSession As IpfcBaseSession: Set oSession = conn.Session
    Dim oModel As IpfcModel: Set oModel = oSession.CurrentModel
    Dim oPart As IpfcPart
       
    Dim oSolid As IpfcSolid: Set oSolid = oModel
    Dim oMassProperty As IpfcMassProperty
    Dim oVolume As Double
                 
    If oModel.Type = EpfcModelType.EpfcMDL_PART Then
            Set oMassProperty = oSolid.GetMassProperty("")
            oVolume = oMassProperty.Volume
        MsgBox oVolume
        
    End If

    'Disconnect with Creo
    conn.Disconnect (2)

End Sub

 

5.  무게 가져오기

Sub MaterialMass()

    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5)
    Dim oSession As IpfcBaseSession: Set oSession = conn.Session
    Dim oModel As IpfcModel: Set oModel = oSession.CurrentModel
    Dim oPart As IpfcPart
       
    Dim oSolid As IpfcSolid: Set oSolid = oModel
    Dim oMassProperty As IpfcMassProperty
    Dim oVolume As Double
                 
    If oModel.Type = EpfcModelType.EpfcMDL_PART Then
            Set oMassProperty = oSolid.GetMassProperty("")
            oVolume = oMassProperty.Mass
        MsgBox oVolume
        
    End If

    'Disconnect with Creo
    conn.Disconnect (2)

End Sub

 

참고 사이트]  무게와 관련된 매개변수

 

무게와 관련된 매개변수

 

 

 

 

주의] 부동소수점 e 읽는 방법

Float, double등의 부동소수점 표시에서 "100e-6"와 같은 숫자가 나옵니다.'e'는 소수점이라 생각하면 되고,-6은
소수점을 왼쪽으로 6칸 이동(나눗셈)한다고 생각하면 됩니다.(+6은 소수점을 오른쪽으로 6칸 이동(곱셈) )그래서,
100e-6은 100을 1000000으로 나눈값과 동일합니다. 100e-6=100/1000000.0f2.4453e9=2.4453f*1000000000f
 
숫자뒤의 f는 실수를 나타냅니다.(정수가 아닌 실수)

 

부동소수점 e에 대해서...

 

---