学习目标

● 使用API改变系统选项和文档属性

● 定位并设置SOLIDWORKS选项对话框内的复选框、文本框、列表框、单选按钮和滑动条

3.1 用户参数选择——系统选项

要使用程序自动更改SOLIDWORKS的系统选项，必须调用特定的用户参数选择方法（user preference methods）。这些方法允许程序更改在【工具】/【选项】对话框和一些菜单项中的个性化设置。这些方法是：

● SldWorks：：SetUserPreferenceToggle

● SldWorks：：SetUserPreferenceIntegerValue

● SldWorks：：SetUserPreferenceDoubleValue

● SldWorks：：SetUserPreferenceStringValue

<aside> 🦕 提示:上面列出的每个方法都有一个对应的Get方法。用GetUserPreference替换SetUserPreference可以获取当前的系统选项。

</aside>

3.1.1 设置复选框

调用SldWorks：：SetUserPreferenceToggle方法以打开和关闭SOLIDWORKS选项对话框中的复选框，见表3-1。

操作步骤

步骤1 新建宏 单击宏工具栏上的【新建宏】，命名宏为SystemOptions.swp。

步骤2 早绑定至SOLIDWORKS 编辑以下代码以实现早绑定：

步骤3 添加代码，改变开关值 自动设置【系统选项】选项卡内【普通】中的前两个复选框。

3.1 用户参数选择-系统选项

Dim swApp As SldWorks.SldWorks
Sub main()
  Set swApp = Application.SldWorks
  swApp.SetUserPreferenceToggle swInputDimValOnCreate, True
  swApp.SetUserPreferenceToggle swSingleCommandPerPick, True
End Sub

步骤4 保存并运行宏 测试复选框是否被选中，结束后返回VBA。