SolidWorks2018一键把ToolBox零件转为普通零件

[复制链接]

yjyjyeming

3 主题	91 帖子	126 金币

长老

Rank: 6 Rank: 6 Rank: 6

积分: 1847

楼主

发表于 2023-1-31 14:20:20 | 显示全部楼层

Sub main()
Dim ZFNswApp As SldWorks.SldWorks
Dim ZFNparts As Variant
Set ZFNswApp = Application.SldWorks
ZFNparts = ZFNswApp.GetDocuments '获取打开的文档
If Not IsEmpty(ZFNparts) Then
For Each ZFNpart In ZFNparts
   If ZFNpart.Extension.ToolboxPartType <> 0 Then '判断文档是否为Toolbox零件
      ZFNpart.Extension.ToolboxPartType = 0 '判断为是，则转为普通零件
      ZFNpart.Save2 True '保存零件
   End If
Next
MsgBox "已完成！保存一下后关闭，重新打开查看"
Else
MsgBox "请先打开模型"
End If
End Sub

SolidWorks机械工程师网

提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）

回复支持 2 反对 0

使用道具举报