SW宏命令的運用,，你們都是怎么進行重命名的,？

cool44

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

阿帕奇2022

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

大神，能分享一下這個宏嗎,。,。。感謝,！~,！

youjinlong64

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

八哥BJ

凱元可以

zou272294738

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

您好,，請問能分享一下您這個宏嗎？謝謝

阿帕奇2022

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

能分享一下嗎,？

阿帕奇2022

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

求分享！�,�,！

非資深但不高級

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

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