下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢
Dim objPropertySets As SolidEdgeFileProperties.PropertySets
Dim objProperties As SolidEdgeFileProperties.Properties
Dim objProperty As SolidEdgeFileProperties.Property
Set objPropertySets = New SolidEdgeFileProperties.PropertySets
Call objPropertySets.Open("C:\Part1.par", False)
Set objProperties = objPropertySets.Item("Custom")
Set objProperty = objProperties.Add("My Custom Property", "My Custom Value")
发表于 2008-10-19 18:06:02
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！