如何在catia vba中获取柔性曲线的支撑点

Question

我正在尝试创建宏，可以提取柔性曲线的支撑点列表的信息。 我不知道如何继续。

Dim oDoc As Document
Set oDoc = CATIA.ActiveDocument

Dim oProds 'As item
Set oProds = oDoc.Product.Products.Item(1).ReferenceProduct.Parent.part.hybridBodies

Dim my1
Set my1 = oPro.Item(5).HybridShapes

Dim my2    
Set my2 = my1.Item(1).refernce

for i = 1 to my2.count

debug.print my2.name

next 

任何建议将不胜感激。

Answer 1

以下示例展示了如何循环样条线的控制点

Sub CATMain()

Dim oPartDoc As PartDocument
Dim oPart As Part
Dim oHybridBody As HybridBody
Dim oSpline As HybridShapeSpline
Dim i As Integer

Set oPartDoc = CATIA.ActiveDocument
Set oPart = oPartDoc.Part
Set oHybridBody = oPart.HybridBodies.Item(1)
Set oSpline = oHybridBody.HybridShapes.Item("Spline.1")

For i = 1 To oSpline.GetNbControlPoint
    Debug.Print oSpline.GetPoint(i).DisplayName
Next

End Sub