Attribute VB_Name = "Module1"
Function volume_m3() As Double
	volume_m3 = GetObject(, "SolidEdge.Application").Activedocument.models(1).body.volume
End Function
Function volume_dm3() As Double
	volume_dm3 = GetObject(, "SolidEdge.Application").Activedocument.models(1).body.volume*1000
End Function
Function volume_cm3(x) As Double
	volume_cm3 = GetObject(, "SolidEdge.Application").Activedocument.models(1).body.volume*1000000
End Function
Function volume_mm3(x) As Double
	volume_mm3 = GetObject(, "SolidEdge.Application").Activedocument.models(1).body.volume*1000000000
End Function