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

hunanwujie

试过了，不行，关闭重新打开没任何变化

刘茂机械

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

大佬  现在使用这个宏 会出现一个情况 就是因为ToolBox零件是只读的会改不成功 现在我是用A大的使之独立的宏先把ToolBox零件独立到装配体当前文件件 再使用该宏就没有问题了 先在可以资源整合吗 就是把A大的使之独立宏和并在一起，独立改名后就转为普通零件 就不用执行两次宏了 前提是要把A大的独立宏路径默认到当前装配体体路径 现在独立宏是默认的需要独立的零件的路径

刘茂机械

linlx 发表于 2023-6-15 14:54
可以改成转普通零件时弹出另存为窗口吗？

用A大的独立宏先独立改名 可改路径 再执行这个宏 就可以了

刘茂机械

852746249 发表于 2023-7-7 14:26
然而并没有什么卵用,还是toolbox零件

先用A大的独立宏独立到当前装配体路经并改名 在执行本宏 就可以用了

刘茂机械

   经典案例图书

hunanwujie 发表于 2023-9-11 15:43
试过了，不行，关闭重新打开没任何变化

用A大的独立宏先独立改名 可改路径 再执行这个宏 就可以了

刘茂机械

Allate 发表于 2022-5-21 17:24
无法打开你这个宏文件，不知道是你的问题还是我的问题了

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

A大 有时间能不能把这个加到您的使之独立宏的后边  ，并且把默认路径改为当前装配体。

刘茂机械

   经典案例图书

Allate 发表于 2022-5-24 20:26
那个办法早就试过了，没用的，因为那是针对所有的宏都无法打开的情况，而我这是原有的宏都能打开，就最近 ...

A大 有空的时候能不能把本贴共开的代码 加到您打独立宏的后边 并且把独立宏的默认路径改为当前装配体

小草的朋友

这个功能不错。

zwp0422

试了一下没成功

gcq225

两个问题
1.如果默认toolbox零件文件夹只读，转移到到装配体文件夹toolbox零件也是只读的，重新打开又会变成toolbox文件
2.即使去掉只读，已经改成普通零件的在重新加入同规格toolbox零件后又会都变成toolbox文件。
综上，这个宏还要改，我的设想是常驻宏，只要检测到添加toolbox零件自动去属性保存到当前装配体文件就OK了

zjy1967

必须顶一下