CATIA工程图长圆孔轴线VBA宏开发：如何区分选中的圆与直线？

阿华AIGC实验室

2026-5-15

解决CATIA VBA宏中区分选中圆与直线的问题

你的问题核心在于直接将Selection对象与字符串"circle"做比较——CATIA的Selection.Item返回的是一个Selection对象，并非字符串类型，所以这种判断方式完全无效。我们需要获取选中对象的底层图形类型来区分圆和直线，下面是具体的解决思路和修正后的完整代码：

核心思路：识别选中对象的实际类型

CATIA工程图里，圆对应的是DrawingCircle对象，直线对应的是DrawingLine对象。我们可以通过Selection.Item(x).Value获取选中的图形实体，再用TypeOf运算符来判断其具体类型，从而准确分类圆和直线。

修正后的完整宏代码

Sub CATMain()
    Dim drawingDoc As DrawingDocument
    Set drawingDoc = CATIA.ActiveDocument
    
    Dim sel As Selection
    Set sel = drawingDoc.Selection
    
    ' 先校验选中对象数量是否符合要求
    If sel.Count <> 4 Then
        MsgBox "请准确选中2个圆和2条直线！", vbExclamation
        Exit Sub
    End If
    
    ' 定义变量存储圆和直线对象
    Dim circle1 As DrawingCircle, circle2 As DrawingCircle
    Dim line1 As DrawingLine, line2 As DrawingLine
    
    ' 遍历选中对象，分类存储
    Dim i As Integer
    For i = 1 To sel.Count
        Dim currentObj As Object
        Set currentObj = sel.Item(i).Value
        
        ' 判断对象类型并赋值
        If TypeOf currentObj Is DrawingCircle Then
            If circle1 Is Nothing Then
                Set circle1 = currentObj
            Else
                Set circle2 = currentObj
            End If
        ElseIf TypeOf currentObj Is DrawingLine Then
            If line1 Is Nothing Then
                Set line1 = currentObj
            Else
                Set line2 = currentObj
            End If
        Else
            MsgBox "第" & i & "个选中对象不是圆或直线，请重新选择！", vbExclamation
            Exit Sub
        End If
    Next i
    
    ' 校验是否成功获取到2个圆和2条直线
    If circle1 Is Nothing Or circle2 Is Nothing Or line1 Is Nothing Or line2 Is Nothing Then
        MsgBox "未选中足够的圆或直线，请检查选择内容！", vbExclamation
        Exit Sub
    End If
    
    ' 创建第一条轴线：关联第一个圆和两条直线
    sel.Clear
    sel.Add circle1
    sel.Add line1
    sel.Add line2
    CATIA.StartCommand "Axis Line"
    
    ' 创建第二条轴线：关联第二个圆和两条直线
    sel.Clear
    sel.Add circle2
    sel.Add line1
    sel.Add line2
    CATIA.StartCommand "Axis Line"
    
    ' 清理选择集
    sel.Clear
End Sub

关键代码细节说明

类型判断：TypeOf currentObj Is DrawingCircle是CATIA VBA中判断图形类型最严谨的方式，避免了字符串匹配可能出现的误差。
对象存储：将圆和直线存储为对应的DrawingCircle、DrawingLine类型变量，而非Selection类型，后续添加到选择集时更稳定可靠。
容错检查：添加了选中数量、对象类型、必要对象是否存在的多重校验，避免宏因错误输入崩溃。
轴线创建逻辑：每次创建轴线前清空选择集，确保只添加当前需要的圆和直线，避免命令执行混乱。