Aveva. Координаты центра масс программно. Сроч

Dim cofgArr As String() = CurrentElement.Element.GetAsString(DbAttributeInstance.NCOF).Split(" ")


               Xcof = [Double].Parse(String.Format("{0:0.##}", [Double].Parse(cofgArr(1).Substring(0, cofgArr(1).IndexOf("m")).Replace(".", ",")) / 1000.0))
               Ycof = [Double].Parse(String.Format("{0:0.##}", [Double].Parse(cofgArr(3).Substring(0, cofgArr(3).IndexOf("m")).Replace(".", ",")) / 1000.0))
               Zcof = [Double].Parse(String.Format("{0:0.##}", [Double].Parse(cofgArr(5).Substring(0, cofgArr(5).IndexOf("m")).Replace(".", ",")) / 1000.0))
Получаю координаты центра масс элемента относительно  World (/*).  

Вопрос: как получить координаты центра масс относительно  SITE  /111  в программе? Как добавить поле  CofG WRT как параметр?  Как это делать при помощи утилиты в OUTFITTINGe понятно. Очень срочно. Всем спасибо.

In C# we have such code, maybe you are able to rewrite to VB:

[COLOR=#333333]DbQualifier q= new DbQualifier();[/COLOR]
[COLOR=#333333]q.wrtQualifier = DbElement.GetElement("/*");[/COLOR]
[COLOR=#333333]Position pos = CE.GetPosition([/COLOR][COLOR=#417394]DbAttributeInstance[/COLOR][COLOR=#333333].POS, q);[/COLOR]

Огромное спасибо.