Help - Property Sets - Profile Projection Label - Projection Elevation

[Anonymous]

Hi, can any one help me to create a Formula Property Definition with VBScript that will return the Projection Elevation of a Projection Profile Label?

(Olá, alguém pode me ajudar a criar uma definição de propriedade de fórmula com VBScript que retornará a elevação de projeção de um rótulo de perfil de projeção?)

That's the way I tried to write the formula, but it didn't work:

(Foi assim que tentei escrever a fórmula, mas não funcionou:)

RESULT="--"
On ERROR RESUME NEXT
Set oApp=GetObject(,"AutoCAD.Application")
Set obj=oApp.ActiveDocument.ObjectIDToObject("[ObjectID]")
RESULT=obj.RESULT=obj.ProfileProjectionLabel.Elevation(251704694)

I left attached the images and the file in .dwt.

(Deixei em anexo as imagens e o arquivo em .dwt.)

Thanks!

(Obrigado!)