Usar comando SET para definir uma caminho de TAG

#1

É possivel utilizar o comando SET para acessar a um grupo de TAGs?
Exemplo:

Set TAG = Application.GetObject(“UADriver1.Subscription1.[__E3_SetPoints_Real]”).PathName
TAG.(“Element1”).Value = Application.GetObject(“Dados.Parametros_Geometria.EmpenoVertical_0_50”).Value
TAG.(“Element2”).Value = Application.GetObject(“Dados.Parametros_Geometria.EmpenoVertical_50_100”).Value
TAG.(“Element3”).Value = Application.GetObject(“Dados.Parametros_Geometria.EmpenoVertical_100_150”).Value
TAG.(“Element4”).Value = Application.GetObject(“Dados.Parametros_Geometria.EmpenoVertical_150_200”).Value

#2

Sim, é possível.

Dim objTag
Dim objParams

Set objTag = Application.GetObject( _
					"UADriver1.Subscription1.[__E3_SetPoints_Real]")
Set objParams = Application.GetObject("Dados.Parametros_Geometria")

objTag.Item.("Element1").Value = objParams.Item("EmpenoVertical_0_50").Value
objTag.Item.("Element2").Value = objParams.Item("EmpenoVertical_50_100").Value
# ' ...
1 Like
#3

@leandrobpedro, obrigado! Vou testar.