ГОСТ Р ИСО 10303-513—2009
а1: axis2_piacement_3d := axts2_placement_3d (’a1\ origin. pos_z.
pos_x>:
a2: axis2_piacement_3d :* axts2_placement_3d Саг1, origin. pos_y.
pos_x);
at. axis2_placement_3d :« axis2_placement_3d (’at’, ptop. ?. ?);
ab:axis2_placement_3d := axts2_placement_3d (’ab’. pease. ?, ?);
ar: axis2_placement_3d .= axis2_placement_3d (’ar’. pnght.
pos_y. pos_x).
base : plane := plane {’base’, ab):
topplane := plane (’top’, at);
plnght: plane .= plane (’plrtght’. ar);
cyl1 : cytindncal_surface cyllndrical_surface (’cylV.a1.rad1);
cyl2 : cylindncal_surface ;* cy1indrical_surface (’cyl2’. a2. rad2);
circtop ; circle := circle (’circtop’. at. rad 1);
circbase : circle := circle {’clrcbase’. ab . radl);
circnght :circle;= circle(’circrlghr.ar.rad2);
p1.cartesian_point:=
cartesian_point{’p1’. [0.0. 50.0.20.0]);
p2.cartesian_point
cartesian_pomt (’p2’. [3.4729636.49.8792394.19.6961551)).
p3.cartesian_point :=
cartesian_pomt {’p3’. [6.8404029.49.529879.18.793852|);
p4: cartesian_pomt ;=
cartestan_point{’p4‘. [10.0,48.9897949,17.3205081]);
p5: cartesian_polnt :=
cartestan_point{’p5’. [12.8557522. 48.31904.15.320889]);
p6: cartesian_polnt :=
cartestan_point{’p6’. [15.3208889.47.5948565.12.8557522]);
p7; cartesian_point :*
cartesian_pomt (’p7’. [17.3205081.46.904158.10.0]);
p8; cartesian_point ;=
cartesian_pomt (’p8’. [18.7938524.46.3334772.6.84040287));
p9; cartesian_point;»
cartesian_point{’p9’. [19.6961551.45.95717.3.4729635]);
p10 ;carteslan_point.=
cartesian_pomt{’p10’. [20.0.45.8257569.0.0]).
p11:carteslan_pomt .=
cartesian_point{’p1V. [19.6961551.45.95717.-3.4729635)).
p12 ;cartesian_pomt .=
cartesian_point{’pl2’. [18.7938524.46.3334772. -6.84040287]).
p13 : carteslan_pomt .=
cartesian_point{’pl3’. [17.3205081.46.904158.-10.0]);
p14 : carteslan_point .=
cartesian_point{’p14’. [15.3208889.47.5948565.-12.8557522]);
p15 : cartesian_point .=
cartesian_point{’p15’. [12.8557522.48.31904.-15.320889]).
р1б : cartesian_point .=
cartesian_point{’p16’. [10.0.48.9897949.-17.3205081]).
p17 :cartesian_pomt ;■
cartesian point {‘p17‘. [6.8404029.49.529879.-18.793852]).
p18 :cartesian_potnt.“
cartesian point {‘p18’. [3.4729636.49.8792394.-19.6961551]);
p19 :cartesian_pomt :=
cartesian_point (’p19’. [0.0.50.0. -20.0));
p20 :cartesian_pomt :■
cartesian_point(’p20’. [-3.4729636.49.8792394,-19.6961551 J);
p21 :carteslan_pomt
cartesian_point(’p21’. [-6.8404029.49.529879.-18.793852));
p22 :carteslan_point .=
cartesian_point{’p22’. [-10.0.48.9897949. -17.3205081));
36