SW宏命令的運(yùn)用，你們都是怎么進(jìn)行重命名的？

cool44

我用的是自己寫的宏，一個(gè)在sw里用，可以單個(gè)文件改名。另一個(gè)宏是配合excel用，可以批量改名。

阿帕奇2022

笑對(duì)人生123 發(fā)表于 2021-9-13 23:33
以前用這個(gè)宏超級(jí)快，可以節(jié)約很多時(shí)間

大神，能分享一下這個(gè)宏嗎。。。感謝！~！

youjinlong64

咋用宏命令改名后工程圖還能鏈接上？

八哥BJ

凱元可以

zou272294738

醉生夢(mèng) 發(fā)表于 2021-9-13 15:18
這個(gè)是在“常跓宏”的基礎(chǔ)上改的，有改名動(dòng)作時(shí)，檢測(cè)文件同文件夾下是否有同名的工種圖文件，如果有，更改 ...

您好，請(qǐng)問(wèn)能分享一下您這個(gè)宏嗎？謝謝

阿帕奇2022

醉生夢(mèng) 發(fā)表于 2021-9-13 15:18
這個(gè)是在“常跓宏”的基礎(chǔ)上改的，有改名動(dòng)作時(shí)，檢測(cè)文件同文件夾下是否有同名的工種圖文件，如果有，更改 ...

能分享一下嗎？

阿帕奇2022

醉生夢(mèng) 發(fā)表于 2021-9-13 15:18
這個(gè)是在“常跓宏”的基礎(chǔ)上改的，有改名動(dòng)作時(shí)，檢測(cè)文件同文件夾下是否有同名的工種圖文件，如果有，更改 ...

求分享?。?！

非資深但不高級(jí)

我想分享一下，但是上傳不了怎么辦.....

FKUEDEJXSQ2

宏文件

steve_suich

Dim swApp As Object
Dim swAssy As SldWorks.AssemblyDoc
Dim swAssyEvents As Class1
Dim swprt As SldWorks.PartDoc
Dim swprtEvents As Class2

Sub main()
    Set swApp = Application.SldWorks
    Set prt = swApp.GetFirstDocument
   If Not prt Is Nothing Then
   Set prt = swApp.ActiveDoc
    If prt.GetType = 2 Then
   Set swAssy = prt
    Set swAssyEvents = New Class1
    Set swAssyEvents.swAssy = swApp.ActiveDoc
    ElseIf prt.GetType = 1 Then
     Set swprt = prt
     Set swprtEvents = New Class2
     Set swprtEvents.swprt = swApp.ActiveDoc
         End If
   End If
End Sub


//////////////////////////////////
Class1
//////////////////////////////////
Public WithEvents swAssy As SldWorks.AssemblyDoc

Public Function swAssy_RenameItemNotify(ByVal entType As Long, ByVal oldName As String, ByVal NewName As String) As Long
   Set swApp = Application.SldWorks
   Set Part = swApp.ActiveDoc
  If InStrRev(oldName, "\") <> 0 Then
  Path = Left(oldName, InStrRev(oldName, "\"))
  nfi = Left(NewName, InStrRev(NewName, ".") - 1)
   tmpfi = Dir(Path & "*.SLDDRW")
   Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = Right(oldName, Len(oldName) - InStrRev(oldName, "\")) Then
     Name Path & tmpfi As nfi & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(nfi & ".SLDDRW", vDepend(1), NewName)
     Exit Do
    End If
   tmpfi = Dir
   Loop
    Part.Save
Else
  Set swSelMgr = Part.SelectionManager
   Set swComp = swSelMgr.GetSelectedObject(1)
   mip = swComp.GetPathName
   oldn = Left(oldName, InStrRev(oldName, "-") - 1)
Path = Left(mip, InStrRev(mip, "\"))
ntype = Mid(mip, InStrRev(mip, "."))
    If mip <> "" Then
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = (oldn & ntype) Then
     Name Path & tmpfi As Left(mip, InStrRev(mip, ".") - 1) & ".SLDDRW"
    bln = swApp.ReplaceReferencedDocument(Left(mip, InStrRev(mip, ".") - 1) & ".SLDDRW", vDepend(1), mip)
     Exit Do
    End If
    tmpfi = Dir
   Loop
   End If
End If
Set Part = Nothing
End Function

//////////////////////////////////
Class2
//////////////////////////////////
Public WithEvents swprt As SldWorks.PartDoc

Public Function swprt_RenameItemNotify(ByVal entType As Long, ByVal oldName As String, ByVal NewName As String) As Long

   Set swApp = Application.SldWorks
   Set Part = swApp.ActiveDoc
  Path = Left(oldName, InStrRev(oldName, "\"))
  nfi = Left(NewName, InStrRev(NewName, ".") - 1)
   tmpfi = Dir(Path & "*.SLDDRW")
   Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = Right(oldName, Len(oldName) - InStrRev(oldName, "\")) Then
     Name Path & tmpfi As nfi & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(nfi & ".SLDDRW", vDepend(1), NewName)
     Exit Do
    End If
   tmpfi = Dir
   Loop
    Part.Save
End Function