SolidWorks宏开发：创建并精准定位孔特征

我正在编写一个可在简单块体上创建孔的SolidWorks宏，希望能自定义孔径及孔的位置。现有示例代码可在选中的面上创建孔，请问是否可以通过X、Y坐标定义孔的精确位置，无需手动选择面？

原示例代码：

Option Explicit

Public Sub ErstelleBohrung()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swFeat As SldWorks.Feature
    Dim swFeatMgr As SldWorks.FeatureManager
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    Set swFeatMgr = swModel.FeatureManager
    Set swFeat = swFeatMgr.HoleWizard5(swWzdCounterSink, swStandardAnsiMetric, swStandardAnsiMetricFlatHead82, "M2", swEndCondThroughAll, 0.0102, 0.010312189893273, 0, 0.0044, 1.57079632679489, 1.52189893272978E-04, 0, -1, -1, -1, -1, 1, -1, -1, -1, "", False, True, True, True, True, False)

End Sub

完全可以通过X、Y坐标精确定位孔，无需手动选择面。核心思路是：先获取目标面（比如块体的顶面），在该面上创建带精确坐标点的草图，再基于草图点调用孔向导创建孔，同时通过参数自定义孔径。

关键逻辑说明 #

• 自动获取目标面：通过模型实体遍历获取指定面，替代手动选择操作
• 坐标定位：在目标面上创建草图，添加X/Y坐标明确的点作为孔的定位基准
• 孔径自定义：直接修改孔向导的螺纹规格、尺寸参数来调整孔径

修改后的完整代码 #

Option Explicit

Public Sub ErstelleBohrungMitKoordinaten()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swFeat As SldWorks.Feature
    Dim swFeatMgr As SldWorks.FeatureManager
    Dim swSketchManager As SldWorks.SketchManager
    Dim swFace As SldWorks.Face2
    Dim swBody As SldWorks.Body2
    Dim boolstatus As Boolean
    
    ' 初始化SolidWorks应用与当前模型
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    If swModel Is Nothing Then
        MsgBox "请打开一个SolidWorks零件文件", vbExclamation
        Exit Sub
    End If
    
    Set swFeatMgr = swModel.FeatureManager
    Set swSketchManager = swModel.SketchManager
    
    ' --------------------------
    ' 自定义参数：修改以下值调整孔的位置和尺寸
    Dim holeX As Double: holeX = 0.02 ' X坐标（单位：米）
    Dim holeY As Double: holeY = 0.02 ' Y坐标（单位：米）
    Dim threadSize As String: threadSize = "M3" ' 螺纹规格（自定义孔径）
    ' --------------------------
    
    ' 获取块体的上表面（默认取第一个实体的第一个面，可根据实际调整）
    Set swBody = swModel.GetBodyByIndex(0)
    Set swFace = swBody.GetFaceByIndex(0)
    
    ' 在目标面上创建草图并添加定位点
    boolstatus = swModel.Extension.SelectByID2("", "FACE", swFace.GetCenter.X, swFace.GetCenter.Y, swFace.GetCenter.Z, False, 0, Nothing, 0)
    swSketchManager.InsertSketch True ' 激活草图
    
    ' 添加指定X/Y坐标的点
    swSketchManager.CreatePoint holeX, holeY, 0
    
    ' 退出草图编辑状态
    swSketchManager.InsertSketch True
    
    ' 调用孔向导创建沉头孔，基于草图点定位
    Set swFeat = swFeatMgr.HoleWizard5( _
        swWzdCounterSink, _
        swStandardAnsiMetric, _
        swStandardAnsiMetricFlatHead82, _
        threadSize, _
        swEndCondThroughAll, _
        0.014, ' 沉头孔直径（对应M3标准值，可自定义）
        0.0145, ' 沉头孔深度（可自定义）
        0, _
        0.006, ' 孔直径（可自定义）
        1.5707963267949, ' 沉头孔角度（90度，弧度值）
        0, _
        0, _
        -1, -1, -1, -1, _
        1, _
        -1, -1, -1, _
        "", _
        False, True, True, True, True, False)
    
    ' 提示创建结果
    If swFeat Is Nothing Then
        MsgBox "孔创建失败", vbCritical
    Else
        MsgBox "孔已成功创建在(" & holeX & ", " & holeY & ")位置", vbInformation
    End If
    
End Sub

代码细节说明 #

1. 自定义参数区：直接修改holeX、holeY调整孔的位置，修改threadSize调整孔径规格
2. 面获取逻辑：默认取模型第一个实体的第一个面，若需指定特定面，可通过特征名称遍历查找调整
3. 孔尺寸参数：HoleWizard5方法中的沉头直径、深度等参数，可根据需求或螺纹标准自行修改

内容的提问来源于stack exchange，提问作者dennisb