Добрый день. Подскажите, пожалуйста, как создать объект в T-FLEX CAD 15.0.30.0 в Delphi. В 11 версии T-FLEX CAD работало TFLEX := CreateOLEObject('tfw32.server') , а в 15ой версии перестало работать?
15.10.2012 16:34:36
День добрый.
Помогите, пожалуйста, откорректировать код для получения лофтинга. 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(); При компиляции ошибок нет, но строить не хочет: говорит, что "Ошибка во время выполнения. Заданный аргумент находится вне зоны допустимых значений":(
Изменено: |
|
|