startup

来自「proe5.0野火版下载(中文版免费下载)」· 代码 · 共 67 行

'03-Oct-97 pwalker; removed node and changed End -> EndEnd and Org->OrgEnt'
'21-Mar-96 rnichols; first submitted version'

'========================================'
'startup file for the NCBuilder evaluator'
'========================================'

r~error=message:"bad variable or data address"

'some definitions'
r~true=boolean:(bool)1
r~false=boolean:(bool)0
r~yes=true
r~ok=true
r~no=false
r~VOID=word:

'the datatypes we support -- the form() function depends on these'
r~type=\
textstr:typeof("text"),\
structure:typeof(z_=1,1),\
integer:typeof((int)1),\
real:typeof(1),\
limit:typeof(lim(1,1)),\
vector:typeof(vec(1,1,1)),\
location:typeof(loc(1,1,1)),\
orient:typeof(ori(1,1,1,1,1,1,1,1,1,1,1,1)),\
transform:typeof(tra(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)),\
boolean:typeof((bool)1),\
entity:typeof($1),\
void:typeof(VOID),\
data_ad:typeof(&z_),\
sym_ad:typeof(zz_=(nest)z_),\
unset:typeof(1),\
type:typeof(typeof(1));

'variables for digitize function'

r~XYLoc=5
r~XYLocOnly=95
r~XYZLoc=9
r~XYZLocOnly=99
r~XLoc=91
r~YLoc=92
r~ZLoc=93
r~Ent=106
r~EntMip=6
r~EndLoc=10
r~View=13
r~EndEnt=8
r~OrgEnt=12

r~SurfMask=tra(16384,31,0,0,0,6400,0,0,0,0,0,0,0,0,0,0)
r~BoundMask=tra(4968,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0)
r~EchoMask=tra(21352,31,0,0,64,6400,0,0,0,0,0,0,0,0,0,0)
r~NoMask=tra(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
r~EdgeMask=tra(21352,31,0,0,0,6400,0,0,0,0,0,0,0,0,0,0)
r~HoleMask=tra(36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
r~PathMask=tra(0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0)
r~FastenMask=tra(45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
r~LineMask=tra(8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)

layinc=1
pick=1

re~wunits = '{ env ("Get ~.PartUnits" ) }'