如何用VBScript宏勾选CATIA构造几何创建的Point复选框

核心实现思路 #

CATIA没有像Excel那样直接操作复选框的轻量化对象模型，但可以通过两种可靠方式实现自动勾选，同时优化单圆的自动选中逻辑：

1. 模拟键盘操作（快速落地） #

通过SendKeys模拟键盘输入，适合布局固定的对话框：

Sub CreateCenterPoint_SendKeys()
    Dim partDoc As PartDocument
    Set partDoc = CATIA.ActiveDocument
    
    ' 自动选中目标圆（示例：按名称定位）
    Dim selection As Selection
    Set selection = partDoc.Selection
    selection.Clear
    selection.Add partDoc.Part.FindObjectByName("Circle.1")
    
    ' 启动构造几何创建命令
    CATIA.StartCommand "Constructed Geometry Creation"
    
    ' 等待对话框加载（根据实际情况调整延迟）
    CATIA.SystemService.Wait 500
    
    ' Tab切换到Point复选框，空格勾选（若Tab次数不对，自行调整）
    SendKeys "{Tab}"
    SendKeys " "
End Sub

注意：该方法依赖对话框控件顺序，CATIA版本或布局变化时需微调Tab次数，运行时确保CATIA窗口处于前台。

2. 调用CATIA命令参数API（更稳定） #

通过CATIA的Command和Argument对象直接控制选项，避免模拟操作的不稳定：

Sub CreateCenterPoint_API()
    Dim partDoc As PartDocument
    Set partDoc = CATIA.ActiveDocument
    Dim part As Part
    Set part = partDoc.Part
    
    ' 自动选中单个圆
    Dim selection As Selection
    Set selection = partDoc.Selection
    selection.Clear
    Dim targetCircle As HybridShapeCircle
    Set targetCircle = part.FindObjectByName("Circle.1")
    selection.Add targetCircle
    
    ' 获取目标命令
    Dim cmd As Command
    Set cmd = CATIA.Commands.Item("Constructed Geometry Creation")
    
    If cmd.Available Then
        ' 遍历命令参数，设置Point选项为勾选状态
        Dim arg As Argument
        For Each arg In cmd.Arguments
            ' 参数名称需根据CATIA版本核对，可通过宏录制或遍历输出确认
            If arg.Name = "Point" Then
                arg.Value = True
                Exit For
            End If
        Next
        cmd.Execute
    End If
End Sub

提示：要确认参数准确名称，可临时添加MsgBox(arg.Name)遍历输出所有参数，或录制勾选操作查看宏代码中的参数名。

单圆自动选中优化 #

无需手动选圆，可通过遍历几何集自动定位目标圆：

Sub AutoSelectFirstCircle()
    Dim partDoc As PartDocument
    Set partDoc = CATIA.ActiveDocument
    Dim part As Part
    Set part = partDoc.Part
    
    ' 指定要遍历的几何集
    Dim geoSet As HybridBody
    Set geoSet = part.HybridBodies.Item("Geometrical Set.1")
    
    ' 遍历找到第一个圆
    Dim shape As HybridShape
    For Each shape In geoSet.HybridShapes
        If TypeName(shape) = "HybridShapeCircle" Then
            Dim selection As Selection
            Set selection = partDoc.Selection
            selection.Clear
            selection.Add shape
            Exit For
        End If
    Next
End Sub

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