模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
# [# W% g, S$ {: V3 ]8 z$ I! o% I

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
   ! @  F! K1 Z& B) k# Z
5. Set Part = swApp.ActiveDoc
   " }; `- E  ?; r( H" b0 |9 l  X
6. Set swSelMgr = Part.SelectionManager
   6 O, I0 N! i& o$ f
7. Set swComp = swSelMgr.GetSelectedObject(1)
   0 s% O% G" Z9 a4 b9 ]" G
8. oldpathname = swComp.GetPathName
   / Q, w( H" p+ [, D# E+ D( Y9 F6 H
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
     M6 u1 }8 Q9 A3 s6 ^1 G; P
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    % x2 u7 r) N7 p. I5 A1 t3 l: @$ T
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    3 |2 o) W, m- h3 e& U) m7 v% ^
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    ! u; b: m% l9 f& r
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    : l' l4 m8 j4 e1 t5 x$ ?- q8 w
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    + |  c6 L5 g: ?0 S) u
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    / v9 t- \( ]1 s0 ~# Z8 P
25. tmpfi = Dir
    8 j' Q2 K& t* t: O: @! }1 S& Q. |
26. Loop
    + b, Y! g$ Z- j" o
27. End If
    
28. End Sub

复制代码

* U, b! l1 e, p+ M

steve_suich

9 q$ l! [" v0 g

shentu 发表于 2023-6-9 22:21
1 J1 E, J9 g, [1 ~: l2 r) i同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
( k" l0 M5 ~7 j3 E1 _  ]' V- ESub main()
* G1 J, ~; p& P7 t6 A; U5 vSet swApp = Application.SldWorks
/ q' S5 \  E% b/ t; b: F" qSet Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
5 j) R1 m  S; O" jPath = Left(oldpathname, InStrRev(oldpathname, "\"))
( d: h0 u/ X! K' q) B# W+ }ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
* F4 p# ^& y2 X6 ?( Koldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
' `% H8 @) K& c1 k4 K4 j; zoldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
4 y! [4 E* T- ^6 y# KIf mip <> "" Then
  Part.Extension.RenameDocument mip
  Part.Save
* D& Q4 R, {: ^5 \# l  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
/ T# k! f( g* c& L3 Z- S! }1 e    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
2 X) A# W& J  L; u, N' f  f    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
2 l8 m* A( D/ r6 H) q% i   End If
5 }6 c7 ~3 n" Atmpfi = Dir
* E" o: _. |1 p# S& S: R9 V7 BLoop
) c5 T3 _: M0 ~2 DEnd If
: S+ r" s0 s% u+ [, TEnd Sub
+ h8 [6 C( y, E* Z
8 z9 o- n, s1 j4 M; P

1. 
   

复制代码

  z& p: R  b( m' f

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
6 Y, \4 P- k5 J  B$ @8 qsw嘛？.

sw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
能说一下怎么用吗？

# G% A- k2 U' L" k* E) U1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
  A' {$ I) H7 W3 R' k, a3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）
- e* l* _8 t0 ~7 \
* @, m3 }* t8 I1 V1 e5 Z8 I. T4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
' ~& g, z1 @) L+ z% v6 v

顺子93

运行出错，08行有问题。错误91，对象变量或with 块变量未设置

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
/ ~3 i3 T# b7 BDim swApp As Object
Dim Part As Object
Sub main()

' w! H  L" V: x6 Z& `/ Z7 V( U试了下，只改了part文件名，图纸没变，问题出在哪呢？
* Q# K( r9 b7 w' W* M: I) E