Moving Objects

[support]

Can you please give the whole code? It is definitely hard to make conjectures of what exactly is being done on your side.

Sergey.

[DarkEternal]

I try to change Point to Move Layer...

Code: Select all

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 : TsgDXFPolyline;
  vPoint : TsgDXFPoint;
  vPt: TFPoint;
  vUnits: string;
  DXFInsert : TsgDXFInsert;
begin
  vGlobalCADFile := TsgDXFImage.Create;
  vGlobalCADFile.Converter.InitializeSections;
  vPt.X := 0;
  vPt.Y := 0;

  for k := 0 to high(newparts) do
  begin
    //showmessage(Parts[i].Path)
    vImg := TsgDXFImage.Create;
    vCADFiles[k] := TsgDWGImage.Create;
    //TsgDXFImage(vCADFiles[k]).LoadFromFile(Parts[k].Path);
    FsgPaintBox := TsgDrawingNavigator.create(self);
    FsgPaintBox.parent := Panel1;




     FsgPaintBox.LoadFromFile(newParts[k].Path);


     {vImg.AddScaledDXF(
      TsgDXFImage(FsgPaintBox.Picture.Graphic),                 // TsgDXFImage object for inserting
      'xx'+inttostr(k), // Name
      MakeFPoint(0.0, 0.0, 0.0),    // Position in ACAD coords
      MakeFPoint(1, 1, 1),                       // Scale factor
      0.0);                         // Rotation angle (degrees)
        }

     //FsgPaintBox.Picture.Graphic := vImg;




    FsgPaintBox.SnapControl.SnapMode := osAll;
    TsgDXFImage(vCADFiles[k]) := TsgDXFImage(FsgPaintBox.Picture.Graphic);


      vGlobalCADFile.AddScaledDXF(
      TsgDXFImage(vCADFiles[k]),                 // TsgDXFImage object for inserting
      'xx'+inttostr(k), // Name
      MakeFPoint(NewParts[k].OrjinPoint.X, NewParts[k].OrjinPoint.Y, 0.0),    // Position in ACAD coords
      MakeFPoint(1, 1, 1),                       // Scale factor
      0.0);                         // Rotation angle (degrees)


  end;

  vGlobalCADFile.GetExtents;
  sgPaintBox.Picture.Graphic := vGlobalCADFile;
  //EnableScales;
  //sb3DOrbit.Enabled := True;
  //sb3DOrbit.Down := False;
  //vGlobalCADFile.Free;

  sgPaintBox.SnapControl.SnapMode := osAll;
end;


procedure TForm1.Button14Click(Sender: TObject);
var
i:integer;
vPoint : TFPoint;
begin              //showmessage(Inttostr(TsgDXFImage(sgPaintBox.Picture.Graphic).CurrentLayout.Converter.Counts[csEntities])); exit;

  //ShowMessage(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[1].ClassName);

  for I := 0 to TsgDXFImage(sgPaintBox.Picture.Graphic).CurrentLayout.Converter.Counts[csEntities] - 1 do
  begin
  //showmessage( floattostr( TsgDXFInsert(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[I]).Point.X ));
  vPoint.X := I * 300;
  vPoint.Y := I * 300;
  TsgDXFInsert(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[I]).Point := MakeFPoint(100,100,0);
  //TsgDXFInsert(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[I]).Point
  //showmessage( floattostr( TsgDXFInsert(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[I]).Point.X ));
  end;
  TsgDXFImage(sgPaintBox.Picture.Graphic).GetExtents;
  {for i:= 0 to 15 do
  ShowMessage(floattostr( TsgDXFImage(sgPaintBox.Picture.Graphic).Layouts[i].UCSOrigin.X ));}
end;

[support]

You gave a code which has no attitude to any Layer. Layer can't be moved itself. Entities are to be moved if they are on the required Layer.

Accordingly to your question. You use the following line:

Code: Select all

TsgDXFInsert(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[I]).Point := MakeFPoint(100,100,0);

It means that you take EVERY entity in the file as TsgDXFInsert. This is WRONG!
So the question is:
do you need to move XRef file added by AddScaledDXFEx function?
or
do you need to move all entities on some specified layer?

Sergey.

[DarkEternal]

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)

[support]

AddScaledDXFEx already returns TsgDXFInsert object. That is why the following line is unnecessary:

Code: Select all

TsgDXFInsert(TsgDXFImage(sgPaintBox.Picture.Graphic).Converter.Sections[csEntities].Entities[I])

You should just take received TsgDXFInsert object and do the following (we gave this code in the same post: http://www.cadsofttools.com/forum/viewt ... 4bf4#p3306):

Code: Select all

      TsgDXFInsert.Point := MakeFPoint(100,100,0);
      if Assigned(TsgDXFImage.Converter.OnCreate) then
            TsgDXFImage.Converter.OnCreate(TsgDXFInsert);
      TsgDXFImage.Converter.Loads(TsgDXFInsert);
      TsgDXFImage.CurrentLayout.AddEntity(TsgDXFInsert);

Sergey.

[DarkEternal]

Can you send me example of AddScaledDXFEx using with TsgDXFInsert?

[support]

We have already gave it to you. As it was mentioned in the previouse post the whole code is here: http://www.cadsofttools.com/forum/viewt ... 4bf4#p3306
Please find there the following lines:

Code: Select all

                   if (vXRefIns = nil) then
                      vXRefIns := TsgDXFInsert(vCADContainer.AddScaledDXFEx(vCGMImg, vCGMImg.FileName,
                        vCrossPoint,
                        MakeFPoint(1,1,1),0.0))

Sergey.