SW 工程图 BOM表 右键 菜单

caption_cn

SW 工程图 界面
$ H: S- Q0 y; \# L( y3 ^/ `里 在BOM列表里 点击鼠标右键
有打开相应零件的 的选择
为啥一直没有 打开工程图 的选择？

0 P0 d# O2 L. [/ A! o+ n' m2 D有办法加上么？

我一直习惯看着BOM表整理图纸
总是需要先打开模型再打开模型工程图，觉得麻烦啊。
& h- E1 {+ Q" l+ L! H

machine134

楼主自己开发一个吧，

大鹿

楼主的诉求，说不定会成为SW2016的新增功能啊。

caption_cn

搞定个简单版。
需要做成 宏 的按钮来用才会比较方便。
' t2 R$ L& a7 l功能：打开BOM表里所选单元格对应的模型的工程图，如果没有工程图不做任何提示。
4 m" P* a- X6 b特点：支持 多选！ 选几个打开几个！
BUG： 不能 选行！ 只可以选单元格，不限制单元格里选那一列。
不足：暂时不支持配置。
1 I3 _; ]; V* G0 M% t) T

Dim swApp As SldWorks.SldWorks
5 g: ~0 U6 P0 V/ M& `. ^0 }5 `, ^$ QSub main()
0 L0 o9 Q( r# L1 g/ n7 J    Dim swModel             As SldWorks.ModelDoc2
    Dim swSelectionMgr      As SldWorks.SelectionMgr
    Dim swDrawing           As SldWorks.DrawingDoc
% S- `! w( ?" [- |8 ~8 A1 ^6 E" z    Dim swAnnotation        As SldWorks.Annotation
    Dim swTableAnnotation   As SldWorks.TableAnnotation
    Dim firstRow            As Long
    Dim lastRow             As Long
( s, s- u5 y) n+ D6 A8 ~    Dim firstColumn         As Long
# I  i% @1 F% [2 U/ |    Dim lastColumn          As Long
% C* u' c. f( S* p; L5 `' H9 H6 P    Dim idx                 As Long
. z2 b! ~- ]* ~0 i/ z' E    Dim vModelPathName                As Variant
    Dim vModelPathNames               As Variant
1 K% ^$ [+ S1 s+ Y# y    Dim strItemNumber                 As String
    Dim strPartNumber                 As String
    Dim ModelName                     As String
    Dim DocName                     As String
" E- u1 D4 E: {( c   
2 r; _2 ], ^- U2 |   
7 f3 A' }( S7 u$ F( s    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
) P! m9 W1 T" c; R4 Q    Set swSelectionMgr = swModel.SelectionManager
    Set swDrawing = swModel
( Z& o3 [2 a  }9 o+ s   
+ ~$ R  h6 T) L4 t+ y+ \" C' z1 E, |    For idx = 1 To swSelectionMgr.GetSelectedObjectCount2(-1)
# i. O) z- ~+ S+ B3 Z  M        Set swTableAnnotation = swSelectionMgr.GetSelectedObject6(idx, -1)
        Set swAnnotation = swTableAnnotation.GetAnnotation
        swTableAnnotation.GetCellRange firstRow, lastRow, firstColumn, lastColumn
        vModelPathNames = swTableAnnotation.GetModelPathNames(firstRow, strItemNumber, strPartNumber)
        ModelName = vModelPathNames(0)
        DocName = Left(ModelName, Len(ModelName) - 6) & "SLDDRW"
+ m* q, {, T$ D# }+ C0 c6 r        
% n( I5 s5 g- p8 f% D: [/ z! A5 m        'Debug.Print "First selected cell's row     = " & firstRow
- ~' g# Y  n; a" J7 S        'Debug.Print "Last selected cell's row      = " & lastRow
        'Debug.Print "First selected cell's column  = " & firstColumn
        'Debug.Print "Last selected cell's column   = " & lastColumn
: Q( R. N* z$ r* n- u8 m0 n6 Z        'Debug.Print ""
        'Debug.Print "First selected cell's row     = " & firstRow, strItemNumber, strPartNumber
        'Debug.Print "First selected cell's row     = " & ModelName
% B. ^: x' m3 D        'Debug.Print "First selected cell's row     = " & DocName
) x" N( |& X  X8 Z5 ~! B' ]'---------------------------------------------------------------
  @8 ]9 A9 A5 ?5 b' O3 NDim swApp1       As SldWorks.SldWorks
Dim doc1         As SldWorks.ModelDoc2
2 N' H8 B! c/ s- U$ V7 A$ [- XDim fileerror   As Long
  X9 J- [& s  j+ }! E9 A* _1 rDim filewarning As Long
* v- p2 [( j$ Y" l5 Y% q, T6 T! U
Set swApp1 = Application.SldWorks
! R1 K. L6 Q: Q+ `2 ?swApp1.Visible = True
: M! G3 {" F# A7 j# bSet doc1 = swApp.OpenDoc6(DocName, swDocDRAWING, swOpenDocOptions_LoadModel, "", fileerror, filewarning)

6 L4 X$ y' l6 {* x, D'---------------------------------------------------------------
      
& w: f1 F& m$ S3 z      
* W" s- y) S& d3 ?* e& \        
  i1 z4 @- F* Y- k    Next idx
# m$ f; ?" _  c% x0 L& f    If (firstRow = -1) Then
            Debug.Print "Selected entire table!"
    End If
   
' j9 Q5 D% `  p: F* x; Z# A# ^6 O    swModel.ClearSelection2 True
3 Q( N6 }  m3 f1 J: fEnd Sub
2 d" Q* |+ G* R; r9 t

mechanic

我也是按BOM整理图纸，确实不方便。