自定义属性

xiaopang868

下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢
Dim objPropertySets As SolidEdgeFileProperties.PropertySets
! p5 `, K$ e6 g7 b3 ]( C' s. SDim objProperties As SolidEdgeFileProperties.Properties
Dim objProperty As SolidEdgeFileProperties.Property
/ P" H4 j$ h! v9 T* g3 Y; R
$ M6 n3 I8 i& |Set objPropertySets = New SolidEdgeFileProperties.PropertySets
/ Q1 f2 w1 n# C8 R4 R  i" X3 E. ACall objPropertySets.Open("C:\Part1.par", False)
Set objProperties = objPropertySets.Item("Custom")
7 j) `+ @  d  d; s7 o- m( t9 USet objProperty = objProperties.Add("My Custom Property", "My Custom Value")