|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢
3 y+ J0 L+ Z( d* l0 i1 cDim objPropertySets As SolidEdgeFileProperties.PropertySets, j5 Y& F! x" C6 V8 h
Dim objProperties As SolidEdgeFileProperties.Properties
$ ]/ K. z9 X1 P# \% VDim objProperty As SolidEdgeFileProperties.Property
, M& R% ]8 v. {
1 L2 M0 E6 W3 y- x1 q8 gSet objPropertySets = New SolidEdgeFileProperties.PropertySets
" Z U2 y+ T; sCall objPropertySets.Open("C:\Part1.par", False)5 i0 ~" Q1 Y3 f# F5 x
Set objProperties = objPropertySets.Item("Custom")7 ?# ?3 h- H( U* {
Set objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43