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

[andrey-k]

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

Code: Select all

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 программно создать хотя бы одну линию, все работает нормально.

[support]

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

Александр.