Sub GetFileProps()
Dim objPropSets As PropertySets
Dim objProps As Properties
Dim objProp As Property
Set objPropSets = CreateObject("SolidEdge.FileProperties")
Call objPropSets.Open("c:\temp\Part1.par") '打开作者自己制定的零件文件
Set objProps = objPropSets.Item("ProjectInformation") '项目信息
For Each objProp In objProps '循环，读取objProps集合中每个元素ObjProp
Debug.Print https://www.doczj.com/doc/5517241117.html,, " = ", objProp.Value
Next
Set objProps = objPropSets.Item("SummaryInformation") '摘要信息
For Each objProp In objProps
Debug.Print https://www.doczj.com/doc/5517241117.html,, " = ", objProp.Value
Next
Set objProps = objPropSets.Item("MechanicalModeling") '模型信息
For Each objProp In objProps
Debug.Print https://www.doczj.com/doc/5517241117.html,, " = ", objProp.Value
Next
Set objProps = objPropSets.Item("Custom") '用户自定义的
For Each objProp In objProps
Debug.Print https://www.doczj.com/doc/5517241117.html,, " = ", objProp.Value
Next
End
End Sub