|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢
! K4 \* ^* ^4 _5 J( {Dim objPropertySets As SolidEdgeFileProperties.PropertySets2 ]% M. n3 U G% t1 J
Dim objProperties As SolidEdgeFileProperties.Properties- v7 _; g* k, o5 M X4 m* y
Dim objProperty As SolidEdgeFileProperties.Property# g+ k) |; R5 A1 K
& s8 r/ M, i% I a, GSet objPropertySets = New SolidEdgeFileProperties.PropertySets
9 R9 s) |( L* E8 s0 CCall objPropertySets.Open("C:\Part1.par", False)
* P, a& B7 `, FSet objProperties = objPropertySets.Item("Custom")
% r) c% R! F2 l, s; u3 kSet objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43