ГОСТ Р ИСО 13584-101—2010
82402=GUARDED_FUNCTIONAL_DOMAIN(S2403.82405):
s2403=OTHERS();
8240S=TABLE_DEFINED_VALUE(82406);
s2406=SELECT_EXPRESSION((#2407. #2408));
82407=TABLE_LITERAL(8230);
s
2408=EQUALS_EXPRESSION((
s
207. #177));
Г Definition of the methods */
B3000=METHOD<83001.83002. S7);
83001 =METHOD_SPECIF(8140. (#155. 8165. #175. #205. 8215). (890. #100.
8110).
0
):
83002=METHOD_BODV((#97. #107. #117, 8177. #187. #197. #207).
(#3019));
s3019=METHOD_STATEMENT((#3020));
s3020=GUAROED_STATEMENT(#3021. #3023);
83021 =BOOLEAN_LITERAL(.T.);
B3023=CALL_PROGRAM_STATEMENT<#187. #2401. (#97. #107. #117). ().
()>:
ENDSEC;
END-ISO-10303-21;
Г
Физический файл, совместимый с ИСО 10303-21. ассоциируется с внешними файлами, содержащими пара
метрические спецификации геометрии PAW для разных двумерных представлений сторон. Обмен параметричес
кими спецификациями аналогичен обмену параметрическими программами, соответствует требованиям
ИСО 13584-31 и генерируется редактором параметрической геометрии.
Файл Add1_PAW является примером автоматически генерируемой параметрической программы. Данный
файл был автоматически сгенерирован изсистемы EBP (программирование на базе примеров), разработанной для
программного обеспечения генерации программ (в этом примере программой, генерирующей вид спереди, являет
ся PAW_p1)на основе существующего проекта.
SUBROUTINE PAW_p1<d_out.d_lnt)
! implicit declarations
1
!entity types; (d)*r. (p)nt. (I)ln. (c)ir.
!<g)rp.(s)et. (e)nt. (a)rcor(a)2p
IMPLICIT INTEGER <d. p. I. c. g. s. e.a. n )
!
!transfo_type(n) are strings that will contain
! "mirror”, "shift", "rotation* or "homotetia"
IMPLICIT CHARACTER’(80) (t)
!
! prefixofD.P. varused; (r)adlus. (v)al
IMPLICIT DOUBLE PRECISION (r.v)
!
!global constants
INTEGER TDB. CAD
DOUBLE PRECISION ZEROJ/ALUE
PARAMETER (TDB = 0.CAD = 1)
PARAMETER (2ERO_VALUE = 0.001 )
INTEGER Istent (1000)
INTEGER FALSE. TRUE
!
! parameter declarations;
DOUBLE PRECISION d_out
DOUBLE PRECISION d jn t
!
! Include the types of the P31 and LIB functions
include •P31_FUNCTIONS_TYPES1
include ’LIB FUNCTIONS TYPES’
28