设置系统选项和文档属性：输入尺寸值与每选择一个命名仅一次有效宏命令

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

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

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

 1.程序运行效果：

2.程序窗体代码：

Private Sub 确定_Click()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

  If 输入尺寸值.Value = True Then
   swApp.SetUserPreferenceToggle swInputDimValOnCreate, True '输入尺寸值 开
  Else
   swApp.SetUserPreferenceToggle swInputDimValOnCreate, False
End If

If 每选择一个命名仅一次有效.Value = True Then
swApp.SetUserPreferenceToggle swSingleCommandPerPick, True '每选择一个命名仅一次有效 开
Else
swApp.SetUserPreferenceToggle swSingleCommandPerPick, False
End If

End Sub