多张工程图分解为单张的工程图

小凡雪琪碧瑶

我用 的是2012版的SW，以前有人把一系列的工程图都做在一张图上了，这样的弊端是工程图能关联建模图，但是建模图跟工程图不关联，因此我想把它拆开，单独一张一张的，试问下，有没有方法。谢谢！

大鹿

试答：重画

小凡雪琪碧瑶

不准备这么麻烦

杀苏

新建一空白图，复制过来

小凡雪琪碧瑶

对，我也是这样做的，但是图号什么的要重新修改，而且还要打包修改。

o1ojacko1o

这样的弊端是工程图能关联建模图，但是建模图跟工程图不关联，

您所说的 意思是 零件和工程图不关联吗？

! o: s- g  f; i, z* `; Y您所说的不关联 是几个意思？ 零件修改 工程图不跟着改动吗？
$ U1 b& X$ s* ^0 s
还是你打开零件 想直接通过零件打开对应的工程图打不开？
7 Y- O; v' c) x# W6 D
/ U! r% k0 t' r4 [如果是最后一个原因 你大可不必这么麻烦，高手前辈已经提供了对应的解决方法。

小凡雪琪碧瑶

是最后一个原因

bash

量很大的话，可以让懂VBA的朋友帮忙以零件名为基础拷贝出N分完整关联的单位，并且VBA中包含删除各图中不需要的视图的代码。然后再一张张整理版面。
量小的话，，楼上已经有答案！

NC@jiang@nan

1. Sub main()
   4 U) d( v: e$ o7 T/ X
2. Set swApp = Application.SldWorks
   
3. Set Model = swApp.ActiveDoc
   , A) T6 E  B# F' m% A2 V
4. If Model Is Nothing Then Exit Sub
   
5. ModelPathName = Model.GetPathName
   
6. ModelConfigName = swApp.GetActiveConfigurationName(ModelPathName) '當前模型的當前配置名稱
   
7. ModelPath = Left(ModelPathName, InStrRev(ModelPathName, ""))
     d/ p- S9 c/ H6 S2 K
8. ModelName = Right(ModelPathName, Len(ModelPathName) - Len(ModelPath))
   , r$ q7 x" S# j% b  I2 Z3 }2 K
9. DrawingFileName = Dir(ModelPath & "*.slddrw") '獲取首個工程圖檔案名稱
   ( n- k* ]% I, p0 t- k& D$ ], X! P5 g) U6 V
10. NoDrawingFound = True
    5 y+ b! P# R; s& ~7 A
11. Do Until DrawingFileName = "" '直至獲取到空值
    
12.     traverse = False 'True
    
13.     Search = False
    ' v! r. `( {) Z2 n9 s
14.     addreadonlyinfo = False
      H+ T- s$ _) c( e
15.     depends = swApp.GetDocumentDependencies2(ModelPath & DrawingFileName, traverse, Search, addreadonlyinfo) '工程圖含有的全部模型檔案名稱
    ( @/ A9 q$ J: W% m3 @9 m  @
16.     WithModel = False
    * M1 |! P4 n" @; }7 B
17.     If Not IsEmpty(depends) Then
    6 ~/ f5 D& f9 K* ?9 t- G" @
18.         idx = 1
    + M3 Z. W8 A$ U7 t7 F
19.         While idx <= UBound(depends)
    
20.             If ModelPathName = depends(idx) Then WithModel = True '工程圖是否含有當前模型檔案名稱
    
21.             idx = idx + 2
    9 m$ Q; ^$ q* M1 l- ]$ X/ j
22.         Wend
    4 n4 R2 r: K3 P9 P  f" b
23.     End If
    
24.     If WithModel Then '是否含有當前模型檔案名稱
    + A9 ?: k$ z0 J7 a4 ]& V! C
25.         Set Drawing = swApp.OpenDoc(ModelPath & DrawingFileName, 3) '開啟工程圖
    
26.         Dim longstatus As Long
    . W0 L6 t# b; h1 T' I
27.         swApp.ActivateDoc2 DrawingFileName, False, longstatus  '顯示工程圖
    
28.         myViewss = Drawing.GetViews '所有視圖
    - t! C& d: T% J2 e' W4 e, F
29.         ModelConfigInDrawing = False
    , P$ k' e5 S; u; n5 X
30.         For i = 0 To UBound(myViewss) '每頁
    
31.             myViews = myViewss(i)
    
32.             SheetName = myViews(0).Name '每頁圖頁名稱
    
33.             ModelInSheet = False
    & _& W6 t# {- E- Z& J! f
34.             For J = 0 To UBound(myViews)
    
35.                 If ModelPathName = myViews(J).GetReferencedModelName And ModelConfigName = myViews(J).ReferencedConfiguration Then '模型檔名及配置名稱都吻合
    / r5 ^  a; x3 V4 `! }
36.                     ModelInSheet = True
    : y, ]( l7 ?" G. w7 z1 ], F
37.                     ModelConfigInDrawing = True
    
38.                 End If
    & m- `1 p* Y/ a" u, z
39.             Next
    
40.             If ModelInSheet Then Drawing.ActivateSheet SheetName '跳到含有當前模型及配置的圖頁
    
41.         Next
    3 r  G) i# k6 j8 F
42.         If Not ModelConfigInDrawing Then '開啟了的工程圖不吻合所有條件
    5 ^- C& w7 J7 q  J. b& i$ x
43.             MsgBox "此工程圖雖然含有 " & ModelName & Chr(10) & "但沒有對應的配置 " & ModelConfigName '如覺得此提示信息有阻礙, 可整句刪除
    3 ?$ b6 `! i; Q  S9 L/ z5 b
44.             swApp.ActivateDoc2 ModelPathName, False, longstatus    '顯示本來的模型 (雖然開啟了的工程圖不吻合條件, 但必須保持開啟, 以免影響其他當前工作)
    ' I- E* q- E! _' t; H0 w& t
45.         End If
    
46.         NoDrawingFound = False
    8 T' w8 c0 e0 R! }1 M
47.     End If
    
48.     DrawingFileName = Dir '獲取下一個工程圖檔案名稱
    
49. Loop '循環
    5 I& A/ Q1 a5 Y0 A5 p+ i6 h! O
50. If NoDrawingFound Then MsgBox "在資料夾 " & ModelPath & Chr(10) & "找不到含有 " & ModelName & " 的工程圖" '如覺得此提示信息有阻礙, 可整句刪除
    
51. End Sub
    

复制代码

! ^$ e+ [+ q# s' U: `6 W0 [1 `& S如果楼主单纯为了能在打开模型时能打开相应的工程图的话，以上宏代码可以解决楼主的问题。这个是闷大的杰做，楼主去谢谢闷大。
如果说一定要把工程图文件存成单张的话，那我觉得把工程图文件另存为和模型名匹配的文件，然后把不属于这个模型的图页删除，这样可能更快点吧。