Re: Saving as SVG generates a very small sketch

I am converting a bunch of polylines into an SVG file, and at the beginning of the file I am setting the L_VecSetParallelogram (@Vh, @Min, @Max) to the maximum extents of the sketch.

However when I load this file in Adobe's SVG viewer, or even Amaya, the lines are drawn very small and in the upper corner, as if the scale is way off.  What is the proper way for exploring this?

Thanks!

I am using LeadTools v14.  My code snippet is as follows, please let me know if you don't understand a part of the conversion.

          TG_POLYLINE : begin
            FillChar (Vo, SizeOf(Vo), #0);
            L_VecInitObject (@Vo.VecObject);

            if PTG_POLYLINE_ENT(E^.data)^.vertices^.count = 2 then begin
              // free form line
              Vo.VecObject.nSize := SizeOf(VECTORPOLYLINE);
              Vo.VecObject.nType := VECTOR_POLYLINE;


              Vo.nPointCount := PTG_POLYLINE_ENT(E^.data)^.vertices^.count;
              if Vo.nPointCount > 0 then begin

                GetMem (Vo.Point, SizeOf(VECTORPOINT)*Vo.nPointCount);
                x := 1;

                with PTG_POLYLINE_ENT(E^.data)^ do begin

                  ll_set_list_currpntr (vertices, TG_HEAD);
                  repeat

                   
PVECTORPOINTARRAY(Vo.Point)^[x].x := PTG_VERTEX_ENT(PTG_ENTITY(vertices^.current^.data)^.data)^.pnt.x;

                   
PVECTORPOINTARRAY(Vo.Point)^[x].y := PTG_VERTEX_ENT(PTG_ENTITY(vertices^.current^.data)^.data)^.pnt.y;

                   
PVECTORPOINTARRAY(Vo.Point)^[x].z := PTG_VERTEX_ENT(PTG_ENTITY(vertices^.current^.data)^.data)^.pnt.z;

                    Inc (x);

                  until ll_set_list_currpntr (vertices, TG_AFTER) = TG_HEAD;
                  end; { with }
                end; { if }

              T.Pen.nSize := SizeOf(VECTORPEN);
              T.Pen.bExtPen := TRUE;
              T.Pen.Pen.elpWidth := 1;
              T.Pen.Pen.elpBrushStyle := BS_HOLLOW;
              T.Pen.Pen.elpColor := ColorToRGBColor(E^.Color);
              T.Pen.Pen.elpPenStyle := PS_SOLID;
              T.Brush.nSize := SizeOf(VECTORBRUSH);
              T.Brush.VectorBrushStyle := VECTORBRUSH_STANDARD;

              T.Brush.StandardBrush.LogicalBrush.lbStyle := BS_HOLLOW;


             
{ShowMessage (IntToStr (}L_VecAddObject (@Vh, @Lyr, VECTOR_POLYLINE, @Vo, nil){))};
              end { if... }
            else begin
              // area
              Vo.VecObject.nSize := SizeOf(VECTORPOLYGON);
              Vo.VecObject.nType := VECTOR_POLYGON;


              Vo.nPointCount := PTG_POLYLINE_ENT(E^.data)^.vertices^.count;
              if Vo.nPointCount > 0 then begin

                GetMem (Vo.Point, SizeOf(VECTORPOINT)*Vo.nPointCount);
                x := 1;

                with PTG_POLYLINE_ENT(E^.data)^ do begin

                  ll_set_list_currpntr (vertices, TG_HEAD);
                  repeat

                   
PVECTORPOINTARRAY(Vo.Point)^[x].x := PTG_VERTEX_ENT(PTG_ENTITY(vertices^.current^.data)^.data)^.pnt.x;

                   
PVECTORPOINTARRAY(Vo.Point)^[x].y := PTG_VERTEX_ENT(PTG_ENTITY(vertices^.current^.data)^.data)^.pnt.y;

                   
PVECTORPOINTARRAY(Vo.Point)^[x].z := PTG_VERTEX_ENT(PTG_ENTITY(vertices^.current^.data)^.data)^.pnt.z;

                    Inc (x);

                  until ll_set_list_currpntr (vertices, TG_AFTER) = TG_HEAD;
                  end; { with }
                end; { if }

              T.Pen.nSize := SizeOf(VECTORPEN);
              T.Pen.bExtPen := TRUE;
              T.Pen.Pen.elpWidth := 1;
              T.Pen.Pen.elpBrushStyle := BS_HOLLOW;
              T.Pen.Pen.elpColor := ColorToRGBColor(E^.Color);
              T.Pen.Pen.elpPenStyle := PS_SOLID;
              T.Brush.nSize := SizeOf(VECTORBRUSH);
              T.Brush.VectorBrushStyle := VECTORBRUSH_STANDARD;

              T.Brush.StandardBrush.LogicalBrush.lbStyle := BS_HOLLOW;


             
{ShowMessage (IntToStr (}L_VecAddObject (@Vh, @Lyr, VECTOR_POLYGON, @Vo, nil){))};
              end; { ...if }
            end; { TG_POLYLINE }

 Maen Hasan wrote:Hello,
If you increase all point coordinates by a factor, does the resulting SVG drawing increase in size accordingly?

If this doesn't solve the problem, can you create a small sample
project that only contains the code to create the object and save the SVG file? If yes, please send it in an email to support@leadtools.com

I could probably come up with one, but maybe if you could just explain the coordinate type expected, that may bring the answer out.


In my sketches, my extents are similar to 80x50 (meaning 80 feet by 50
feet in world coordinates), and so the coordinates of the vectors are placed within that region.

Should the parallelogram be in pixel sizes, or how does it work and what is it expecting?

I have found that the issue is related to pixels.  In doing a search on the net I came across this chart:



UnitMeaning
em
a unit equal to the current font size
ex the x-height, usually the height
of a lower case letter x
px
pixels (the default)
pt
points (one point = 1/72 inch)
pc
picas (one pica = 1/6 inch)
cmcentimeters
mmmillimeters
ininches


Which are the only measurements supposed by SVG.  Unfortunately my
data is in feet, but I can convert to inches.  However, since
L_VecSetParallelogram requires a VECTORPOINT which are Doubles, how do I specify which measurement type to use?

Thank you

I did see a VECTORUNIT structure in your header files
and constants such as VECTOR_UNIT_INCHES, VECTOR_UNIT_PIXELS but they
are labeled for "internal use only" in the code so are these works in progress?