|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面的代码可以给文件添加自定义属性，但添加时文件如Part1必须在SE中关闭，请问如果想给SE中当前打开的文件添加属性该如何修改？谢谢9 w' D1 i( o* d1 B" }8 y, Y
Dim objPropertySets As SolidEdgeFileProperties.PropertySets
% Q2 D+ O+ F% [' [Dim objProperties As SolidEdgeFileProperties.Properties) K& a0 [# h1 M0 v# f
Dim objProperty As SolidEdgeFileProperties.Property' G$ @6 a7 L% s
6 J8 p8 k; h4 i0 {Set objPropertySets = New SolidEdgeFileProperties.PropertySets
4 x }+ T5 E. ]' m5 N+ iCall objPropertySets.Open("C:\Part1.par", False)
6 l3 T2 @; J5 c' E4 {# k" {Set objProperties = objPropertySets.Item("Custom")
5 F t( _8 d& a h; Q2 n, @4 ]9 `5 _Set objProperty = objProperties.Add("My Custom Property", "My Custom Value") |
|
发表于 2008-10-19 18:04:43