SW宏-删除所有配置属性

lzz8897189

   经典图书

Dim swApp As Object



Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long



Sub main() '删除所有配置属性



Set swApp = Application.SldWorks



Set Part = swApp.ActiveDoc



CurCFGname = Part.GetConfigurationNames



CurCFGnameCount = Part.GetConfigurationCount



For i = 0 To CurCFGnameCount - 1



Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))



Vnamearr = CusPropMgr.GetNames



If Not IsEmpty(Vnamearr) Then



For Each Vnamearr2 In Vnamearr



bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)



Next



End If



Next

复制代码

bbqbatman

删除所有自定义属性

Sub main() '删除自定义属性
Dim swApp As Object
Dim swModel2 As SldWorks.ModelDoc2
Dim vCustInfoNameArr2 As Variant

Set swApp = _
Application.SldWorks

Set swModel2 = swApp.ActiveDoc

vCustInfoNameArr2 = swModel2.GetCustomInfoNames

  If Not IsEmpty(vCustInfoNameArr2) Then
     For Each vCustInfoName2 In vCustInfoNameArr2
         bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
      Next
  End If
End Sub

复制代码

wangzhi5076

   经典图书

谢谢楼主，保存先，后面应该有用

lake101

感觉楼主分享，适用于哪个版本呢？

delta_2008

   经典案例图书

宏是不分版本的，适用于SW任何版本。

abclk123

那位麻烦告诉一下，我复制这些代码怎么变了内容？

wwwerzhou

   经典案例图书

能遍历吗

jyzas001

谢谢楼主分享

xiaocake

delta_2008 发表于 2019-11-22 22:04
宏是不分版本的，适用于SW任何版本。

你错了，SW软件一直在更新，对应的api接口也是跟着更新的。
所以要看宏代码里面使用的方法或属性在旧版本的sw是不是支持。
一般新版本是支持旧版本里面的方法的，反之则不行。
比如重命名的接口只有sw2016以上版本才有，在旧版本里面是用不了的。
所以在写宏代码的时候，如果为了兼容旧版本，只能使用旧版本的方法和属性。

yni621

   经典图书

SW机械工程师网，找到组织了！

wsbty2018

如何同时删除配置属性和自定义属性

刘茂机械

这两个可以合并吗 大神

wwwerzhou

这个能够遍历装配体吗，请求做一个遍历宏

song35151

不能用。。。。。。。。。。。

song35151

加入QQ群
参与讨论和学习

或扫描二维码加入

bbqbatman 发表于 2019-11-20 13:29
删除所有自定义属性

Sub main() '删除自定义属性

测试可以用，怎么删除配置特性呢

1215956038

   经典案例图书

楼主太有才了，膜拜中……

工程Jay_chen

加入QQ群
参与讨论和学习

或扫描二维码加入

大神，这个能够改成遍历装配体吗

tiancaiashuai

   经典案例图书

很不错，顶一个

13178546908

试试看

13178546908

只能清除输入框的文字，选项框的选项都还在