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

dragon045 · 发表于 2022-11-18 07:58:51

感谢楼主分享，很不错！

huzhen_whu · 发表于 2022-11-24 08:29:29

有些帮助，谢谢楼主

yjyjyeming · 发表于 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

欢乐长驻 · 发表于 2023-2-12 08:15:20

谢谢楼主分享，顶了……

h123sxh · 发表于 2023-2-18 19:28:42

经典案例图书

活到老学到老！

nbxhynbxhy · 发表于 2023-2-18 20:31:29

共享一下源代码就跟好了

nbxhynbxhy · 发表于 2023-2-19 15:45:33

经典案例图书

谢谢楼主分享，顶了……

flyfox1047 · 发表于 2023-2-26 15:57:03

试了无数次，不起作用啊这个宏，保存后关闭重新打开还一样

peng188 · 发表于 2023-3-29 09:10:24

感谢楼主分享，很不错！

cj8510 · 发表于 2023-4-9 21:19:22

正需要一个类似功能，学习下，谢谢分享！

cj8510 · 发表于 2023-4-9 21:37:26

yjyjyeming 发表于 2023-1-31 14:20
Sub main()
Dim ZFNswApp As SldWorks.SldWorks
Dim ZFNparts As Variant

感谢分享，这段代码可以使用，终于不要使用自带的那个工具来取消Toolbox了。
图片是Solidworks自带的工具，还要单独添加文件才能设置。

设置后会有这种弹窗，搜索过这个属性，根本找不到。

zhaozhensheng24 · 发表于 2023-4-11 00:14:00

下载下来看看，应该会有用！

my511725147 · 发表于 2023-4-12 18:38:52

楼主辛苦了！

LANHAIOU · 发表于 2023-5-4 13:00:56

挺不错的可以

大神级BOSS · 发表于 2023-5-28 08:45:04

加入QQ群
参与讨论和学习

或扫描二维码加入

SolidWorks机械工程师网，顶一下。

3869 · 发表于 2023-5-29 09:22:31

经典案例图书

好好学习，天天向上！

linlx · 发表于 2023-6-15 14:54:53

加入QQ群
参与讨论和学习

或扫描二维码加入

可以改成转普通零件时弹出另存为窗口吗？

852746249 · 发表于 2023-7-7 14:26:15

经典案例图书

然而并没有什么卵用,还是toolbox零件

dengchenghui · 发表于 2023-7-7 16:21:11

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

huzhen_whu · 发表于 2023-9-7 17:06:34

yjyjyeming 发表于 2023-1-31 14:20
Sub main()
Dim ZFNswApp As SldWorks.SldWorks
Dim ZFNparts As Variant

这个写法很不错了，赞

		自动登录	找回密码
密码			立即注册

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

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献