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

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

標(biāo)題: 重命名零件宏 [打印本頁(yè)]

作者: 怕瓦落地2011 時(shí)間: 2023-8-21 21:07
標(biāo)題: 重命名零件宏
Solidworks 雖功能強(qiáng)大，但有些地方做得不盡如人意，比如三維帶工程圖重命名，就顯得十分雞肋。論壇網(wǎng)友steve_suich發(fā)過(guò)一個(gè)改零件同時(shí)改工程圖的宏（http://www.ytsybjq.com/thread-1058539-1-2.html）,雖然有所改進(jìn)，但不是十分完美。
我在此代碼的基礎(chǔ)上作些優(yōu)化，希望能給大家?guī)?lái)幫助！

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

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 '復(fù)制工程圖到新文件夾
      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

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

作者: cc851 時(shí)間: 2023-8-22 09:57
Solidworks自帶命名，就是不能關(guān)聯(lián)工程圖一起改而已。從設(shè)計(jì)流程來(lái)說(shuō)，改名在出圖之前。其實(shí)就無(wú)所謂要不要插件了。

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

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

trongtrongtrong 發(fā)表于 2023-8-22 10:140 ?: a# S6 m; J: T$ K! {
凱元工具也可以批量改名

授人以魚，不如授人以漁

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

作者: liyizheng5566 時(shí)間: 2023-11-8 16:07
復(fù)制粘貼過(guò)去代碼錯(cuò)誤

作者: liyizheng5566 時(shí)間: 2023-11-8 16:08
顯示代碼錯(cuò)誤一片紅

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

作者: Dustry 時(shí)間: 2024-4-3 13:29

運(yùn)行報(bào)錯(cuò)咋解決啊大佬

作者: Dustry 時(shí)間: 2024-4-3 14:26

Dustry 發(fā)表于 2024-4-3 13:29% y# ^2 D. k5 a6 W% z- s- I
運(yùn)行報(bào)錯(cuò)咋解決啊大佬

Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
. f* n X0 ?# z x9 D對(duì)象不支持這個(gè)屬性或方法（錯(cuò)誤 438）

作者: peiyj 時(shí)間: 2024-4-4 12:44
運(yùn)行出錯(cuò)

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

作者: 落葉luoyi 時(shí)間: 2024-5-23 13:01
提示編譯錯(cuò)誤：沒有適當(dāng)?shù)膶?duì)象，方法無(wú)效
大佬，這個(gè)怎么修改啊

作者: cot 時(shí)間: 2024-6-2 21:04
感謝

作者: 小菜雞123 時(shí)間: 2024-9-3 10:13

怕瓦落地2011 發(fā)表于 2023-8-22 21:140 _% m3 |5 m3 R, n4 d$ E# }
授人以魚，不如授人以漁

為什么復(fù)制了代碼，點(diǎn)擊了啟動(dòng)，沒有反應(yīng)，重新啟動(dòng)也沒有反應(yīng)，代碼里面紅色的，這個(gè)有關(guān)系嗎？

作者: 東海之上 時(shí)間: 2024-12-18 17:24

請(qǐng)問(wèn)下，卡到這步是什么問(wèn)題呢？零件名已經(jīng)更改過(guò)來(lái)了，但是工程圖沒動(dòng)靜。

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

作者: 大江大河-Meche 時(shí)間: 2025-6-7 17:02

