Function or interface marked as restricted......

[mika66]

"Function or interface marked as restricted, or it uses an automation type not supported by Visual Basic" - столкнулся с таким сообщением. Подскажите, как с этим бороться.

[er_admin]

КОД???

[mika66]

Dim dblRunPoints(9) As Double
Dim dblMathDirection(3) As Double
Dim objArrRun As ArrangementRun
Dim objMove As INFITF.Move

dblRunPoints(0) = 200
dblRunPoints(1) = 100
dblRunPoints(2) = 0

dblRunPoints(3) = 341.42
dblRunPoints(4) = 150.58
dblRunPoints(5) = 1.25

dblRunPoints(6) = 400
dblRunPoints(7) = 200
dblRunPoints(8) = 2.5

dblMathDirection(0) = 1
dblMathDirection(1) = 0
dblMathDirection(2) = 0

Set objArrRun = objArrProd.ArrangementRuns.AddRun(objMove, dblRunPoints, dblMathDirection)

Ругается на AddRun - но скорее всего непонятки из-за objMove.

Этот же код ВЫПОЛНЯЕТСЯ в вмде макроса, если его загрузить из-под CATIA.

[hCORe]

Код: Выделить всё

Функция или интерфейс помечены как закрытые или используют протокол автоматизации не поддерживаемый Visual Basic

Это значит, мой друг , что VB не поддерживает тип параметра функции, либо тип возвращаемого значения функции (обычно какой-то извращенный Variant), либо интерфейс "закрытый", с доступом только из "своего" приложения. Скорее всего, последнее

[mika66]

Можно ли это обойти? Или заняться изучением Си?

to hCORE - буквально недавно ты хвалился, что подобную проблему решил - НЕУЖЕЛИ ЭТО БЫЛА ШУТКА?