CATIA VBA利用选中line/spline进行测量

以下是使用 selectelement3 和 SpaWorkbench 实现的代码片段：

```vba

Dim PD1 As PartDocument

Dim Sel 'as Selection ''Sometimes it is needed to comment the selection to use the .SelectElement3 method'

Dim InputObjType(0)

Dim SelectionResult As String

Dim LineToMeasure As AnyObject

Dim I As Integer

Dim SpaWorkbench As SPAWorkbench

Dim Measurable As Measurable

InputObjType(0) = "AnyObject"

'set PD1 = Catia.ActiveDocument'

Set Sel = PD1.Selection

Set TheSPAWorkbench = PD1.GetWorkbench("SPAWorkbench")

Sel.Clear

SelectionResult = Sel.SelectElement3(InputObject, "Select objects to list names", True, CATMultiSelTriggWhenUserValidatesSelection, False)

If SelectionResult = "Ok" Or SelectionResult = "Normal" Then 'Check if user did not cancel the Selection'

   For I = 1 To Selection.Count

       Set LineToMeasure = Sel.Item(I).Value

       Set Measurable = SpaWorkbench.GetMeasurable(LineToMeasure)

       'Measure whatever you need here.'

   Next

End If

```

以下是使用参数和公式，并配合 Query 和 length 函数的片段：

```vba

Dim totalLength As Double

'如果所测元素全部在一个几何集("cableway_curves" )，可以创建一个totalLength 的参数，并使用如下公式：'

totalLength = length(cableway_curves->Query("Curve",""))

'否则，可以使用如下公式(假设几何集名称为cableway.1, cableway.2 ... ):'

totalLength = length(myPart->Query("Curve","x.Name->Search(\"cableway.\")==0"))

'以下写法可以作为参考： Query("Curve","x->IsSupporting(\"GSMDirection\")==false")" ，避免查重，要求意思一样'

```

希望这样改写符合您的需要。