CATIA VBA 测量用户选择的线/样条

Question

我正在尝试获取用户选择的线/样条线的长度

这是我用来让用户选择他们的行的代码：

Dim USel As Selection
Dim USelLB
Dim InputObject(0)

InputObject(0) = "AnyObject"
Set USel = CATIA.ActiveDocument.Selection
Set USelLB = USel

USel.Clear
USelLB.Clear

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

Linestomeasure 是一个 public 变量，在 mainsub 中我一直在尝试使用以下代码测量 Linestomeasure：

Dim pd1 As PartDocument
Dim a As Object
Dim c As Reference

a = TrimLines.Item(1)
c = pd1.Part.CreateReferenceFromObject(a)

Dim Mea1 As Measurable
Dim TheSPAWorkbench As SPAWorkbench
Set TheSPAWorkbench = pd1.GetWorkbench("SPAWorkbench")
Set Mea1 = TheSPAWorkbench.GetMeasurable(c)

但当我运行代码时，a = trimLines.Item(1) 在调试器中突出显示，并显示错误消息“需要对象”。

有没有人知道如何更改我的代码，以便我可以将行的长度作为我可以使用的变量来获取？或者只是一种不同的方式来完成我想要做的事情？

Answer 1

编辑答案以反映下面的评论

您似乎为 USelLB.SelectElement3 分配了错误类型的变量，并且还误解了它的实际工作原理。

Selection.SelectElement3 返回一个反映选择是否成功的String。

从Selection 检索到的Object 在Selection.Item(Index) 内部

你的代码应该是这样的：

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

请记住，使用AnyObject 类型过滤器可能会导致用户选择不需要的对象。您应该使用更具体的过滤器。