Официальный форум российского программного комплекса T-FLEX PLM


Поиск  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как создать объект в T-FLEX CAD 15 api
 
Добрый день. Подскажите, пожалуйста, как создать объект в T-FLEX CAD  15.0.30.0 в Delphi. В 11 версии T-FLEX CAD работало TFLEX := CreateOLEObject('tfw32.server') , а в 15ой версии перестало работать?  
Лофтинг с помощью API
 
День добрый.
Помогите, пожалуйста, откорректировать код для получения лофтинга.

StandardWorkplane SWP = new StandardWorkplane(docTF, StandardWorkplane.StandardType.Top);
AreaProfile PR1 = new AreaProfile(docTF);
PR1.Area = ar1;
PR1.WorkSurface = SWP;
 AreaProfile PR2 = new AreaProfile(docTF);
 PR2.Area = ar2;
 PR2.WorkSurface = SWP;
 MoveRotateTransformation MRT2 = new MoveRotateTransformation(docTF);
 MRT2.Offset_Z = 40;
 PR2.VolatileTransformations.Add(MRT2);
AreaProfile PR3 = new AreaProfile(docTF);
PR3.Area = ar3;
PR3.WorkSurface = SWP;
MoveRotateTransformation MRT3 = new MoveRotateTransformation(docTF);
MRT3.Offset_Z = 80;
PR3.VolatileTransformations.Add(MRT3);
//
Loft LF = new Loft (docTF);
LF.AddProfileContour(0,PR1.Geometry.SheetContour);
LF.AddProfileContour(1,PR2.Geometry.SheetContour);
LF.AddProfileContour(2,PR3.Geometry.SheetContour);
LF.Tolerance = 0.0001;
LF.SetAutomaticCouplingPoint();
При компиляции ошибок нет, но строить не хочет: говорит, что "Ошибка во время выполнения. Заданный аргумент находится вне зоны допустимых значений":(
Изменено: Юлия П - 15.10.2012 16:40:17
Страницы: 1