Извлечение значения объема модели в ячейку экселя

[Narayan943]

Здравствуйте!
Пытаюсь извлечь переменную, отвечающую за объем модели из открытого файла детали с помощью VBA и вставить ее в ячейку А1 Excell.
Подключил в References Kompas6API5 и написал код, но он не работает. Я, по правде говоря, вижу, что написана в коде ахинея, просто за несколько дней поисков решения этой задачи и попыток вспомнить VBA я решил обратиться к форуму. VBA просто мне ближе всего, его в университете я изучал, и инсталляции не требует. Delphi или C++ или Phyton мне чужды, и ради единоразового решения этой задачи будет нерационально их мне изучать.
Помогите мне просто, выручите, по-человечески.

Sub volume()
Set Kompas = GetObject(, "Kompas.Application.5")
Kompas.Visible = True
Set doc3d = Kompas.ActiveDocument3D
doc3d.MassInertiaParam.v

Application.Workbooks ("Êíèãà 1")
.Worksheets("Ëèñò1").Range ("Al")
Paste (v)

End Sub

[Sabahs]

У ksDocument3D нет свойства MassInertiaParam, поэтому нужно получить  ksPart - интерфейс детали  от ksDocument3D.GetPart(pTop_Part), у которого есть метод ksPart.CalcMassInertiaProperties(ST_MIX_KG) определения массово-центровочных характеристик, он вернёт ksMassInertiaParam - интерфейс параметров расчета массово-центровочных характеристик, где найдёте объём, свойство V.
http://forum.ascon.ru/index.php/topic,7234.msg37402.html#msg37402