国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费

機械社區

標題: 重命名零件宏 [打印本頁]

作者: 怕瓦落地2011 時間: 2023-8-21 21:07
標題: 重命名零件宏
Solidworks 雖功能強大，但有些地方做得不盡如人意，比如三維帶工程圖重命名，就顯得十分雞肋。論壇網友steve_suich發過一個改零件同時改工程圖的宏（http://m.whclglass.com.cn/thread-1058539-1-2.html）,雖然有所改進，但不是十分完美。
我在此代碼的基礎上作些優化，希望能給大家帶來幫助！

Ps:1.前置條件：打開裝配體并選擇零件
2.使用方法：運行宏后輸入名稱
3.運行結果：同文件夾下生成新零件及附屬工程圖并保留原工程圖

Dim swApp As Object
  Dim Part As Object
  Dim Error As Long
Dim Warning As Long
Dim mip As String
Dim Status As Boolean
Dim Newpath As String
Dim mipname As String
Dim vDepend() As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
Set swComp= swSelMgr.GetSelectedObjectsComponent4(1,0）
      swComp.SetSuppression2 (3)
Set swSelModel = swComp.GetModelDoc2
Set swSelModelext = swSelModel.Extension

oldpathname = swComp.GetPathName

Path = Left(oldpathname, InStrRev(oldpathname, "\")) '路徑
Debug.Print Path
ntype = Mid(oldpathname, InStrRev(oldpathname, ".")) '后綴
Debug.Print ntype
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1) '舊文件名
Debug.Print oldfi
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
      mipname = InputBox("changename", "name", oldname) '新文件名

      mip = Path & mipname & ntype '新文件名帶路徑
      Debug.Print mip

If mip <> "" Then
      Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
   Debug.Print Status
   '========================
   '更改工程圖文件名
   Debug.Print Path
   tmpfi = Dir(Path & "*.SLDDRW") '遍歷原文件夾中的工程圖文件
   Debug.Print tmpfi
   Do Until tmpfi =Null
      tmpfiname = Mid(tmpfi, InStrRev(tmpfi, "\") + 1)
      Debug.Print tmpfiname
      tmpoldname=mid(oldfi,1,instr(1,oldfi,".")-1) & ".SLDDRW"
      Debug.Print tmpoldname
      If tmpfiname = tmpoldname Then '查找同名工程圖
      newdrwname = Path & mipname & ".SLDDRW"
      Debug.Print newdrwname
      olddrwname = Path & tmpfi
      filecopy olddrwname,newdrwname '復制工程圖到新文件夾
      vDepend = swApp.GetDocumentDependencies2(Path & tmpfi, False, False, False) '查找工程圖依賴
      Debug.Print vDepend(1)
      bl = swApp.ReplaceReferencedDocument(newdrwname, vDepend(1), mip) '替換工程圖依賴

      Debug.Print bl
      Exit Do
   End If
tmpfi = Dir
Debug.Print tmpfi
Loop
End If
End Sub

作者: ィ心兂鎅 時間: 2023-8-22 07:09
有版本限制嗎？

作者: cc851 時間: 2023-8-22 09:57
Solidworks自帶命名，就是不能關聯工程圖一起改而已。從設計流程來說，改名在出圖之前。其實就無所謂要不要插件了。

作者: trongtrongtrong 時間: 2023-8-22 10:14
凱元工具也可以批量改名

作者: 怕瓦落地2011 時間: 2023-8-22 21:14

trongtrongtrong 發表于 2023-8-22 10:142 y6 m9 H" p5 d) b3 ^6 H" S& w) t
凱元工具也可以批量改名

授人以魚，不如授人以漁

作者: shasu 時間: 2023-8-24 16:19
謝謝版主分享

作者: liyizheng5566 時間: 2023-11-8 16:07
復制粘貼過去代碼錯誤

作者: liyizheng5566 時間: 2023-11-8 16:08
顯示代碼錯誤一片紅

作者: lonelysnakejj 時間: 2024-3-26 11:09
怎么拷貝好一些，復制都是亂碼

作者: Dustry 時間: 2024-4-3 13:29

運行報錯咋解決啊大佬

作者: Dustry 時間: 2024-4-3 14:26

Dustry 發表于 2024-4-3 13:29
( g# d' {1 N, }% g/ s: l# m& O運行報錯咋解決啊大佬

Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
1 g$ W9 s- a) Q" }" t4 ^$ f! m# f對象不支持這個屬性或方法（錯誤 438）

作者: peiyj 時間: 2024-4-4 12:44
運行出錯

作者: 頭鐵楊 時間: 2024-5-20 14:38
好用，如果再加個刪除原圖紙就更完美了

作者: 落葉luoyi 時間: 2024-5-23 13:01
提示編譯錯誤：沒有適當的對象，方法無效
大佬，這個怎么修改啊

作者: cot 時間: 2024-6-2 21:04
感謝

作者: 小菜雞123 時間: 2024-9-3 10:13

怕瓦落地2011 發表于 2023-8-22 21:14
. w; {6 B7 v/ }4 _1 O- g授人以魚，不如授人以漁

為什么復制了代碼，點擊了啟動，沒有反應，重新啟動也沒有反應，代碼里面紅色的，這個有關系嗎？

作者: 東海之上 時間: 2024-12-18 17:24

請問下，卡到這步是什么問題呢？零件名已經更改過來了，但是工程圖沒動靜。

作者: 一米陽光7915 時間: 2024-12-19 13:54
要是能刪除原始模型和工程圖就更好了

作者: 大江大河-Meche 時間: 2025-6-7 17:02

落葉luoyi 發表于 2024-5-23 13:01: ^9 h! x g) A; w! R4 z, M7 Q
提示編譯錯誤：沒有適當的對象，方法無效) r" o& w" ~ v. i' O
大佬，這個怎么修改啊

版本不適，不支持函數

作者: LIULISHAN 時間: 2025-6-29 23:39

Dustry 發表于 2024-4-3 14:26
) t( ?% o. v9 Q9 `1 F' A; VStatus = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替 ...

拿去，不用謝
Status = swSelModelext.SaveAs2(mip, 0, 512, Nothing, "", False, Error, Warning) '更改零件文件名（替換裝配體中的原文件）

作者: TAXUSDONG 時間: 2025-6-30 08:00

lonelysnakejj 發表于 2024-3-26 11:09% z7 T6 P: G8 f
怎么拷貝好一些，復制都是亂碼

截圖，自己重新輸入一遍，也是一種學習。我以前試過復制，都是亂碼，這次準備這樣試一下。

作者: LIULISHAN 時間: 2025-7-1 22:29

TAXUSDONG 發表于 2025-6-30 08:001 C; ~; n" ~6 s* u! E8 U1 h
截圖，自己重新輸入一遍，也是一種學習。我以前試過復制，都是亂碼，這次準備這樣試一下。
; M7 J$ ~: y) z$ J. u: q/ b ...

亂碼一般在尾部，刪掉就好

作者: woodygor 時間: 2025-7-4 09:51
如果選中的零件已經打開工程圖宏命令會報錯

這個bug可以解決嗎

補充內容 (2025-7-10 09:13):
還有零件沒有工程圖也會報錯。。

作者: LIULISHAN 時間: 2025-7-22 22:52

woodygor 發表于 2025-7-4 09:510 y- Q2 h2 s; }0 M9 l d
如果選中的零件已經打開工程圖宏命令會報錯3 C2 z8 _+ A! P& f& u

/ Q# D8 z g3 {6 N! R {" j9 _這個bug可以解決嗎

問題出在 FileCopy olddrwname, newdrwname
Copy、CopyFile、FileCopy的用法

1、Copy 方法, B) w9 ^7 ?0 b+ w( l
描述6 x4 n  K( N0 l1 V) ]& Y
把一個指定的文件或文件夾從一個地方復制到另一個地方。7 a1 h& G3 P2 _9 m; k. O
語法
! E) W6 }  F* j2 ]object.Copy destination[, overwrite]. j" Q2 n, d) c8 ~( l3 n. L7 T/ b
Copy 方法語法有如下幾部分：4 Q0 F( ^5 w# w3 v
部分描述
9 B# C3 K1 ^0 X3 w: `, v. t1 Y0 ^object 必需的。始終是一個 File 或 Folder 對象的名字。0 q0 C  f- ^; F# c* l
destination 必需的。文件或文件夾要復制到的接受端。不允許有通配符。
( S. ^, G- q: o) z: j1 D: r  voverwrite 可選的。Boolean 值，如果該值為 True （缺?。?，則已存在的文件或文件夾將被覆蓋。如果為 False，則它們不被覆蓋。5 M1 c8 `+ y& u
說明
+ b. |/ ?( X* T3 q對一個 File 或 Folder，Copy 方法的結果和執行 FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 操作的結果是一樣的，在后者中， object所引用的文件或文件夾是作為參數傳遞的。應當注意，后面的方法能夠復制多個文件或文件夾。

=============================================================================

2、CopyFile 方法
: S: ~3 Q* A5 _描述
- J3 ~: e! r3 `+ c' ~& r把一個或多個文件從一個地方復制到另一個地方。% j( z2 z' O7 W3 \
語法
2 h/ d4 k7 a8 H$ o9 c+ L( Hobject.CopyFile source, destination[, overwrite]" u, }; n  ]2 _2 U, c
CopyFile 方法語法有如下幾部分：$ k' c# b% f5 G) r5 C
部分描述: X9 g: ^6 b% c2 m$ u
object 必需的。object始終是一個 FileSystemObject 的名字。; A0 X% E, t1 u6 C# q; f8 F- y
source 必需的。指明一個或多個要被復制文件的字符串文件說明，它可以包括通配符。# T) N% T" V' T3 E1 k/ N
destination 必需的。指明 source 中的一個或多個文件要被復制到的接受端的字符串，不允許有通配符。# s- L' v+ T: v2 ?% W% v' ?) a6 n
overwrite 選項的。Boolean 值，它表示存在的文件是否被覆蓋。如果是 True，文件將被覆蓋；如果是 False，它們不被覆蓋。缺省值是 True。注意如果 destination 具有只讀屬性設置，不論 overwrite 值如何，CopyFile 都將失敗。
9 b( K0 S- Q7 K9 b* S' R& H說明/ Q9 e  n5 J5 s6 O) z4 o8 L: h
通配符只能用在 source 參數的最后一個路徑部件。例如，你可以在下面請況使用通配符：% M( c3 A4 A, T2 o0 Q
FileSystemObject.CopyFile “c:\mydocuments\letters*.doc”, “c:\tempfolder\”
! i; i. B! @9 K! k但下面情況不能使用：. E1 \$ E' n; a1 o' e5 p
FileSystemObject.CopyFile “c:\mydocuments*\R1???97.xls”, “c:\tempfolder”
; V8 y$ b* {& p( C3 j! D. ?如果 source 包含通配符或 destination 以路徑分隔符（\）為結尾，則認為 destination 是一個已存在文件夾，在其中復制相匹配的文件。否則認為 destination 是一個要創建文件的名字。不論是那種情況，當復制一個文件時，可能發生三種事件。# ^- ]; `2 R  z1 U! s
如果 destination 不存在，source 得到復制。這是通常的情況。4 X4 U- ~% a: k/ G/ Y$ A
如果 destination 是一個已存在的文件，則當 overwrite 值為 False 時發生一個錯誤，否則，source的復制文件將試圖覆蓋已存在文件。8 Y# f- `( k2 q+ L9 W
如果 destination 是一個目錄，發生一個錯誤。* f- a2 z9 ?# a6 m' D
如果使用通配符的 source 不能和任何文件匹配，同樣產生一個錯誤。CopyFile 方法停止在它遇到的第一個錯誤上。不要試圖回卷或撤消錯誤發生前所做的任何改變。

=============================================================================

3、FileCopy 語句" a: \  I. S; ?. Q# g; C6 Q" ^
復制一個文件。
4 B9 Q; }& B& D語法6 q. a" j# ^/ [  F' v
FileCopy source, destination9 l) s5 j4 N8 }9 G* x
FileCopy 語句的語法含有以下這些命名參數：
# _) G6 B) z# P$ d0 g8 e  `' l部分描述
, q6 ~2 Y2 V) usource 必要參數。字符串表達式，用來表示要被復制的文件名。source 可以包含目錄或文件夾、以及驅動器。) Z9 l" |- E1 p, F- e( |
destination 必要參數。字符串表達式，用來指定要復制的目地文件名。destination 可以包含目錄或文件夾、以及驅動器。
# N7 i9 D9 I% b, g: c- t說明5 a/ K( n! U! E; \. Y2 x7 u
如果想要對一個已打開的文件使用 FileCopy 語句，則會產生錯誤。

作者: 無名水路 時間: 2025-8-24 08:18
復制都是亂碼

歡迎光臨機械社區 (http://m.whclglass.com.cn/)