ПО для автоматизации швейного станка

[Евгений Панин]

Всем привет :)
Помогите пожалуйста советом.
В общем, нужно разработать ПО для автоматизации швейного станка, который должен прошивать мебель.
Имеется два серводвигателя и головка с иголкой.
В плане системы управления вопросов нет. Это может быть toolkit motion или собственная цифровая система 7каналов.
Вопрос такой: в приложении необходим редактор картинок. (прошивка только по линиям, без заливки). редактор должен быть векторным, т.к. на выходе нужны массивы координат точек.
1. Можно ли в labview без особых усилий преобразовать наиболее популярные векторные форматы в координаты, или это сложно?
2. Придется делать из XY-графика мини-автокад. Это относительно долго.
Возможности редактора:
прямая линия, примитивы, правка координат точек мышкой, вставка/удаление точек, слои, ластик, выделение слоёв, изменение размеров, позиции, отмена последних изменений, вращение слоев на опр.угол, привязка к сетке графика, масштабирование по осям, подстановка растровых изображений под plot для обводки(+перемещение,масштабирование,вращение по оси). ещё пару функций.

Помогите с выбором, пожалуйста. 1 или 2 ???

[IvanLis]

1. Можно ли в labview без особых усилий преобразовать наиболее популярные векторные форматы в координаты, или это сложно?

На мой взгляд достаточно определиться с одним форматом и делать импорт из него. Вроде как DWG можно открыть.

2. Придется делать из XY-графика мини-автокад. Это относительно долго.

Над эти работают целые конторы, а тут....
Лучше использовать для редактирования и преобразования форматов готовую, можно Free, программу.
А в только открывать файлы и управлять.

Но мне кажется первая проблема с которой столкнетесь, это то что Windows система "нереального времени", хотя много программ из под нее трудятся. А с этим могут быть проблемы.

[Евгений Панин]

Огромное спасибо за советы! Буду изучать векторные форматы. :)

график (2010).vi

Немного попробовал поэксперементировать с графиком:

(37.88 КБ) 196 скачиваний

Интересно ещё то, что из графика можно сделать экспорт данных в формат *.eps и *.emf

http://ru.wikipedia.org/wiki/Encapsulated_PostScript
http://ru.wikipedia.org/wiki/Windows_Metafile

[IvanLis]

Интересно ещё то, что из графика можно сделать экспорт данных в формат *.eps и *.emf

Ага и именно в векторном виде:

