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

Автор Narayan943, 08.07.14, 23:13:11

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

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

08.07.14, 23:38:10 #1 Последнее редактирование: 09.07.14, 05:26:47 от 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