SOLIDWORKS宏为所有配置和创建图纸更新BOM

你曾经有一个和数十或数百或数千个配置部分吗?你负责创建一个图每一个的和正确的BOM配置吗?

不再害怕!我们有SOLIDWORKS宏,所有你要做的就是…改变两行,点击一个按钮,坐下来,放松,SOLIDWORKS自动生成的文件。

让我们开始吧。

1. 创建一个新的宏
   • 使用新的宏在宏观工具栏按钮(或选择工具>宏>新)
2. 确保引用在编辑器SOLIDWORKS Visual Basic (VBA)与SOLIDWORKS版本是正确的
3. 复制下面的代码和改变强调橙色文本以匹配您的环境:
4. 保存的代码
5. 运行

先决条件:确保你在图纸上运行下面的代码包含一个模型,其中包含多个配置。

结果:在您选择的OUTPUT_FOLDER,您应该看到图文件为每个配置更新BOM

Const OUTPUT_FOLDER = " C: \ \ "昏暗的swApp SldWorks。SldWorks昏暗swModel SldWorks。ModelDoc2昏暗swDraw SldWorks。DrawingDoc昏暗swRefModel SldWorks。ModelDoc2子main()的我作为整数模糊vConfs SldWorks一样昏暗swView变体。认为暗confName字符串设置swApp =应用程序。SldWorks swModel = swApp设置。ActiveDoc swDraw = swModel集合swView = swDraw.GetFirstView ()。GetNextView swRefModel = swView设置。ReferencedDocument vConfs = swRefModel。GetConfigurationNames我= 0 UBound (vConfs) confName = vConfs (i) ProcessViews confName swModel。ForceRebuild3假boolstatus = swModel.Extension.SaveAs (OUTPUT_FOLDER+ confName +“.slddrw”,swSaveAsVersion_e。swSaveAsCurrentVersion swSaveAsOptions_e。swSaveAsOptions_Copy,没什么,0,0)接下来我对话框“完成”设置swApp =没有设置swModel =没有设置swDraw =没有设置swRefModel =没有结束子子ProcessViews (confName字符串)暗我尽可能整数昏暗vSheets变体昏暗的j整数昏暗vViews SldWorks一样昏暗swFeat变体。昏暗的swView SldWorks的特性。视图vSheets = swDraw。getview我= 0 UBound (vSheets) vViews = vSheets (i)为j = 0 UBound (vViews)设置swView = vViews swView (j)。ReferencedConfiguration = confName下j '删除BOM设置swFeat = swDraw。FirstFeature调试。打印swFeat。名称+“-”+ swFeat。GetTypeName虽然不是swFeat调试。打印swFeat。名称+“-”+ swFeat。如果“BomFeat”= swFeat GetTypeName。GetTypeName然后swFeat。swDraw.Extension Select2假,1。DeleteSelection2 swDeleteSelectionOptions_e。swDelete_Absorbed End If Set swFeat = swFeat.GetNextFeature Wend boolstatus = swModel.Extension.SelectByID2(swView.Name, "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) AnchorType = swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopLeft BomType = swBomType_e.swBomType_PartsOnly Configuration = confName TableTemplate = "" ' Insert BOM table Set swBomAnn = swView.InsertBomTable2(True, 0.4, 0.3, AnchorType, BomType, Configuration, TableTemplate) swModel.ClearSelection2 True ' Update FeatureManager design tree swDraw.ForceRebuild Next i Set swFeat = Nothing Set swView = Nothing End Sub

请注意:这个API的例子一样,应该使用提供参考。你可能在您的环境中使用它,改变它,或分发,但是标枪不负责任何类型的损害赔偿(包括但不限于赔偿损失的使用,数据,利润,或业务)引起的使用这些华体会视频直播信息,应用程序或服务。

了解更多关于SOLIDWORKS宏/ API

华体会视频直播标枪提供SOLIDWORKS VB应用程序和SOLIDWORKS API培训课程,您可以在线直播,或者在我们的一个加拿大的教室。检查日程,了解更多信息。