Код: Выделить всё

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 555 492
/mydict 250 dict def mydict begin
[1 0 0 -1 0 492] concat
/bdf{bind def}bind def
/xdf{exch def}bdf
/rect {
  /btm xdf /rt xdf /top xdf /lf xdf
  newpath lf top moveto rt top lineto rt btm lineto lf btm lineto closepath
}bdf
/polyLine {
  /ptsArray xdf  /v xdf  /h xdf
  newpath h v moveto
  ptsArray {aload pop /v xdf /h xdf h v lineto} forall stroke
}bdf
/clipPoly {
  /ptsArray xdf /v xdf /h xdf
  newpath h v moveto  ptsArray {aload pop /v xdf /h xdf h v lineto} forall closepath eoclip
}bdf
/paintPoly {
  /ptsArray xdf /v xdf /h xdf
  newpath h v moveto  ptsArray {aload pop /v xdf /h xdf h v lineto} forall closepath eofill
}bdf
/arcguts {
  /arcNeg xdf /endAngle xdf /startAngle xdf /htRad xdf /wtRad xdf
  /yCenter xdf /xCenter xdf /savematrix matrix currentmatrix def
  newpath  xCenter yCenter translate wtRad htRad scale 0 0 1 startAngle endAngle
  arcNeg{arcn}{arc}ifelse savematrix setmatrix
}bdf
/ovalFill {false arcguts closepath fill} bdf
/ovalClip {false arcguts closepath clip} bdf
/arcPath {false arcguts lineto closepath} bdf
/arcnPath {true arcguts lineto closepath} bdf
/arcFill {arcPath fill} bdf
/arcStroke {false arcguts stroke} bdf
/arcnFill {arcnPath fill} bdf
/arcnStroke {true arcguts stroke} bdf
/arcFillClip {arcPath clip} bdf
/arcnFillClip {arcnPath clip} bdf
/arcStrokeClip {
	/arcNeg xdf /halfW xdf /endAngle xdf /startAngle xdf /htRad xdf /wtRad xdf
	/yCenter xdf /xCenter xdf /savematrix matrix currentmatrix def
	newpath
	xCenter yCenter translate wtRad halfW add htRad halfW add scale
	0 0 1 startAngle endAngle arcNeg{arcn}{arc}ifelse  savematrix setmatrix
	xCenter yCenter translate wtRad halfW sub htRad halfW sub scale
	0 0 1 endAngle startAngle arcNeg{arc}{arcn}ifelse  savematrix setmatrix
	xCenter yCenter translate wtRad halfW add htRad halfW add scale
	0 0 1 startAngle endAngle arcNeg{arcn}{arc}ifelse  savematrix setmatrix
	xCenter yCenter translate wtRad halfW sub htRad halfW sub scale
	0 0 1 endAngle startAngle arcNeg{arc}{arcn}ifelse  savematrix setmatrix
	closepath clip
} bdf
/graypatd <aa55aa55aa55aa55> def
/ltgraypatd <8822882288228822> def
/dkgraypatd <77dd77dd77dd77dd> def
/diag44patd <f0e1c3870f1e3c78> def
/diag22patd <cc993366cc993366> def
/diag53patd <F1E3C78F1F3E7CF8> def
/diagX53patd <0912244890214284> def
/selectpatd <3355aacc3355aacc> def
/fillpat {
 /pat xdf /doBG xdf /bgc xdf /fgc xdf /y2 xdf /x2 xdf /y1 xdf /x1 xdf
 x2 x1 lt {/ss x2 def /x2 x1 def /x1 ss def}if
 y2 y1 lt {/ss y2 def /y2 y1 def /y1 ss def}if
 gsave
 x1 .10 add y1 .10 add x2 .10 sub y2 .10 sub rect clip
 /x1 x1 x1 cvi 8 mod abs sub def            % x1=x1-abs(x1%8)
 /y1 y1 y1 cvi 8 mod abs sub def            % y1=y1-abs(y1%8)
 /xlim x2 x1 sub def /ylim y2 y1 sub def
 /y 0 def
 {y ylim lt
   {/x 0 def
   {x xlim lt
     {gsave
      x1 x add y1 y add translate 8 8 scale
      fgc aload pop setrgbcolor 8 8 true [8 0 0 8 0 0] pat imagemask
      doBG{bgc aload pop setrgbcolor 8 8 false [8 0 0 8 0 0] pat imagemask}if
      x 8 add /x xdf grestore}
     {exit}
     ifelse
   }loop
   y 8 add /y xdf}
   {exit}
   ifelse
 }loop
 grestore
}bdf
/tLeft 0 def
/tRight 16 def
/tCenter 32 def
/tOutline 8 def
/tUnderline 4 def
/tStrikeout 1 def
/gUnique 0 def
/gCurFont 0 def
/gFontIsOutline false def
/|/def load def /,/load load | /@/dup , | /b{bind |}bind | /!/pop , |
/bullets{{/bullet}repeat}b/ANSIEncoding[/grave/acute/circumflex/tilde/macron
/breve/dotaccent/dieresis/ring/cedilla/hungarumlaut/ogonek/caron/dotlessi 18
bullets StandardEncoding 32 95 getinterval aload ! 3 bullets/quotesinglbase
/florin/quotedblbase/ellipsis/dagger/daggerdbl/circumflex/perthousand/Scaron
/guilsinglleft/OE 4 bullets/quoteleft/quoteright/quotedblleft/quotedblright
/bullet/endash/emdash/tilde/trademark/scaron/guilsinglright/oe 2 bullets
/Ydieresis/space/exclamdown/cent/sterling/currency/yen/brokenbar/section
/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/hyphen/registered
/macron/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph
/periodcentered/cedilla/onesuperior/ordmasculine/guillemotright/onequarter
/onehalf/threequarters/questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis
/Aring/AE/Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute
/Icircumflex/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla/egrave/eacute
/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis/eth/ntilde/ograve
/oacute/ocircumflex/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex
/udieresis/yacute/thorn/ydieresis]| ANSIEncoding @ 39/quotesingle put 96/grave
put
/ReencodeFont {
  findfont dup length dict begin
    {1 index /FID ne {def}{pop pop}ifelse} forall
    /FontName xdf
    /Encoding ANSIEncoding def
    currentdict dup
  end
  /FontName get exch definefont pop
} bdf
/CheckFontEncoding {
  /newfontname xdf
  /str 60 string def
  newfontname str cvs (-ISO) search
  	{newfontname FontDirectory exch known
  	  {pop} {cvn newfontname exch ReencodeFont} ifelse pop
  	}if
  pop
} bdf
/makeoutlinedict 7 dict def
/MakeOutlineFont {
	makeoutlinedict begin
	/uniqueid xdf
	/strokewidth xdf
	/newfontname xdf
	/basefontname xdf
	/basefontdict basefontname findfont def
	/numentries basefontdict maxlength 1 add def
	basefontdict /UniqueID known not
	 {/numentries numentries 1 add def}if
	/outfontdict numentries dict def
	basefontdict
	 {exch dup /FID ne {exch outfontdict 3 1 roll put}{pop pop}ifelse}forall
	outfontdict /FontName newfontname put
	outfontdict /PaintType 2 put
	outfontdict /StrokeWidth strokewidth put
	outfontdict /UniqueID uniqueid put
	newfontname outfontdict definefont pop
	end
}bdf
/OutlineFont {
 /size xdf			% font scale size
 /outline xdf		% requested outline extension
 /fontname xdf		% requested font name
 /str 60 string def
 /olfontname fontname str cvs length str exch outline putinterval str cvn def
 FontDirectory olfontname known
   {/gCurFont olfontname findfont def /gFontIsOutline true def}
   {gCurFont /PaintType known
	    {gCurFont /PaintType get 0 eq
		  {fontname olfontname 1000 size div
		   gCurFont /UniqueID known {gCurFont /UniqueID get gUnique add}{gUnique}ifelse
		   MakeOutlineFont
		   /gCurFont olfontname findfont def
		   /gUnique gUnique 1 add def
		   /gFontIsOutline true def
		   }if
	    }if
   }ifelse
}bdf
/AssignFont {
 /size xdf			% font scale size
 /outline xdf		% outline extension
 /fontname xdf		% requested font name
 fontname CheckFontEncoding
 /gFontIsOutline false def
 /gCurFont fontname findfont def
 outline length 0 gt {fontname outline size OutlineFont} if
}bdf
/drawText {
	/rot xdf
	/justify xdf
	/style xdf
	/doClip xdf
	/rBottom xdf
	/rRight xdf
	/rTop xdf
	/rLeft xdf
	/rotPtV xdf
	/rotPtH xdf
	/ascent xdf
	/totalHt xdf
	/hsize xdf		% font scale size - height
	/wsize xdf		% font scale size - width 
	/factor xdf		% width scaling factor
	/text xdf
	gCurFont [wsize 0 0 0 wsize sub 0 0] makefont setfont
	/w text stringwidth pop def
	gCurFont [factor w div 0 0 0 wsize sub 0 0] makefont setfont
	/w text stringwidth pop def
	/rectW rRight rLeft sub def
	gsave rot 0 ne {
		rotPtH rotPtV 2 copy translate
		rot neg rotate
		neg exch neg exch translate } if
	doClip 0 gt {rLeft rTop rRight rBottom rect clip newpath}if
	justify tLeft eq
		{/dw 0 def}
		{/dw rectW w sub def justify tCenter eq {/dw dw 2 div def}if}
		ifelse
	rLeft dw add rTop ascent add moveto
	text style tOutline and 0 gt gFontIsOutline not and
		{false charpath gsave stroke grestore}{show}ifelse
	style tUnderline and 0 gt
		{rLeft dw add currentpoint 1 add 2 copy newpath moveto exch pop lineto stroke}if
	style tStrikeout and 0 gt
		{rLeft dw add rTop totalHt 2 div add 2 copy moveto exch w add exch lineto stroke}if
	grestore
}bdf
2 setmiterlimit 1 setlinejoin
systemdict /languagelevel known {languagelevel 2 ge {true setstrokeadjust}if }if
1 setgray [] 0 setdash 1 setlinecap 1.0 setlinewidth 
initclip 0 0 555 492 rect clip
0 0 555 492 rect fill
70 46 540 450 rect fill
0 setgray 1.0 setlinewidth 
69.00 45.00 541.00 451.00 rect stroke
1 setgray 1.0 setlinewidth 
70 46 540 450 rect fill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
newpath 99.0 46.0 moveto 99.0 449.0 lineto stroke
newpath 129.0 46.0 moveto 129.0 449.0 lineto stroke
newpath 158.0 46.0 moveto 158.0 449.0 lineto stroke
newpath 187.0 46.0 moveto 187.0 449.0 lineto stroke
newpath 217.0 46.0 moveto 217.0 449.0 lineto stroke
newpath 246.0 46.0 moveto 246.0 449.0 lineto stroke
newpath 275.0 46.0 moveto 275.0 449.0 lineto stroke
newpath 305.0 46.0 moveto 305.0 449.0 lineto stroke
newpath 334.0 46.0 moveto 334.0 449.0 lineto stroke
newpath 363.0 46.0 moveto 363.0 449.0 lineto stroke
newpath 392.0 46.0 moveto 392.0 449.0 lineto stroke
newpath 422.0 46.0 moveto 422.0 449.0 lineto stroke
newpath 451.0 46.0 moveto 451.0 449.0 lineto stroke
newpath 480.0 46.0 moveto 480.0 449.0 lineto stroke
newpath 510.0 46.0 moveto 510.0 449.0 lineto stroke
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
newpath 70.0 424.0 moveto 539.0 424.0 lineto stroke
newpath 70.0 399.0 moveto 539.0 399.0 lineto stroke
newpath 70.0 373.0 moveto 539.0 373.0 lineto stroke
newpath 70.0 348.0 moveto 539.0 348.0 lineto stroke
newpath 70.0 323.0 moveto 539.0 323.0 lineto stroke
newpath 70.0 298.0 moveto 539.0 298.0 lineto stroke
newpath 70.0 273.0 moveto 539.0 273.0 lineto stroke
newpath 70.0 248.0 moveto 539.0 248.0 lineto stroke
newpath 70.0 222.0 moveto 539.0 222.0 lineto stroke
newpath 70.0 197.0 moveto 539.0 197.0 lineto stroke
newpath 70.0 172.0 moveto 539.0 172.0 lineto stroke
newpath 70.0 147.0 moveto 539.0 147.0 lineto stroke
newpath 70.0 122.0 moveto 539.0 122.0 lineto stroke
newpath 70.0 96.0 moveto 539.0 96.0 lineto stroke
newpath 70.0 71.0 moveto 539.0 71.0 lineto stroke
gsave 72 720 div 72 720 div scale % set res
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
700 460 5400 4500 rect clip
1990 1550[[3590 1470][3820 2990][2560 3340][1540 2240][1260 920][3080 890][4190 990][4510 1990][4750 2910][4260 3420][3150 3700][2480 3710][1610 3230][1430 2640][1140 1740][1020 740][2130 550][3170 690][3810 710][4300 810][4560 930][4770 1360][4890 1610][5230 2410][5190 2970][5120 3380][4860 3700][4850 3760][1870 3650]] polyLine
grestore % restore res
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
70 46 540 450 rect clip
187.50 365.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
485.50 376.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
486.50 370.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
512.50 338.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
519.50 297.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
523.50 241.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
489.50 161.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
477.50 136.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
456.50 93.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
430.50 81.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
381.50 71.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
317.50 69.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
213.50 55.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
102.50 74.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
114.50 174.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
143.50 264.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
161.50 323.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
248.50 371.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
315.50 370.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
426.50 342.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
475.50 291.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
451.50 199.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
419.50 99.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
308.50 89.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
126.50 92.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
154.50 224.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
256.50 334.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
382.50 299.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
359.50 147.50 2.50 2.50 0 360 ovalFill
0 setgray [] 0 setdash 1 setlinecap .2 setlinewidth 
1.0 setlinewidth 
199.50 155.50 2.50 2.50 0 360 ovalFill
initclip 3 37 553 491 rect clip
gsave 27 224 39 270 rect clip
/Helvetica-Bold () 10 AssignFont
(Amplitude) 450 10 12 12 10 33  247 11 241 56 253  0 0 0 90 drawText %ltrb 
grestore
0 setgray [] 0 setdash 1 setlinecap 1.0 setlinewidth 
/Helvetica () 10 AssignFont
(400) 180 10 12 12 10 0 0 43 40 62 52 0 0 16 0 drawText
newpath 63.0 46.0 moveto 67.0 46.0 lineto stroke
(0) 60 10 12 12 10 0 0 55 443 62 455 0 0 16 0 drawText
newpath 63.0 449.0 moveto 67.0 449.0 lineto stroke
(25) 120 10 12 12 10 0 0 49 418 62 430 0 0 16 0 drawText
newpath 63.0 424.0 moveto 67.0 424.0 lineto stroke
(50) 120 10 12 12 10 0 0 49 393 62 405 0 0 16 0 drawText
newpath 63.0 399.0 moveto 67.0 399.0 lineto stroke
(75) 120 10 12 12 10 0 0 49 367 62 379 0 0 16 0 drawText
newpath 63.0 373.0 moveto 67.0 373.0 lineto stroke
(100) 180 10 12 12 10 0 0 43 342 62 354 0 0 16 0 drawText
newpath 63.0 348.0 moveto 67.0 348.0 lineto stroke
(125) 180 10 12 12 10 0 0 43 317 62 329 0 0 16 0 drawText
newpath 63.0 323.0 moveto 67.0 323.0 lineto stroke
(150) 180 10 12 12 10 0 0 43 292 62 304 0 0 16 0 drawText
newpath 63.0 298.0 moveto 67.0 298.0 lineto stroke
(175) 180 10 12 12 10 0 0 43 267 62 279 0 0 16 0 drawText
newpath 63.0 273.0 moveto 67.0 273.0 lineto stroke
(200) 180 10 12 12 10 0 0 43 242 62 254 0 0 16 0 drawText
newpath 63.0 248.0 moveto 67.0 248.0 lineto stroke
(225) 180 10 12 12 10 0 0 43 216 62 228 0 0 16 0 drawText
newpath 63.0 222.0 moveto 67.0 222.0 lineto stroke
(250) 180 10 12 12 10 0 0 43 191 62 203 0 0 16 0 drawText
newpath 63.0 197.0 moveto 67.0 197.0 lineto stroke
(275) 180 10 12 12 10 0 0 43 166 62 178 0 0 16 0 drawText
newpath 63.0 172.0 moveto 67.0 172.0 lineto stroke
(300) 180 10 12 12 10 0 0 43 141 62 153 0 0 16 0 drawText
newpath 63.0 147.0 moveto 67.0 147.0 lineto stroke
(325) 180 10 12 12 10 0 0 43 116 62 128 0 0 16 0 drawText
newpath 63.0 122.0 moveto 67.0 122.0 lineto stroke
(350) 180 10 12 12 10 0 0 43 90 62 102 0 0 16 0 drawText
newpath 63.0 96.0 moveto 67.0 96.0 lineto stroke
(375) 180 10 12 12 10 0 0 43 65 62 77 0 0 16 0 drawText
newpath 63.0 71.0 moveto 67.0 71.0 lineto stroke
/Helvetica-Bold () 10 AssignFont
(Time) 210 10 12 12 10 0 0 295 471 316 483 0 0 32 0 drawText
/Helvetica () 10 AssignFont
(400) 190 10 12 12 10 0 0 530 457 549 469 0 0 32 0 drawText
newpath 539.0 452.0 moveto 539.0 456.0 lineto stroke
(0) 70 10 12 12 10 0 0 67 457 74 469 0 0 32 0 drawText
newpath 70.0 452.0 moveto 70.0 456.0 lineto stroke
(25) 130 10 12 12 10 0 0 93 457 106 469 0 0 32 0 drawText
newpath 99.0 452.0 moveto 99.0 456.0 lineto stroke
(50) 130 10 12 12 10 0 0 123 457 136 469 0 0 32 0 drawText
newpath 129.0 452.0 moveto 129.0 456.0 lineto stroke
(75) 130 10 12 12 10 0 0 152 457 165 469 0 0 32 0 drawText
newpath 158.0 452.0 moveto 158.0 456.0 lineto stroke
(100) 190 10 12 12 10 0 0 178 457 197 469 0 0 32 0 drawText
newpath 187.0 452.0 moveto 187.0 456.0 lineto stroke
(125) 190 10 12 12 10 0 0 208 457 227 469 0 0 32 0 drawText
newpath 217.0 452.0 moveto 217.0 456.0 lineto stroke
(150) 190 10 12 12 10 0 0 237 457 256 469 0 0 32 0 drawText
newpath 246.0 452.0 moveto 246.0 456.0 lineto stroke
(175) 190 10 12 12 10 0 0 266 457 285 469 0 0 32 0 drawText
newpath 275.0 452.0 moveto 275.0 456.0 lineto stroke
(200) 190 10 12 12 10 0 0 296 457 315 469 0 0 32 0 drawText
newpath 305.0 452.0 moveto 305.0 456.0 lineto stroke
(225) 190 10 12 12 10 0 0 325 457 344 469 0 0 32 0 drawText
newpath 334.0 452.0 moveto 334.0 456.0 lineto stroke
(250) 190 10 12 12 10 0 0 354 457 373 469 0 0 32 0 drawText
newpath 363.0 452.0 moveto 363.0 456.0 lineto stroke
(275) 190 10 12 12 10 0 0 383 457 402 469 0 0 32 0 drawText
newpath 392.0 452.0 moveto 392.0 456.0 lineto stroke
(300) 190 10 12 12 10 0 0 413 457 432 469 0 0 32 0 drawText
newpath 422.0 452.0 moveto 422.0 456.0 lineto stroke
(325) 190 10 12 12 10 0 0 442 457 461 469 0 0 32 0 drawText
newpath 451.0 452.0 moveto 451.0 456.0 lineto stroke
(350) 190 10 12 12 10 0 0 471 457 490 469 0 0 32 0 drawText
newpath 480.0 452.0 moveto 480.0 456.0 lineto stroke
(375) 190 10 12 12 10 0 0 501 457 520 469 0 0 32 0 drawText
newpath 510.0 452.0 moveto 510.0 456.0 lineto stroke
1 setgray 1.0 setlinewidth 
initclip 0 0 555 492 rect clip
519 1 554 23 rect fill
0 setgray 1.0 setlinewidth 
518.00 0.00 555.00 24.00 rect stroke
1 setgray 1.0 setlinewidth 
522 4 551 20 rect clip
523 5 542 19 rect fill
0 setgray 1.0 setlinewidth 
522.00 4.00 543.00 20.00 rect stroke
newpath 532.0 4.0 moveto 532.0 19.0 lineto stroke
1 setgray 1.0 setlinewidth 
523 5 550 19 rect fill
0 setgray 1.0 setlinewidth 
522.00 4.00 551.00 20.00 rect stroke
524 6 549 18 rect clip
newpath 524.0 14.0 moveto 532.0 7.0 lineto stroke
newpath 532.0 7.0 moveto 540.0 14.0 lineto stroke
newpath 540.0 14.0 moveto 548.0 7.0 lineto stroke
newpath 548.0 7.0 moveto 556.0 14.0 lineto stroke
initclip 0 0 555 492 rect clip
1.0 setlinewidth 
/Helvetica-Bold () 10 AssignFont
(XY Graph) 510 10 12 12 10 0 0 1 21 52 33 0 0 0 0 drawText
showpage

