inf_meth_Delphi
.pdfprocedure Uzel(Image:Timage;x,y:integer;Name:string);
B
270 |
– procedure responsible for output of mechanism |
|
assembly unit. Assembly unit is displayed in the |
form of a small circle with inscription near it. Procedure parameters are as follow:
x,y – coordinates of the centre of assembly unit. Name – text near assembly unit (name of assembly unit).
– процедура, отображающая узловую точку механизма в виде небольшего круга с надписью возле него.
Параметры процедуры:
x,y – координаты центра узловой точки. Name – текст возле узловой точки (имя узла).
procedure RazmerLinear(Image:Timage;x1,y1,x2,y2:integer; Text:string);
B |
(x1,y1) |
|
|
|
|
|
(x2,y2) |
|||||
|
|
|
||||||||||
|
|
|
|
|||||||||
|
|
|
||||||||||
|
|
|
|
|
|
Text |
||||||
|
|
|
|
|
|
|
||||||
|
|
|
|
|
|
|
– procedure responsible for output of linear dimension between two points. It is necessary to point out the following parameters:
x1,y1 – coordinates of the first point. x2,y2 – coordinates of the second point. Text – text of dimension.
– процедура, которая рисует линейный размер между двумя точками.
Параметры процедуры:
x1,y1 – координаты первой точки. x2,y2 – координаты второй точки. Text – текст размера.
procedure RazmerAngular(Image:Timage;x1,y1,x2,y2,x3,y3:integer; Text:string);
x2,y2)
Text
(x2,y2)
Text
(x3,y3)
(x1,y1) (x2,y2)
– procedure responsible for output of angular dimension. Angular dimension arc is outlined from point 2 to point 3 anticlockwise. Point 1 determines arc center.
It is necessary to point out the following parameters:
x1,y1 – coordinates of center point of angular dimension.
x2,y2 – coordinates of the first point of arc. x3,y3 – coordinates of the second point of arc. Text – text of dimension.
– процедура, которая рисует угловой размер между двумя линиями. Дуга измерения определяется от точки 2 к точке 3 против часовой стрелки. Точка 1 определяет центр дуги.
Параметры процедуры:
x1,y1 – координаты центра дуги.
x2,y2 – координаты начальной точки дуги. x3,y3 – координаты конечной точки дуги. Text – текст размера.
procedure PolzunHor(Image:Timage;x,y:integer;osn:boolean);
Base Point
(x,y)
osn=true osn=false
– procedure responsible for output of slider running in horizontal direction:
Procedure parameters are as follow:
x,y – coordinates of centre point of slider.
osn – logic parameter which determines if it is necessary to display guide ways for slider (true) or not (false).
– процедура, которая рисует горизонтальный ползун:
Параметры процедуры:
x,y – координаты точки центра ползуна. osn – логический параметр, который определяет,необходимо отображать направляющие ползуна (true) или нет (false).
51
procedure PolzunVer(Image:Timage;x,y:integer;osn:boolean); |
|
Base Point |
|
(x,y) |
|
osn=true |
osn=false |
|
osn=false |
– procedure responsible for output of slider |
– процедура, которая рисует вертикальный |
||||
|
||||||
|
running in vertical direction. Procedure |
ползун: |
||||
|
parameters are as follow: |
|
|
Параметры процедуры: |
||
|
x,y – coordinates of center point of crosshead. |
x,y – координаты точки центра ползуна. |
||||
|
osn – logic parameter which determines if it is |
osn – логический параметр, который опре- |
||||
|
necessary to display guide |
ways for slider |
деляет,необходимо отображать направляю- |
|||
|
(true) or not (false). |
|
|
щие ползуна (true) или нет (false). |
||
|
procedure PolzunAng(Image:Timage;x1,y1,x2,y2:integer); |
|||||
|
|
Base Point |
|
|
(x2,y2) |
|
|
|
(x1,y1) |
|
|
|
=true
– procedure responsible for output of crosshead |
– процедура, которая рисует угловой ползун. |
osn=false |
|
with, having any incline. Procedure parameters |
Параметры процедуры: |
are as follow: |
x1,y1 – координаты точки центра ползуна; |
x1,y1 – coordinates of center point of crosshead |
x2,y2 – координаты точки, на которую |
x2,y2 – coordinates of a point, a crosshead |
«смотрит» ползун. |
“looks” at. |
|
procedure Kulisa(Image:Timage;x1,y1,x2,y2,L:integer);
(x2,y2)
(x1,y1)
L
– procedure responsible for output of simplified swinging arm (straight line of fixed length). Procedure parameters are as follow:
x1,y1 – coordinates of fixed point of swinging arm.
x2,y2 – coordinates of a point swinging arm runs through.
L – swinging arm length.
– процедура, которая упрощенно рисует кулису (прямая линия постоянной длины). Параметры процедуры:
x1,y1 – координаты фиксированной точки кулисы.
x2,y2
кулисы.
L
procedure KulisaPaz(Image:Timage;x1,y1,x2,y2,L,Lp:integer; Torez:boolean);
(x2,y2) |
(x2,y2) |
(x2,y2) |
(x1,y1) |
(x1,y1) |
(x1,y1) |
p |
p |
L |
L |
L |
L |
Torez=false |
Torez=true |
|
|
p |
|
L |
|
= |
|
|
L |
|
|
Torez=true
– procedure responsible for output of |
– процедура, которая рисует кулису с пазом. |
||
complicated swinging arm. Procedure parameters |
Параметры процедуры: |
||
are as follow: |
x1,y1 |
– |
координаты фиксированной точки |
x1,y1 – coordinates of fixed point of swinging |
кулисы. |
|
|
arm. |
x2,y2 |
– |
координаты подвижной точки |
x2,y2 – coordinates of a point swinging arm |
кулисы. |
|
|
runs through. |
|
|
|
|
52 |
|
|
ez=true
L |
– total length of swinging arm. |
L |
– общая длина кулисы. |
||
Lp |
– length of swinging arm mortise (should |
Lp |
– длина паза кулисы (не должна быть |
||
not be more than L). |
более L). |
|
|||
Torez– logic parameter, which determines if it |
Torez – логический параметр, который |
||||
is necessary to display end parts of swinging arm |
определяет, отображать торцы кулисы (true) |
||||
(true) or not (false). |
или нет (false). |
||||
procedure StoykaHor(Image:Timage;x,y,LUp,LDn,Orient:integer); |
|||||
|
LUp |
Base Point |
Base Point |
LUp |
|
|
|
|
|||
|
|
(x,y) |
(x,y) |
|
|
|
LDn |
orient=0 |
orient=180 |
LDn |
|
|
|
|
|||
|
|
|
|
|
– procedure responsible for output of horizontal support with a slot.
Procedure parameters are as follow:
x,y - coordinates of basic point of the support.
LUp - Up dimension of a slot. LDn - Down dimension of a slot.
Orient – direction of guide: 0 – to the right, 180 – to the left.
– процедура, которая рисует стойку с возможностью двигаться горизонтально. Параметры процедуры:
x,y - координаты базовой точки стойки. LUp - длина прорези вверх.
LDn - длина прорези вниз. Orient – направление стойки: 0 – вправо, 180 – влево.
procedure StoykaVer(Image:Timage;x,y,LRt,LLf,Orient:integer);
Base Point
(x,y)
LLf |
LRt |
LLf |
LRt |
Base Point (x,y)
orient=90
– procedure responsible for output of vertical support with a slot.
Procedure parameters are as follow:
x,y - coordinates of basic point of the support.
LRt - dimension of a slot to the right direction.
LLf - dimension of a slot to the left direction. Orient – guide direction: 90 – up, 270 – down.
orient=270
– процедура, которая рисует стойку с возможностью двигаться вертикально. Параметры процедуры:
x,y - координаты базовой точки стойки. LRt - длина прорези вправо.
LLf - длина прорези влево. Orient – направление стойки: 90 – вверх, 270 – вниз.
53
|
|
|
|
|
|
osn=true |
|
y1) |
|
osn=true |
osn=false |
osn=false |
|||
(x2,y2) |
|
|
|
|
|
||
|
|
|
|
|
|
||
|
|
procedure NapravHor(Image:Timage;x,y,L:integer); |
|
||||
|
|
|
|
Base Point |
|
||
|
Text |
|
|
(x,y) |
|
|
|
|
osn=true |
osn=false |
,y1) |
L |
|
(x2,y2) |
|
– procedure responsible for output of horizontal guide.
Procedure parameters are as follow:
x,y - coordinates of basic point of guide. l - guide length
osn=true
osn=false
– процедура, которая рисует горизонтальную направляющую.
Параметры процедуры:
x,y - координаты базовой точки напрвляющей.
l - длина направляющей
procedure NapravVer(Image:Timage;x,y,L:integer);
|
|
|
|
|
|
|
|
|
L |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Base Point |
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
(x,y) |
|
|
|||
– procedure responsible for output of vertical |
– процедура, которая рисует вертикальную |
|||||||||||||
guide. Procedure parameters are as follow: |
направляющую. |
|||||||||||||
x,y |
- coordinates of basic point of guide. (the |
Параметры процедуры: |
||||||||||||
point is always on the bottom). |
x,y - координаты базовой точки |
|||||||||||||
l |
- guide length |
напрвляющей. |
||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
l |
- длина направляющей |
54
55