SW宏命令的运用，你们都是怎么进行重命名的？

cool44

我用的是自己写的宏，一个在sw里用，可以单个文件改名。另一个宏是配合excel用，可以批量改名。

阿帕奇2022

笑对人生123 发表于 2021-9-13 23:33
以前用这个宏超级快，可以节约很多时间

大神，能分享一下这个宏吗。。。感谢！~！

youjinlong64

咋用宏命令改名后工程图还能链接上？

八哥BJ

凯元可以

zou272294738

醉生梦 发表于 2021-9-13 15:18
这个是在“常跓宏”的基础上改的，有改名动作时，检测文件同文件夹下是否有同名的工种图文件，如果有，更改 ...

您好，请问能分享一下您这个宏吗？谢谢

阿帕奇2022

醉生梦 发表于 2021-9-13 15:18
这个是在“常跓宏”的基础上改的，有改名动作时，检测文件同文件夹下是否有同名的工种图文件，如果有，更改 ...

能分享一下吗？

阿帕奇2022

醉生梦 发表于 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