CADSoftTools

Can you send me example of AddScaledDXFEx using with TsgDXFInsert?

I am trying to change XRef file added by AddScaledDXFEx
If I can do that, I can move it by mouse. (using OnMouseDown,OnMouseMove v.s)

I try to change Point to Move Layer... procedure TForm1.Button13Click(Sender: TObject); var k,i : integer; vImg: TsgDXFImage; vGlobalCADFile : TsgDXFImage; vEnt: TsgDXFEntity; vCADFiles: array [0..20] of TObject; FsgPaintBox: TsgDrawingNavigator; PointBreak : TPoint; P1,p2 : TPoint; vLine : TsgDXFPo...

But I use

var
sgPaintBox: TsgDrawingNavigator;

So I try

TsgDXFImage(sgPaintBox.Picture.Graphic).GetExtents;

But again nothing changed?

Now I can find my file with that code : TsgDXFInsert(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[1]).Point := MakeFPoint(100,100,0); But nothing changes on sgPaintBox; I try sgPaintBox.Refresh Repaint Update .But nothing changed. If I can change point with this co...

When I use Like that
I Get MEssage "ERROR ACCESS VIOLATION"
I am asking why am I get message???

Yes?

TsgDXFImage(vCADFiles[k]) is not nil. I did not send full code. I put ... ... vGlobalCADFile.AddScaledDXFex( TsgDXFImage(vCADFiles[k]), // TsgDXFImage object for inserting 'xx', // Name vPt, // Position in ACAD coords MakeFPoint(1, 1, 1), // Scale factor 0.0); // Rotation angle (degrees) work well w...

I want to use TsgDXFInsert which you suggest. But I ask you to erro "Access Violation". Is It wrong? DXFInsert := vGlobalCADFile.AddScaledDXFex( TsgDXFImage(vCADFiles[k]), // TsgDXFImage object for inserting 'xx', // Name vPt, // Position in ACAD coords MakeFPoint(1, 1, 1), // Scale factor 0.0); // ...

var .... .... .... DXFInsert : TsgDXFInsert; begin ..... ..... DXFInsert := vGlobalCADFile.AddScaledDXFex( TsgDXFImage(vCADFiles[k]), // TsgDXFImage object for inserting 'xx', // Name vPt, // Position in ACAD coords MakeFPoint(1, 1, 1), // Scale factor 0.0); // Rotation angle (degrees) -------------...

Can we move objects with mouse which added by procedure AddScaledDXF?

They send me new colored file.
I try your code but can not find point.
When I zoom cgm file by Cad Import Vcl, it looks like something wrong.
They use Catia.

I send you cgm file and zooming pic. with email.

I think that It would be AutoCad file but not.
I will use cgm file for this operations which they send me.
You can look these files.
And Cad Import supports cgm files, am I right?

Yes, I know.
I will say them to put these points.
Can you send me example to find that colored points?

But I dont know which cad editor they use but I make program for this file format.
Just I need to find points from these files.
Now I think that they can put colored points for finding.
For Example Can Ifind blue, green ext. points from file?