显示工具栏宏代码

宏程序包含：窗体代码＋模块代码

窗体代码：执行不同的命令

模块代码：显示窗体，也就是UI界面

 

  1.程序运行效果：

2.程序窗体代码：

Private Sub cmdNewModel_Click()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  
  Set swApp = Application.SldWorks
  Set swModel = swApp.ActiveDoc
  ' Check to see if a document is loaded
  If swModel Is Nothing Then
    swApp.SendMsgToUser2 "请打开一个零件/装配体/工程图", swMbStop, swMbOk
    Exit Sub
  End If
   
  If 显示工具栏.Value = True Then
    swModel.SetToolbarVisibility swFeatureToolbar, True                         '特征工具栏，通常包含用于创建和编辑特征（如拉伸、旋转等）的命令
    swModel.SetToolbarVisibility swMacroToolbar, True                           '宏工具栏，用于运行宏和脚本
    swModel.SetToolbarVisibility swMainToolbar, True                            '主工具栏，包含最常用的命令和操作
    swModel.SetToolbarVisibility swSketchToolbar, True                          '草图工具栏，包含用于创建和编辑草图的命令
    swModel.SetToolbarVisibility swSketchToolsToolbar, True                     '草图工具工具栏，提供额外的草图绘制和编辑工具
    swModel.SetToolbarVisibility swStandardToolbar, True                        '标准工具栏，包含打开、保存、撤销等标准命令
    swModel.SetToolbarVisibility swStandardViewsToolbar, True                   '标准视图工具栏，包含用于切换不同视图方向的命令
    swModel.SetToolbarVisibility swViewToolbar, True                            '视图工具栏，用于控制视图显示和导航
 
 
 Else
    swModel.SetToolbarVisibility swFeatureToolbar, False
    swModel.SetToolbarVisibility swMacroToolbar, False
    swModel.SetToolbarVisibility swMainToolbar, False
    swModel.SetToolbarVisibility swSketchToolbar, False
    swModel.SetToolbarVisibility swSketchToolsToolbar, False
    swModel.SetToolbarVisibility swStandardToolbar, False
    swModel.SetToolbarVisibility swStandardViewsToolbar, False
    swModel.SetToolbarVisibility swViewToolbar, False
  End If
End Sub