落葉luoyi 發(fā)表于 2024-5-23 13:01, b" a) U8 j1 {; @4 L5 {( \
提示編譯錯(cuò)誤：沒有適當(dāng)?shù)膶?duì)象，方法無(wú)效
; w6 C* \, x& l+ z- h8 {大佬，這個(gè)怎么修改啊

版本不適，不支持函數(shù)

作者: LIULISHAN 時(shí)間: 2025-6-29 23:39

Dustry 發(fā)表于 2024-4-3 14:26
0 l6 P4 C- G0 oStatus = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替 ...

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

作者: TAXUSDONG 時(shí)間: 2025-6-30 08:00

lonelysnakejj 發(fā)表于 2024-3-26 11:09' G% b( @! v. I" m+ ?! A# M% y
怎么拷貝好一些，復(fù)制都是亂碼

截圖，自己重新輸入一遍，也是一種學(xué)習(xí)。我以前試過(guò)復(fù)制，都是亂碼，這次準(zhǔn)備這樣試一下。

作者: LIULISHAN 時(shí)間: 2025-7-1 22:29

TAXUSDONG 發(fā)表于 2025-6-30 08:00
+ e4 }. M4 Y: R7 M截圖，自己重新輸入一遍，也是一種學(xué)習(xí)。我以前試過(guò)復(fù)制，都是亂碼，這次準(zhǔn)備這樣試一下。
9 y8 M- }6 Y& D5 y4 M ...

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

作者: woodygor 時(shí)間: 2025-7-4 09:51
如果選中的零件已經(jīng)打開工程圖宏命令會(huì)報(bào)錯(cuò)

這個(gè)bug可以解決嗎

補(bǔ)充內(nèi)容 (2025-7-10 09:13):
還有零件沒有工程圖也會(huì)報(bào)錯(cuò)。。

作者: LIULISHAN 時(shí)間: 2025-7-22 22:52

woodygor 發(fā)表于 2025-7-4 09:51/ O) L: X4 C8 x P
如果選中的零件已經(jīng)打開工程圖宏命令會(huì)報(bào)錯(cuò)
% ^) J/ R9 c) ^' U. W* O
8 _6 K6 ^; h1 t0 \. T3 c9 g這個(gè)bug可以解決嗎

問(wèn)題出在 FileCopy olddrwname, newdrwname
Copy、CopyFile、FileCopy的用法

