Я пишу код VBA для Catia V5, чтобы определить конечную точку на опорной линии.
Участок кода выглядит следующим образом:
Dim oReference1 As Reference
Dim oHybridShapeFactory As HybridShapeTypeLib.HybridShapeFactory
Dim intPoint As HybridShapePointOnCurve
Dim oCount As Double
oCount = 10
LenVal = GetLengthValue(oPart, MessRef) 'LenVal stems from a function and is equal to 654.5 (for instance) of Type Double
Dim NoOfSections As Integer
NoOfSections = LenVal / oCount
Dim i As Double
For i = 0 To NoOfSections
Set intPoint = oHybridShapeFactory.AddNewPointOnCurveFromDistance(oReference1, (i * (LenVal / NoOfSections)), False)
...
В строке Set intPoint...
есть сообщение об ошибке:
ошибка выполнения 91: переменная объекта или переменная с блоком не определена
Я копался в справочной документации. Кажется, все определено как требуется — функция AddNewPointOnCurveFromDistance принимает Reference, double и boolean как HybridShapePointOnCurve.