|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢
, k" g/ D. z% G( b& l+ nDim objPropertySets As SolidEdgeFileProperties.PropertySets0 G3 Z7 t" ?3 k: E
Dim objProperties As SolidEdgeFileProperties.Properties" H9 n! D0 P, T0 m
Dim objProperty As SolidEdgeFileProperties.Property, c/ T5 n' q8 d3 |) E
7 D7 w6 J2 f, }8 Z7 b# _
Set objPropertySets = New SolidEdgeFileProperties.PropertySets
+ Q) C+ x- x( }7 }) ?4 F. [Call objPropertySets.Open("C:\Part1.par", False)" ]+ T' ~4 q0 ~1 Z. \9 J1 }
Set objProperties = objPropertySets.Item("Custom")
* J2 R& ?9 f3 L- M) D; L" }Set objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43