Передача переменной из подсистемы в подсистему

[Mr_Gray 4]

Как можно передать переменную, определенную в одной подсистеме, в другую, не объявляя ее глобальной? Возможно такое?

Суть задачи: в подпрограмме в подсистеме 1 определяется значение переменной, которое затем нужно выполнить в подсистеме 2.

[mr_Voden 169]

@Mr_Gray Не очень понятно, но...поглядите SetLocalVarAccessType

[Mr_Gray 4]

Видимо, не совсем то. По умолчанию у нее значение 0, т.е. все переменные должны быть видимы во вложенных подпрограммах.

Ситуация несколько другая: есть цикл, в котором одним из параметров задается величина перемещения, цикл естественно вызывается в подсистеме 1. Внутри цикла необходимо активировать подсистему 2 и в ней выполнить это перемещение. Верикут говорит, что переменная не определена, т.к. она определена в подсистеме 1.

[mr_Voden 169]

@Mr_Gray Мне, вроде бы, удалось воспроизвести вашу проблему. Да, дело не в этом. Скорее всего без "глобализации" переменной не обойтись.

Возможно смогу какой-то костыль придумать, но надо конкретный проект смотреть.

Например, если переключение в другую подсистему идет по команде, то можно в тот же момент считывать значения переменных в заданном диапазоне имен и после переключения подсистемы объявлять их в новой.

[Mr_Gray 4]

Вот так выглядит цикл:

PROC BSEN_PARA(Real STRINGER_EDGE_DISTANCE, Real DRILL_APPROACH, Real EDGE_OFFSET)
    CGTECH_MACRO "SetSubsystemID" "Drill_Head"
    G0 Z=DRILL_APPROACH
    CGTECH_MACRO "RestoreSetSubsystemID"
    Y=IC(50*cos($AA_IW[3])) Z=IC(50*sin($AA_IW[3]))
M17

[mr_Voden 169]

@Mr_Gray Ок, вечером попробую написать макрос.

[mr_Voden 169]

@Mr_Gray Получилось два макроса)

 

Скрытый текст

PROC BSEN_PARA(Real STRINGER_EDGE_DISTANCE, Real DRILL_APPROACH, Real EDGE_OFFSET)

    ;в текущей подсистеме получаем имена переменных и их значения для переноса в другую подсистему. сделал только для переменных REAL, пока что.

    CGTECH_MACRO "mrVoden_TransLocalVarBetweenSubsystems_PRT1" "DRILL_APPROACH" 0
    CGTECH_MACRO "mrVoden_TransLocalVarBetweenSubsystems_PRT1" "EDGE_OFFSET" 0
    CGTECH_MACRO "mrVoden_TransLocalVarBetweenSubsystems_PRT1" "STRINGER_EDGE_DISTANCE" 0

    ;сменили подсистему

    CGTECH_MACRO "ChangeSubsystemID" "Drill_Head" 1

    ;создали локальные копии переменных в новой подсистеме. при значении 1 вектор с переменными сбрасывается.

    ;если переменная  в новой подсистеме уже существует, то ее значение будет обновлено.

    CGTECH_MACRO "mrVoden_TransLocalVarBetweenSubsystems_PRT2" "" 1

    G0 Z=DRILL_APPROACH

    ;сменили подсистему обратно

    CGTECH_MACRO "ChangeSubsystemID" "1" 1

M17

Для запуска может потребоваться vcredist последней версии

Скрытый текст

https://learn.microsoft.com/ru-RU/cpp/windows/latest-supported-vc-redist?view=msvc-170

 

mrVoden_ext.dll

[Mr_Gray 4]

Большое спасибо!

[mr_Voden 169]

@Mr_Gray пробуйте, если что не так - поправлю.

[Mr_Gray 4]

Дико извиняюсь - так и не понял, как прикрутить dll

[mr_Voden 169]

@Mr_Gray Расширенные опции чпу -> CME\API

[Mr_Gray 4]

Спасибо, заработало! Так и делал, но почему-то с первого раза он отказался грузить ее. После перезагрузки все заработало.