|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢( Z. Q( z8 @3 b6 ?: `, F
Dim objPropertySets As SolidEdgeFileProperties.PropertySets
: ?' G0 `# @3 e+ W, d) u$ dDim objProperties As SolidEdgeFileProperties.Properties0 U1 L: V3 W: Q5 S& L3 L: R) u
Dim objProperty As SolidEdgeFileProperties.Property, g% R& _' {( H) U! e2 f+ c7 k- H
3 x& a3 G2 J# O: z4 r2 u
Set objPropertySets = New SolidEdgeFileProperties.PropertySets/ `% R$ |9 D5 k/ c9 @/ g! r
Call objPropertySets.Open("C:\Part1.par", False)& Q2 A+ t' }# Y3 H1 F
Set objProperties = objPropertySets.Item("Custom")
. u8 N/ T d) x3 y( V/ ~6 w- z0 pSet objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43