久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機(jī)械社區(qū)

標(biāo)題: SW宏命令的運(yùn)用，你們都是怎么進(jìn)行重命名的？ [打印本頁]

作者: 笑對人生123 時間: 2021-9-13 10:05
標(biāo)題: SW宏命令的運(yùn)用，你們都是怎么進(jìn)行重命名的？
作為機(jī)械工程師，相信很多人都會拿別人的3D或者以前的3D來參考設(shè)計，但是真正下圖細(xì)化的時候就要重新命名，但是這會導(dǎo)致工程圖鏈接不上，但是宏命令可以幫助我們解決這個問題，改名效率高，同時工程圖也會跟著改，換了一家公司，發(fā)現(xiàn)有的電腦能用有的不能用，不知道什么原因??！大家都是用什么進(jìn)行重命名的？

作者: 人在曹營心在漢 時間: 2021-9-13 10:41
學(xué)習(xí)一下目前用的笨辦法打包然后包括工程圖蹲蹲有什么好辦法之前百度好像有人用KYTool 但我司電腦不能聯(lián)網(wǎng) 盜版都激活不了

作者: xingqier 時間: 2021-9-13 10:56
我也想學(xué)習(xí)，蹲一位大佬

作者: 機(jī)械小將 時間: 2021-9-13 11:31
有沒有加密軟件，如果有加密軟件，可能是加密軟件的問題。改名的話確認(rèn)麻煩，一般都是打包然后替換圖紙代號，再有就是手動單個改。

作者: 1115432780 時間: 2021-9-13 12:53
摩爾紋

作者: SolidWorks2995 時間: 2021-9-13 13:10
實在不行買一個正版凱元吧，100多。用凱元改名的話，只改零件、別改裝配體，改裝配體零件參考會丟失。裝配體用SW自帶的改

作者: 魍者歸來 時間: 2021-9-13 14:33
自帶的瀏覽器改名

作者: 醉生夢 時間: 2021-9-13 15:18
這個是在“常跓宏”的基礎(chǔ)上改的，有改名動作時，檢測文件同文件夾下是否有同名的工種圖文件，如果有，更改文件名，并更新參考引用
“常跓宏”可以在開思網(wǎng)上找到

作者: 看前方 時間: 2021-9-13 15:35
凱元

作者: 笑對人生123 時間: 2021-9-13 23:32

好的，我去看看

作者: 笑對人生123 時間: 2021-9-13 23:32

SW自帶？

作者: 笑對人生123 時間: 2021-9-13 23:33

以前用這個宏超級快，可以節(jié)約很多時間

作者: 遠(yuǎn)祥 時間: 2021-9-21 16:53
我一般都是一遍設(shè)計一邊改數(shù)模名稱的，UG有個更改文件名稱很方便。

作者: 機(jī)械小將 時間: 2021-9-24 14:30

大俠，宏文件能分享下嗎

作者: huanggaoye 時間: 2021-9-24 17:24
樓主用的什么宏？發(fā)出來讓大家學(xué)習(xí)下

作者: huanggaoye 時間: 2021-9-24 17:25

大神，分享下這個宏啊，開思注冊不了啊

作者: fuyi8cn 時間: 2022-1-3 15:33
正在找這個

作者: fuyi8cn 時間: 2022-1-3 15:36
正在找這個，能分享一個嗎？

作者: 阿帕奇2022 時間: 2022-6-4 09:25

大神你好，能否共享一下這個宏文件，萬分感激！！925284228@qq.com

作者: sfish 時間: 2022-6-4 10:57

你好，剛看到，覺的你這個好用，能不能把宏分享出來??？

作者: cool44 時間: 2022-6-4 11:57
我用的是自己寫的宏，一個在sw里用，可以單個文件改名。另一個宏是配合excel用，可以批量改名。

作者: 阿帕奇2022 時間: 2022-6-4 22:01

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

作者: youjinlong64 時間: 2022-9-12 14:42
咋用宏命令改名后工程圖還能鏈接上？

作者: 八哥BJ 時間: 2022-9-12 17:14
凱元可以

作者: zou272294738 時間: 2023-1-19 15:02

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

作者: 阿帕奇2022 時間: 2023-6-12 16:31

能分享一下嗎？

作者: 阿帕奇2022 時間: 2023-7-27 08:02

求分享?。?！

作者: 非資深但不高級 時間: 2023-7-27 11:45

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

作者: FKUEDEJXSQ2 時間: 2023-8-10 16:09
宏文件

作者: steve_suich 時間: 2023-8-10 16:20
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

作者: steve_suich 時間: 2023-8-10 16:24
做了一個類似的宏。只能一個層級下的零部件改名，多層級的改不了。

作者: machel77 時間: 2023-8-11 07:59
有個帶工程圖另存使之獨(dú)立宏，非常好用

作者: zwm2022 時間: 2023-8-14 11:31

您好！能不能把你的這個宏發(fā)一下給我372323341@qq.com，非常謝謝！

作者: fuyi8cn 時間: 2023-8-20 22:02
非常感謝

作者: W0215 時間: 2023-11-10 10:12

我也想學(xué)習(xí)，蹲一位大佬

作者: 機(jī)械設(shè)計1234 時間: 2023-11-10 11:16
少量幾個的用宏程序改名。量大的用打包替換重命名

作者: FKUEDEJXSQ2 時間: 2023-11-10 11:51
打包

作者: 1477394889 時間: 2024-12-13 16:35

大神求分享394371870，謝謝

作者: 王克賢 時間: 2024-12-21 09:31
謝謝樓主的無么分享

歡迎光臨機(jī)械社區(qū) (http://www.ytsybjq.com/)