自定义属性

xiaopang868

下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢
Dim objPropertySets As SolidEdgeFileProperties.PropertySets
Dim objProperties As SolidEdgeFileProperties.Properties
$ ?' Y6 J) b  l3 M" H5 D4 eDim objProperty As SolidEdgeFileProperties.Property

$ Y) D2 |6 G. \7 N' Q: C$ ^Set objPropertySets = New SolidEdgeFileProperties.PropertySets
Call objPropertySets.Open("C:\Part1.par", False)
: ~- _8 U- n2 k! T; J6 }Set objProperties = objPropertySets.Item("Custom")
5 b4 @* \* t- s% [Set objProperty = objProperties.Add("My Custom Property", "My Custom Value")