第4章自动化零件设计

学习目标

● 设计关于创建零件的宏

● 自动添加草图实体

● 添加尺寸标注到草图实体

● 自动创建拉伸、旋转等特征

● 了解如何通过API启用轮廓选择

Untitled

4.1 实例学习：自动化零件创建工具

自动创建零件的宏用来展示创建零件时的不同API调用。它自动进行用户参数选择、草图创建、尺寸标注、轮廓选择和特征创建。

该宏具有一个包含多个选项卡的窗体。每个选项卡都允许用户选择选项进行设置，如图4-1所示。

Untitled

● Material（材质）：铝合金或者黄铜。

● Profile（轮廓）：矩形或者圆形。

● Machine operation（机器操作）：拉伸、带轮廓选择的拉伸或者旋转。

操作步骤

步骤1 编辑宏打开宏PartAutomation.swp。

步骤2 保存数值到数据库并设置单位双击【Build Part】按钮并输入以下代码行：

4.1 实例学习：自动化零件创建工具-1

Dim swApp As SldWorks.SldWorks
Private Sub cmdBuild_Click()
  Set swApp = Application.SldWorks
  ' Get the file path of the default part template
  Dim PartTemplate As String
  PartTemplate = swApp.GetUserPreferenceStringValue( _
    swUserPreferenceStringValue_e.swDefaultTemplatePart)
  Set swModel = swApp.NewDocument( _
    PartTemplate, 0, 0#, 0#)
  swModel.SketchManager.AddToDB = True
  swModel.Extension.SetUserPreferenceInteger swUnitsLinear, _
    swDetailingNoOptionSpecified, swMM
	swModel.SketchManager.AddToDB = False
End Sub

<aside> 🦕 提示:使用SketchManager：：AddToDB添加草图实体，可以同时消除网格和实体捕捉。当调用API添加草图实体时，该属性可以提高系统性能。通过将AddToDB设置为True可以打开此属性。当绘制草图的API结束后，将其设置为False以关闭属性。

</aside>