!*******************************************************
! UpdProfileData
! 
! Program to define profile lenght accuracy
! Save this file to ...\custom\macros
!
debug ./updprofiledata
!
!*******************************************************
id= get($DATABASE_ID)
dbopen(1) "ALREADY_OPEN",id
l= get($LENGTH)
a1= get($ANGLE1)
a2= get($ANGLE2)
a3= get($ANGLE3)
a4= get($ANGLE4)
!
!
! uncomment following line for one decimal (1) accuracy:
l= int(1*l)/1
!
! uncomment following line for one decimal (0.1) accuracy:
!l= int(10*l)/10
!
! uncomment following line for two decimals (0.01) accuracy:
!l= int(100*l)/100
!
a1= int(10*a1)/10
a2= int(10*a2)/10
a3= int(10*a3)/10
a4= int(10*a4)/10
if l > 0.0 then
  dbputf(1) 0,"DIMENSIONS",l
endif
dbputf(1) 0,"PROF_ANGLE1",a1
dbputf(1) 0,"PROF_ANGLE2",a2
dbputf(1) 0,"PROF_ANGLE3",a3
dbputf(1) 0,"PROF_ANGLE4",a4