1、Copy 方法: {7 d6 K6 Z2 g; p  p
描述
把一個(gè)指定的文件或文件夾從一個(gè)地方復(fù)制到另一個(gè)地方。5 v8 i9 v8 x- L- U" f' G
語(yǔ)法( w9 w) ~) y5 @/ ~" d7 n9 F' t
object.Copy destination[, overwrite]
0 T( z8 Y+ v+ w/ \; kCopy 方法語(yǔ)法有如下幾部分：
! g& c- `8 Y" a: y& _部分描述' _- x  t& h" K5 N9 P
object 必需的。始終是一個(gè) File 或 Folder 對(duì)象的名字。
  l) X) I2 k! V. P/ q2 ldestination 必需的。文件或文件夾要復(fù)制到的接受端。不允許有通配符。4 e) R4 H# W  T  S; d  Y
overwrite 可選的。Boolean 值，如果該值為 True （缺省），則已存在的文件或文件夾將被覆蓋。如果為 False，則它們不被覆蓋。( q; ^# q. j3 N) R0 [1 K% O9 {( {0 c
說(shuō)明7 b& [" P5 {. P9 `: P! q
對(duì)一個(gè) File 或 Folder，Copy 方法的結(jié)果和執(zhí)行 FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 操作的結(jié)果是一樣的，在后者中， object所引用的文件或文件夾是作為參數(shù)傳遞的。應(yīng)當(dāng)注意，后面的方法能夠復(fù)制多個(gè)文件或文件夾。

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

2、CopyFile 方法
3 i9 V+ ~3 b; |) i描述
% T1 c1 _) g( a5 ?" r把一個(gè)或多個(gè)文件從一個(gè)地方復(fù)制到另一個(gè)地方。
! M" @! e& m9 X* {" Z語(yǔ)法
, ^7 @7 n/ P3 |! c4 d7 u$ {) e: Vobject.CopyFile source, destination[, overwrite]3 n; g" D* ]6 ]4 ?, N
CopyFile 方法語(yǔ)法有如下幾部分：- q% Y+ t! C  H! X5 K" a
部分描述
5 b) t) p8 `2 f1 Bobject 必需的。object始終是一個(gè) FileSystemObject 的名字。
+ X+ |! l  p: Ysource 必需的。指明一個(gè)或多個(gè)要被復(fù)制文件的字符串文件說(shuō)明，它可以包括通配符。! R" e# r6 |$ l# Q; D. ~
destination 必需的。指明 source 中的一個(gè)或多個(gè)文件要被復(fù)制到的接受端的字符串，不允許有通配符。
# D! r4 ]' V/ m- Toverwrite 選項(xiàng)的。Boolean 值，它表示存在的文件是否被覆蓋。如果是 True，文件將被覆蓋；如果是 False，它們不被覆蓋。缺省值是 True。注意如果 destination 具有只讀屬性設(shè)置，不論 overwrite 值如何，CopyFile 都將失敗。
1 y6 ?  J# J9 p4 c& O1 ~說(shuō)明; q& ~- c: T- s" H. C& f$ v3 L& b
通配符只能用在 source 參數(shù)的最后一個(gè)路徑部件。例如，你可以在下面請(qǐng)況使用通配符：
9 ?7 }  ^$ x& Q* u% fFileSystemObject.CopyFile “c:\mydocuments\letters*.doc”, “c:\tempfolder\”! X0 |. E0 O5 h
但下面情況不能使用：
0 t+ z" l+ O1 z( e2 M2 l! ]FileSystemObject.CopyFile “c:\mydocuments*\R1???97.xls”, “c:\tempfolder”7 `3 Q' c+ V" h! L, K+ l0 a
如果 source 包含通配符或 destination 以路徑分隔符（\）為結(jié)尾，則認(rèn)為 destination 是一個(gè)已存在文件夾，在其中復(fù)制相匹配的文件。否則認(rèn)為 destination 是一個(gè)要?jiǎng)?chuàng)建文件的名字。不論是那種情況，當(dāng)復(fù)制一個(gè)文件時(shí)，可能發(fā)生三種事件。; C$ X9 N0 i# v' Z; |9 y# R
如果 destination 不存在，source 得到復(fù)制。這是通常的情況。! _; S9 u  y( ?2 w5 K
如果 destination 是一個(gè)已存在的文件，則當(dāng) overwrite 值為 False 時(shí)發(fā)生一個(gè)錯(cuò)誤，否則，source的復(fù)制文件將試圖覆蓋已存在文件。4 ~) L1 s4 y) r* j. ], \5 Z
如果 destination 是一個(gè)目錄，發(fā)生一個(gè)錯(cuò)誤。
, x0 {8 y* n7 t8 D$ y3 I如果使用通配符的 source 不能和任何文件匹配，同樣產(chǎn)生一個(gè)錯(cuò)誤。CopyFile 方法停止在它遇到的第一個(gè)錯(cuò)誤上。不要試圖回卷或撤消錯(cuò)誤發(fā)生前所做的任何改變。

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

3、FileCopy 語(yǔ)句6 Y" w- W- W$ g* J& F
復(fù)制一個(gè)文件。) M: `4 M6 X0 x" E8 f2 x
語(yǔ)法
& S; k4 @4 o4 Q* N& u& g# pFileCopy source, destination
E' q& J2 |+ Y7 _0 d0 ?FileCopy 語(yǔ)句的語(yǔ)法含有以下這些命名參數(shù)：" [: z7 t; o5 U2 K
部分描述# O/ M+ }+ U- ~' Z
source 必要參數(shù)。字符串表達(dá)式，用來(lái)表示要被復(fù)制的文件名。source 可以包含目錄或文件夾、以及驅(qū)動(dòng)器。, _5 W2 M" m5 D1 }; f
destination 必要參數(shù)。字符串表達(dá)式，用來(lái)指定要復(fù)制的目地文件名。destination 可以包含目錄或文件夾、以及驅(qū)動(dòng)器。
2 h- F2 g5 g8 H1 W# ~說(shuō)明
1 T! v$ U) B. ?如果想要對(duì)一個(gè)已打開的文件使用 FileCopy 語(yǔ)句，則會(huì)產(chǎn)生錯(cuò)誤。

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