|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢6 f0 I5 k: `, J; Q. G' O% V
Dim objPropertySets As SolidEdgeFileProperties.PropertySets
- q! H+ h. l/ Q ]& F. j9 k/ k$ s" ]* HDim objProperties As SolidEdgeFileProperties.Properties
4 U& Q+ R" V6 I8 l1 w4 g5 i7 k$ J5 kDim objProperty As SolidEdgeFileProperties.Property6 {4 b) `- [ _
3 q, Z% s' C8 B5 q6 v
Set objPropertySets = New SolidEdgeFileProperties.PropertySets
0 }! n% Q( v0 W% I8 Y2 Y8 YCall objPropertySets.Open("C:\Part1.par", False)- {. G9 a; S! J9 [$ r
Set objProperties = objPropertySets.Item("Custom")
( n% }# k5 A9 ~; C/ t/ |( F% p% S |. \Set objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43