CATIA二次开发：获取交点坐标及保留历史操作诉求

问题说明 #

• Pad与Line相交产生两个交点，需获取交点坐标或标识，用于在两点间创建连线
• Line位置变更后，新生成的交点与分割结果会覆盖原有操作，需要保留历史操作记录，同时能基于新结果继续建模

核心解决思路 #

• 历史记录保留：每次生成交点/分割特征时，创建新的几何集（Hybrid Body）存储当前结果，避免覆盖旧特征
• 交点坐标提取：通过CATIA API从HybridShapeIntersection对象中提取单个交点元素，再获取其三维坐标
• 参数化关联：所有特征基于原始Pad和Line的参考创建，确保Line位置变更时，新特征自动关联更新，旧特征仍保留在模型树中

修改后的VBA代码 #

Sub GetIntersectionPointsAndKeepHistory()
    ' 定义文档与零件对象
    Dim partDoc As PartDocument
    Set partDoc = CATIA.ActiveDocument
    Dim part As Part
    Set part = partDoc.Part
    
    ' 获取原始Pad和Line的参考
    Dim padRef As Reference
    Set padRef = part.CreateReferenceFromObject(part.FindObjectByName("Epox")) ' Pad特征
    Dim lineSketchRef As Reference
    Set lineSketchRef = part.CreateReferenceFromObject(part.Bodies.Item("X0-Line").Sketches.Item("Sketch.1")) ' Line所在草图
    
    ' 创建新几何集存储当前操作结果（避免覆盖历史）
    Dim newHybridBody As HybridBody
    Set newHybridBody = part.HybridBodies.Add()
    newHybridBody.Name = "Intersection_" & Format(Now(), "YYYYMMDD_HHMMSS") ' 用时间戳命名，区分历史
    
    ' 创建交点特征
    Dim hsFactory As HybridShapeFactory
    Set hsFactory = part.HybridShapeFactory
    Dim intersection As HybridShapeIntersection
    Set intersection = hsFactory.AddNewIntersection(lineSketchRef, padRef)
    newHybridBody.AppendHybridShape intersection
    part.Update
    
    ' 提取两个交点的坐标并输出到消息窗口
    Dim point1 As HybridShapePointOnCurve
    Dim point2 As HybridShapePointOnCurve
    Set point1 = intersection.GetItem(1)
    Set point2 = intersection.GetItem(2)
    
    Dim coords(2) As Double
    point1.GetCoordinates coords
    MsgBox "交点1坐标：X=" & coords(0) & ", Y=" & coords(1) & ", Z=" & coords(2)
    point2.GetCoordinates coords
    MsgBox "交点2坐标：X=" & coords(0) & ", Y=" & coords(1) & ", Z=" & coords(2)
    
    ' 创建分割特征并添加到新几何集
    Dim splitFeature As HybridShapeSplit
    Set splitFeature = hsFactory.AddNewHybridSplit(lineSketchRef, padRef, -1)
    newHybridBody.AppendHybridShape splitFeature
    part.Update
    
    ' 高亮显示新分割特征
    Dim sel As Selection
    Set sel = partDoc.Selection
    sel.Clear
    sel.Add splitFeature
    sel.VisProperties.SetRealColor 0, 255, 0, 0 ' 设置为绿色
End Sub

关键说明 #

• 历史保留机制：通过时间戳命名新几何集，每次运行宏都会生成独立的特征组，原有的交点、分割结果不会被覆盖
• 坐标提取：利用GetItem方法从交点特征中取出单个交点对象，再通过GetCoordinates获取三维坐标，可直接用于后续创建连线等操作
• 参数化更新：新特征始终基于原始Pad和Line的参考创建，当Line位置变更后，重新运行宏即可生成新的结果，旧结果仍保留在模型树中

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