CADSoftTools

Code: Select all

function TMyCadImage.AddBlock(InsPoint: TFPoint; BlockName: String;
	DegreeAngle: Double; LayerName: string; Color: TColor): Int64;
var
	Insert: TsgDXFInsert;
	Block: TsgDXFBlock;
	Layer: TsgDXFLayer;
begin
	Result := 0;
	if not Assigned(FConverter) then Exit;

	Block := FConverter.BlockByName(BlockName);
	if (Block = nil) then Exit;

	Layer := FConverter.LayerByName(LayerName);

	Insert := TsgDXFInsert.Create;
	if Assigned(FConverter.OnCreate) then
		FConverter.OnCreate(Insert);

	Insert.Layer := Layer;
	Insert.Block := Block;
	Insert.Point := InsPoint;
	Insert.Color := Color;
	Insert.Angle := DegreeAngle;

	FConverter.Layouts[0].AddEntity(Insert);
	if Assigned(FConverter.OnCreate) then
		FConverter.OnCreate(Insert);
	FConverter.Loads(Insert);
	FConverter.SortEntitiesInZDepth();
	FCadImage.GetExtents;

	Result := Int64(Insert.Handle);
end;