SW 工程图 BOM表右键菜单

caption_cn · 发表于 2014-10-30 14:46:10

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

SW 工程图界面
里在BOM列表里点击鼠标右键
有打开相应零件的的选择
为啥一直没有打开工程图的选择？

有办法加上么？

我一直习惯看着BOM表整理图纸
总是需要先打开模型再打开模型工程图，觉得麻烦啊。
无标题.jpg

machine134 · 发表于 2014-10-30 22:21:05

楼主自己开发一个吧，

大鹿 · 发表于 2014-10-30 23:35:02

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

caption_cn · 发表于 2014-11-2 11:49:30

搞定个简单版。
需要做成宏的按钮来用才会比较方便。
功能：打开BOM表里所选单元格对应的模型的工程图，如果没有工程图不做任何提示。
特点：支持多选！选几个打开几个！
BUG：不能选行！只可以选单元格，不限制单元格里选那一列。
不足：暂时不支持配置。

Dim swApp As SldWorks.SldWorks
Sub main()
Dim swModel          As SldWorks.ModelDoc2
Dim swSelectionMgr    As SldWorks.SelectionMgr
Dim swDrawing          As SldWorks.DrawingDoc
Dim swAnnotation       As SldWorks.Annotation
Dim swTableAnnotation As SldWorks.TableAnnotation
Dim firstRow          As Long
Dim lastRow          As Long
Dim firstColumn       As Long
Dim lastColumn       As Long
Dim idx                As Long
Dim vModelPathName             As Variant
Dim vModelPathNames             As Variant
Dim strItemNumber                As String
Dim strPartNumber                As String
Dim ModelName                   As String
Dim DocName                   As String

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelectionMgr = swModel.SelectionManager
Set swDrawing = swModel

For idx = 1 To swSelectionMgr.GetSelectedObjectCount2(-1)
      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"

      'Debug.Print "First selected cell's row    = " & firstRow
      'Debug.Print "Last selected cell's row    = " & lastRow
      'Debug.Print "First selected cell's column  = " & firstColumn
      'Debug.Print "Last selected cell's column = " & lastColumn
      'Debug.Print ""
      'Debug.Print "First selected cell's row    = " & firstRow, strItemNumber, strPartNumber
      'Debug.Print "First selected cell's row    = " & ModelName
      'Debug.Print "First selected cell's row    = " & DocName
'---------------------------------------------------------------
Dim swApp1    As SldWorks.SldWorks
Dim doc1       As SldWorks.ModelDoc2
Dim fileerror As Long
Dim filewarning As Long

Set swApp1 = Application.SldWorks
swApp1.Visible = True
Set doc1 = swApp.OpenDoc6(DocName, swDocDRAWING, swOpenDocOptions_LoadModel, "", fileerror, filewarning)

'---------------------------------------------------------------



Next idx
If (firstRow = -1) Then
         Debug.Print "Selected entire table!"
End If

swModel.ClearSelection2 True
End Sub

mechanic · 发表于 2014-11-7 23:49:43

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

		自动登录	找回密码
密码			注册

通知

[讨论] SW 工程图 BOM表右键菜单

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块

通知

[讨论] SW 工程图 BOM表 右键 菜单

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块

[讨论] SW 工程图 BOM表右键菜单