|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢
, _6 R. O) z2 q2 oDim objPropertySets As SolidEdgeFileProperties.PropertySets H, T' A( F7 ^9 |3 z# l( }+ z
Dim objProperties As SolidEdgeFileProperties.Properties3 J* X1 F( F' `& v+ o
Dim objProperty As SolidEdgeFileProperties.Property! V1 P% y$ u( j& s4 a2 |8 u% R
6 l9 C- K4 ^5 e' k3 |, zSet objPropertySets = New SolidEdgeFileProperties.PropertySets
7 R9 N# k' w% s F5 ^Call objPropertySets.Open("C:\Part1.par", False); U. p1 {3 g9 ^. O
Set objProperties = objPropertySets.Item("Custom")8 P. O9 V- H! p& A
Set objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43