mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 22:45:39 +02:00
5 lines
760 B
Plaintext
5 lines
760 B
Plaintext
{\rtf1\ansi\ansicpg1254\deff0\deflang1055{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\froman\fcharset0 Times New Roman;}{\f2\fnil\fcharset162 Tahoma;}}
|
||
\viewkind4\uc1\pard\sb100\sa100\f0\fs20 var\line\fs24 x1,x2,y1,y2,scale: integer;\line begin\line scale := strtoint( inputbox('Scale 1 to ','','100'));\line x1 := strtoint( inputbox('X top left corner','','0'));\line y1 := strtoint( inputbox('Y top left corner','','0'));\line x2 := x1+strtoint( inputbox('size horizontal in meters','','10'));\line x2 := (x2 * 100 / scale) * 10;\line y2 := y1+strtoint( inputbox('size vertical in meters','','10'));\line y2 := (y2 * 100 / scale) * 10;\line Rectangle(0,x1,y1,x2,y2,1,psSolid,clBlack,bsClear,clRed,true);\line refresh;\line end.\f1\par
|
||
\pard\f2\fs16\par
|
||
}
|
||
|