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]