Drawing Polyline finally solved

Dear all

DrawPolyline is based on the DrawLine function: the segments are drawn as line, then joined by means of FCodes.

Next year I will follow Markus' advice and replace the flipping in DrawLine by rotation - but this requires some math - and is less transparent.

And yes, i will report these two scripts as bypass in various FM bug reports.

#target framemaker
Main();
function Main(oDoc) { // ==========================================================================
var oDoc = app.ActiveDoc, CM = 1857713,           // Constants.FV_Metric_CM not present in ESTK
    oFrame, oPoly1, rVertices = [4,1, 3,3, 5.5,3.6, 8,3, 6,2];      // values in cm
  oFrame = oDoc.FirstSelectedGraphicInDoc;
  if (!oFrame.ObjectValid()) {
    alert ("An anchored frame must be selected.");
    return;
  }
  oPoly0  = DrawPolyline(oDoc, oFrame, rVertices, false);  // unsmoothed line
  $.writeln ("location, dimension =" + oPoly0.LocX/CM + " " + oPoly0.LocY/CM + "   " + oPoly0.Width/CM + " " + oPoly0.Height/CM);
  oPoly1  = DrawPolyline(oDoc, oFrame, rVertices, true);  // smoothed line
  $.writeln ("location, dimension =" + oPoly1.LocX/CM + " " + oPoly1.LocY/CM + "   " + oPoly1.Width/CM + " " + oPoly1.Height/CM);
} //--- end Main
function DrawPolyline (oDoc, oFrame, rVertices, iSmooth) { // === Draw polygon line in FM-coordinates
// Arguments  oDoc:      Current document
//            oFrame:    Current (anchored|grphic) frame receiving the polyline
//            rVertices: Array of x, y values of the points forming the polyline [cm], FM-coordinates
//            iSmooth:   0: ragged ine; 1: smooth line (vertices are Bezier points).
// Returns    Created object, used e.g. for grouping
// Comment    Not yet supported (constants): lineWidth, colour, pen-pattern, dash-pattern, check arguments
//            x0, y0:    Origin of the object is deducted from the vertices.
// Attention  Due to severe misfunction of ESTK Polyline this routine is a polyfill: The vertices are
//            drawn as separate lines and then joined. This converts the selection to a Polyline.
var j, CM = 1857713, aFCodes = [], oLine, aLines = [], oPoly;
  jMax = rVertices.length/2 - 1;                  // number of lines (# points - 1)
  minX = minY = Number.MAX_VALUE;
  maxX = maxY = 0;                                // in units
  for (j = 0; j < jMax; j++) {
    oLine = CreateLine (oDoc, oFrame, rVertices[j*2], rVertices[j*2+1] , rVertices[j*2+2] , rVertices[j*2+3] );
    aLines.push(oLine);
  }
  for (j = 0; j < jMax; j++) {                    // select all lines
    aLines.GraphicIsSelected = 1;
  }
  aFCodes[0] = FCodes.KBD_JOINCURVES;             // there is no joining function in ESTK or FDK
  Fcodes(aFCodes);                                // join the lines (converts selection to polyline)
  oPoly = oDoc.FirstSelectedGraphicInDoc;         // this has all properties set (LocX/Y, W/H)
  oPoly.GraphicIsSelected = 0;                    // unselect after creation
  oPoly.Color = oDoc.GetNamedColor("Magenta");
  oPoly.BorderWidth = 0.05*CM;
  oPoly.PolyIsBezier = iSmooth;
  return oPoly;
} //--- end DrawPolyline
function DrawLine (oDoc, oFrame, x0, y0, x1, y1) { // Draw line in FM-coordinates =================
// Arguments  oDoc      current document
//            oFrame    parent object of the drawing object
//            x0/y0     coordinates in FM system of starting point [cm]
//            x1/y1     coordinates in FM system of end point [cm]
// Returns    Line object (for grouping etc.)
// Comment    The separation into quadrants is not completely to my intentions:
//            6/4, 6/1 goes to Q-III, not Q-IV as i intended in coherence
//            to the other 90° items at the 'beginning' of the quadrants
// Attention  The object Line has various flaws, which need strange bypasses
var CM = 1857713, oLine, width, height, aFCodes = [], tolerance = 0.001
    FRMAKER5819 = 8192;                           // Units to cope with bug FRMAKER-5819
  aFCodes[0] = FCodes.KBD_FLIPUD;                 // there is no flipping function in ESTK or FDK
  oLine = oDoc.NewLine(oFrame);
  width  = x1 - x0;
  height = y1 - y0;
  oLine.Width  = Math.abs(width)* CM;
  oLine.Height = Math.abs(height)* CM;
  if (Math.abs(width)* CM < FRMAKER5819)  {       // bypasses for FRMAKER-5819
    oLine.Width   = FRMAKER5819};
  if (Math.abs(height)* CM < FRMAKER5819) {
    oLine.Height  = FRMAKER5819};
  if (x0 < x1 & y0 <= y1) { quadrant = "  I";
    oLine.LocX = x0 * CM; oLine.LocY = y0 * CM;
  } else if (x0 >= x1  & y0 < y1) { quadrant = " II";
    oLine.LocX = x1 * CM; oLine.LocY = y0 * CM;
    oLine.GraphicIsSelected = 1;                  // bypass for FRMAKER-5844
    Fcodes(aFCodes);
    oLine.GraphicIsSelected = 0;
  } else if (x0 > x1  & y0 >= y1)  { quadrant = "III";
    oLine.LocX = x1 * CM; oLine.LocY = y1 * CM;
  } else if (x0 <= x1 & y0 > y1)  { quadrant = " IV";
    oLine.LocX = x0 * CM; oLine.LocY = y1 * CM;  
    oLine.GraphicIsSelected = 1;                  // bypass for FRMAKER-5844
    Fcodes(aFCodes);
    oLine.GraphicIsSelected = 0;
  } else {
    ZStop ("Program error in DrawLine");
  }
  oLine.BorderWidth = 0.05*CM;                    // Stroke-width
  oLine.Color = oDoc.GetNamedColor("Magenta");
//$.writeln ("Quadrant, x0,y01, x10,y1 = " + quadrant + "   " + x0 + " " + y0 + "   " + x1 + " " + y1);
  return oLine;
} //--- end DrawLine
function ZStop (message) { // =====================================================================
  throw new Error("Stop Script --- " + message);
}

Merry Christmas and a Happy New Year to all of You!

Klaus