带工程图的重命名和独立，可以图号分离

神秘的东大大

   经典图书

再次优化，有下面的功能：1、选中零件带工程图重命名。
2、选中零件带工程图独立（复制原有零件+工程图，生成新零件并替换原有零件。可以选择是否替换所有原零件为新零件，或者只替换选中零件）。
3、可以勾选图号分离，勾选则进行图号分离。分离规则：代号+空格+名称。
4、储存上一次的操作，保存路径到旧路径，便于快速插入。保存上一次图号分离是否勾选。

注：需要勾选Excel引用，并重启后，才能正常使用。

神秘的东大大

2025-05-09优化：
1、优化文件判断逻辑。
2、增加选择多个文件时处理：可以替换选中的多个文件。

神秘的东大大

   经典图书

神秘的东大大 发表于 2025-5-9 22:34
2025-05-09优化：
1、优化文件判断逻辑。
2、增加选择多个文件时处理：可以替换选中的多个文件。

选中轻化或压缩文件时，选中会丢失，复制下面的子函数替换即可。
Private Sub HandleComponentSuppression()
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim selCount As Long
    Dim compIDs() As String
    Dim i As Long
   
    Set swSelMgr = swModel.SelectionManager
    selCount = swSelMgr.GetSelectedObjectCount2(-1)
   
    ' 保存所有选中组件的ID
    ReDim compIDs(selCount - 1)
    For i = 1 To selCount
        Dim currentComp As SldWorks.Component2
        Set currentComp = swSelMgr.GetSelectedObjectsComponent4(i, -1)
        If Not currentComp Is Nothing Then
            compIDs(i - 1) = currentComp.GetSelectByIDString()
        End If
    Next
   
    ' 处理每个组件的抑制状态
    For i = 0 To UBound(compIDs)
        swModel.ClearSelection2 True
        If swModel.Extension.SelectByID2(compIDs(i), "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Then
            Set currentComp = swSelMgr.GetSelectedObjectsComponent4(1, -1)
            
            ' 处理父装配体链
            Dim parentComp As SldWorks.Component2
            Do
                Set parentComp = currentComp.GetParent
                If parentComp Is Nothing Then Exit Do
               
                Select Case parentComp.GetSuppression
                    Case 0, 1 ' 压缩或轻化
                        parentComp.SetSuppression2 2 ' 完全解析
                End Select
               
                Set currentComp = parentComp
            Loop
            ' 处理当前组件
            Set currentComp = swSelMgr.GetSelectedObjectsComponent4(1, -1)
            Select Case currentComp.GetSuppression
                Case 0, 1 ' 压缩或轻化
                    currentComp.SetSuppression2 2 ' 完全解析
            End Select
        End If
    Next
    ' 恢复所有选择
    swModel.ClearSelection2 True
    For i = 0 To UBound(compIDs)
        swModel.Extension.SelectByID2 compIDs(i), "COMPONENT", 0, 0, 0, True, 0, Nothing, 0
    Next
    ' 统一重建
    swModelDocExt.Rebuild swRebuildOptions_e.swRebuildAll
End Sub

神秘的东大大

存在的问题，当需要重命名的文件被其他只读组件引用时，重命名会报错。
目前只检查选中的单层父项。
解决需要遍历整个装配体，在大型装配体时太耗时，所以没有优化。
（不涉及文件只读的可以忽略）

1215956038

   经典案例图书

上传模型，帮你看看！

董东咚

很不错，找到组织了！

Yemao丶

   经典案例图书

很不错，找到组织了！

why2024

感谢楼主分享，很不错！

3869

好好学习，天天向上！

qq350351924

   经典图书

感谢楼主分享，很不错！

钓鱼要戴头盔

感谢楼主分享，很不错！

百靣靈

谢谢楼主，原宏帮了很大忙。
能改一个保持原名字只移动路径的版本吗，感谢

百靣靈

就是保持原名字也可以移动到新路径，而不是提醒请更改新名称名

葛特曼

感谢楼主分享，很不错！

cwzjd123

加入QQ群
参与讨论和学习

或扫描二维码加入

神秘的东大大 发表于 2025-3-2 20:27
存在的问题，当需要重命名的文件被其他只读组件引用时，重命名会报错。
目前只检查选中的单层父项。
解决 ...

大神这个宏程序太强大了，非常好用，能否再优化一下，假设一个装配体中有三个同名零件，只选中其中两个进行独立的话，会默认只独立第一个被选中的零件，劳烦大神再优化一下，感谢感谢

LoveSky2088

   经典案例图书

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

XBCYANP

加入QQ群
参与讨论和学习

或扫描二维码加入

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

cwmmlms007

   经典案例图书

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

Yemao丶

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

zzj2021

感谢楼主分享，很不错！