|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢+ L% X( r1 f+ E9 G& O! Q
Dim objPropertySets As SolidEdgeFileProperties.PropertySets! y- w4 j M0 j1 n, T: H5 q0 F! E
Dim objProperties As SolidEdgeFileProperties.Properties
2 T2 `0 X* R- U; |2 xDim objProperty As SolidEdgeFileProperties.Property5 @9 ?, r/ J( V* X1 E
* @8 K1 D- R0 W* P* t; P1 [& V
Set objPropertySets = New SolidEdgeFileProperties.PropertySets" l. n$ I: p9 J6 I# K, }
Call objPropertySets.Open("C:\Part1.par", False)
& I4 I* D' O2 H3 K2 L8 USet objProperties = objPropertySets.Item("Custom")6 k! H# A! A$ w* u- G
Set objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43