get the scale dxfimage...

mangchy · Post by **mangchy** » 10 Nov 2005, 15:17

Hi!
using CPP Builder and CADImportVCL.
following, I get the scale part image in a point.
but the image somtimes exactly display or absent image in the TsgImage
why?

Code: Select all

    TFPoint SearchPoint;
    Extended vScale;
    double vX, vY;
    TFRect vExt;
    char DS;
    String S;

    sgPaintBox->Align = alNone;
    vExt = Img->Extents;

    vX = StrToFloat(Edit1->Text);
    vY = StrToFloat(Edit2->Text);

    SearchPoint.X = vX;
    SearchPoint.Y = vY;
    SearchPoint.Z = 0;

    vScale = StrToFloat(Edit7->Text);

    sgPaintBox->ShowPoint(SearchPoint, vScale, Img->Extents);

Post by **support** » 11 Nov 2005, 15:39

Hi!

We need some days to correct this demo. Next week right version will be available.

Sergey.

please post questions to the forum or write to support@cadsofttools.com

mangchy · Post by **mangchy** » 11 Nov 2005, 18:18

Ok! I'll wait.
but I must finish a program using CADImportVCL component until next week.. I have things to do remained much.
so, thank for your answering right.
While develop by demonstration,we decide to purchase the license this time.

<blockquote id="quote">quote:<hr height="1" noshade id="quote">Originally posted by support
 Hi!

We need some days to correct this demo. Next week right version will be available.

Sergey.

please post questions to the forum or write to support@cadsofttools.com

<hr height="1" noshade id="quote"></blockquote id="quote">

Post by **support** » 15 Nov 2005, 10:59

Hello,

This problem has been solved. Corrected CADImportVCL is available on: http://www.cadsofttools.com/download/CADImportVCL.zip

Sergey.

please post questions to the forum or write to support@cadsofttools.com

mangchy · Post by **mangchy** » 16 Nov 2005, 17:23

I download that Files and tried
but result is same .

Code: Select all

    TFPoint SearchPoint;
    Extended vScale;
    double vX, vY;
    TFRect vExt;

    sgPaintBox->Align = alNone;
    vExt = ((TsgDXFImage *)(sgPaintBox->Picture->Graphic))->Extents;

    vX = StrToFloat(edtCaptureX->Text);
    vY = StrToFloat(edtCaptureY->Text);

    SearchPoint.X = vX;
    SearchPoint.Y = vY;
    SearchPoint.Z = 0.0;

    vScale = StrToFloat(edtCaptureScale->Text);

    sgPaintBox->ShowPoint(SearchPoint, vScale, Img->Extents);

(x, y) (391, 357)
scale = 22000

As soon as open file, if do scale by 22000 times, fail
and do by 22000 times after one by 2200, success.

<blockquote id="quote">quote:<hr height="1" noshade id="quote">Originally posted by support
 Hello,

This problem has been solved. Corrected CADImportVCL is available on: http://www.cadsofttools.com/download/CADImportVCL.zip

Sergey.

please post questions to the forum or write to support@cadsofttools.com

<hr height="1" noshade id="quote"></blockquote id="quote">