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

小凡雪琪碧瑶

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

大鹿

试答：重画

小凡雪琪碧瑶

不准备这么麻烦

杀苏

新建一空白图，复制过来

小凡雪琪碧瑶

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

o1ojacko1o

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

您所说的 意思是 零件和工程图不关联吗？
: h1 w0 q# `2 I: d8 ~& T
) J% }9 h7 U1 Z) R您所说的不关联 是几个意思？ 零件修改 工程图不跟着改动吗？

) Q/ b2 X2 K0 L, J1 k 还是你打开零件 想直接通过零件打开对应的工程图打不开？

如果是最后一个原因 你大可不必这么麻烦，高手前辈已经提供了对应的解决方法。

小凡雪琪碧瑶

是最后一个原因

bash

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

NC@jiang@nan

1. Sub main()
   8 ~* F7 |- r1 e, F& q
2. Set swApp = Application.SldWorks
   & x0 t- [) q' i4 k6 B3 Q5 V
3. Set Model = swApp.ActiveDoc
   
4. If Model Is Nothing Then Exit Sub
   
5. ModelPathName = Model.GetPathName
   
6. ModelConfigName = swApp.GetActiveConfigurationName(ModelPathName) '當前模型的當前配置名稱
   
7. ModelPath = Left(ModelPathName, InStrRev(ModelPathName, ""))
   
8. ModelName = Right(ModelPathName, Len(ModelPathName) - Len(ModelPath))
   8 Z& O) B! u6 R) P4 E, C
9. DrawingFileName = Dir(ModelPath & "*.slddrw") '獲取首個工程圖檔案名稱
   
10. NoDrawingFound = True
    , a- H+ \, [4 L) f( r5 `5 D
11. Do Until DrawingFileName = "" '直至獲取到空值
    : ^+ W: Y6 T$ t# I8 Z0 k% M) t4 d
12.     traverse = False 'True
    / Z' Q' u. f+ F' o$ H' d: V
13.     Search = False
    . S7 h. r; x3 N
14.     addreadonlyinfo = False
    
15.     depends = swApp.GetDocumentDependencies2(ModelPath & DrawingFileName, traverse, Search, addreadonlyinfo) '工程圖含有的全部模型檔案名稱
    5 M0 ~9 v/ C! a" O; t9 w" Y! k1 z
16.     WithModel = False
    
17.     If Not IsEmpty(depends) Then
    1 h) ~# R7 C8 i0 ^
18.         idx = 1
    3 E% X3 ?! Y+ n; k. k! [
19.         While idx <= UBound(depends)
    
20.             If ModelPathName = depends(idx) Then WithModel = True '工程圖是否含有當前模型檔案名稱
    # E5 Y$ K4 [! k3 s
21.             idx = idx + 2
    4 |4 o# v$ M$ o( l8 j
22.         Wend
    : g" F6 T4 Y) R/ d8 ^6 `" c
23.     End If
    4 P6 t) z( e3 i0 c. D1 S
24.     If WithModel Then '是否含有當前模型檔案名稱
    
25.         Set Drawing = swApp.OpenDoc(ModelPath & DrawingFileName, 3) '開啟工程圖
    
26.         Dim longstatus As Long
    " |3 _& X5 I9 ]* ^- o0 i( J
27.         swApp.ActivateDoc2 DrawingFileName, False, longstatus  '顯示工程圖
    & |4 Z: S+ d( A; ?
28.         myViewss = Drawing.GetViews '所有視圖
    / }& L5 [9 [) z8 S
29.         ModelConfigInDrawing = False
    , y& `$ W9 e* k# P" z: A  W
30.         For i = 0 To UBound(myViewss) '每頁
    
31.             myViews = myViewss(i)
    
32.             SheetName = myViews(0).Name '每頁圖頁名稱
    ) d3 l, R+ \* R
33.             ModelInSheet = False
    
34.             For J = 0 To UBound(myViews)
    7 [/ U+ j0 b$ {
35.                 If ModelPathName = myViews(J).GetReferencedModelName And ModelConfigName = myViews(J).ReferencedConfiguration Then '模型檔名及配置名稱都吻合
    ) E4 |. r3 K" b# K6 C! I9 A5 Q0 f
36.                     ModelInSheet = True
    
37.                     ModelConfigInDrawing = True
    
38.                 End If
    $ s: p: w, F- B( A, V2 W. T4 M
39.             Next
    
40.             If ModelInSheet Then Drawing.ActivateSheet SheetName '跳到含有當前模型及配置的圖頁
    5 y$ }5 P$ f& {% A1 v
41.         Next
    
42.         If Not ModelConfigInDrawing Then '開啟了的工程圖不吻合所有條件
    
43.             MsgBox "此工程圖雖然含有 " & ModelName & Chr(10) & "但沒有對應的配置 " & ModelConfigName '如覺得此提示信息有阻礙, 可整句刪除
    
44.             swApp.ActivateDoc2 ModelPathName, False, longstatus    '顯示本來的模型 (雖然開啟了的工程圖不吻合條件, 但必須保持開啟, 以免影響其他當前工作)
    6 U' Q  g" a7 u$ Y: y% r; e$ c
45.         End If
    ; E* D  m& G3 A/ @, K
46.         NoDrawingFound = False
    
47.     End If
    
48.     DrawingFileName = Dir '獲取下一個工程圖檔案名稱
    
49. Loop '循環
    9 j9 D  e4 U4 P: O9 I- L
50. If NoDrawingFound Then MsgBox "在資料夾 " & ModelPath & Chr(10) & "找不到含有 " & ModelName & " 的工程圖" '如覺得此提示信息有阻礙, 可整句刪除
    
51. End Sub
    + ~: X' V( L' X% Y" i' V

复制代码

4 U  U7 Y& k, z
  ]5 c0 m) O3 s* C# u- F! E3 F: E
如果楼主单纯为了能在打开模型时能打开相应的工程图的话，以上宏代码可以解决楼主的问题。这个是闷大的杰做，楼主去谢谢闷大。
7 e2 Y- T, l+ M* C如果说一定要把工程图文件存成单张的话，那我觉得把工程图文件另存为和模型名匹配的文件，然后把不属于这个模型的图页删除，这样可能更快点吧。