CADSoftTools

Posted: **25 Nov 2011, 00:55**

Добрый день!
Создаю новый объект класса TsgCADImage.

void __fastcall TMainForm::dxBarButton1Click(TObject *Sender)
{
     CADImage = new TsgCADImage();

     CADImage->Converter->InitializeSections();
     CADImage->CurrentLayout = CADImage->Layouts[0];
     CADImage->DrawingBox = MakeFRect(0,100,0, 100,0,0);;
     PaintBox->Picture->Graphic = CADImage;
}

После создания пустого изображения пытаюсь при помощи мыши нарисовать несколько
объектов. Ничего не выходит, поскольку метод

Code: Select all

CurPoint = PaintBox->GetDrawingCoords(X, Y, Units);

при любом положении курсора возвращает нулевую точку, что не позволяет задать параметры примитивов.
Если же при создании CADImage программно создать хотя бы одну линию, все работает нормально.

Posted: **25 Nov 2011, 16:17**

Здравствуйте.
Размеры чертежа определяются содержащимися в нём примитивами. До тех пор пока чертёж не содержит примитивов, GetDrawingCoords будет возвращать нулевой результат.

Александр.

CADSoftTools

Проблемы с GetDrawingCoords() после создания TsgCADImage

Проблемы с GetDrawingCoords() после создания TsgCADImage

Re: Проблемы с GetDrawingCoords() после создания TsgCADImage