Делать редактор с "0" долго и неблагодарно. Если использовать сторонний, то необходимо делать импорт.
Среди сторонних есть и бесплатные, тем более работать нужно в 2D, например LibreCAD.
Наиболее универсальный и распространенный, на мой взгляд это DXF. Если есть CNC-шники, меня думаю поддержат.
Посмотрите NI Motion Assistant Taking CAD Profiles To Motion In Minutes, это то что Вам нужно , но за деньги.
Так что сразу можно оценить объемы работы.

[Евгений Панин]

Спасибо. Посмотрел, вещь мощная.

Делать редактор с "0" долго и неблагодарно. Если использовать сторонний, то необходимо делать импорт.
Среди сторонних есть и бесплатные, тем более работать нужно в 2D, например LibreCAD.
Наиболее универсальный и распространенный, на мой взгляд это DXF. Если есть CNC-шники, меня думаю поддержат.

Полностью согласен с Вами!!!

Тут проблема ещё в том, что людям нужна простейшая программа для создания контуров, интуитивно понятная и простая, даже без кривых, т.к. один стежок станка 5мм. Это выяснилось недавно. Теперь чувствую, придётся делать на графике
Представляю, как будет "лагать" ПО с большим количеством точек на графике. Я постараюсь сделать, чтобы только выделенный слой преобразовывался в курсоры, для правки точек, а иначе "труба" будет.