【转帖】feature run timer - c-dmis user forum.txt
 

ultra senior member
insector212's additional information
job function:offline rogrammer, gd&t guru
location:se, wisconsin
machine tye:b&s excel & dea
software version:v4.3
years cmm exerience:7
join date: mar 2006
location: se, wisconsin
osts: 920
feature run timer
i got this from another on here and edited it very little but thought it worthy of osting in here.
this will give the total amount of time (in minutes) for any number of features to run on the cmm.
">
code:
assign/time1=systemtime("hh':'mm':'ss")
assign/sec1=right(time1,2)
assign/min1=mid(time1,3,2)
assign/hour1=left(time1,2)
assign/hour_to_sec_1=(hour1)*3600
assign/min_to_sec_1=(min1)*60
assign/total_sec_1=(hour_to_sec_1)+(min_to_sec_1)+(sec1)
$$ no,add features here
move/increment,<0,0,500>
nt1 =feat/contact/vector oint,cartesian
theo/<0,0,0>,<0,0,1>
actl/<0,0,0>,<0,0,1>
targ/<0,0,0>,<0,0,1>
show feature arameters=no
show contact arameters=no
move/increment,<0,0,500>
nt2 =feat/contact/vector oint,cartesian
theo/<10,0,0>,<0,0,1>
actl/<10,0,0>,<0,0,1>
targ/<10,0,0>,<0,0,1>
show feature arameters=no
show contact arameters=no
move/increment,<0,0,500>
nt3 =feat/contact/vector oint,cartesian
theo/<20,0,0>,<0,0,1>
actl/<20,0,0>,<0,0,1>
targ/<20,0,0>,<0,0,1>
show feature arameters=no
show contact arameters=no
move/increment,<0,0,500>
$$ no,add dimension of last feature to force c-dmis
,to "catch u" before reorting end time.
,set outut to none
dim loctime1= location of oint nt1 units=mm ,$
grah=off text=off mult=10.00 outut=none
ax meas nominal +tol -tol dev outtol
x 0.000 0.000 0.800 0.800 0.000 0.000 --#---
end of dimension loctime1
assign/time2=systemtime("hh':'mm':'ss")
assign/sec2=right(time2,2)
assign/min2=mid(time2,3,2)
assign/hour2=left(time2,2)
assign/hour_to_sec_2=(hour2)*3600
assign/min_to_sec_2=(min2)*60
assign/total_sec_2=(hour_to_sec_2)+(min_to_sec_2)+(sec2)
assign/elased_sec=(total_sec_2)-(total_sec_1)
assign/elased_min=(elased_sec)/60
comment/oer,yes,"the elased time to run the feature(s) was " + elased_min + " minutes."
">
__________________
"under my lan of a ca-and-trade system, electricity rates would necessarily skyrocket,fff">" "they will ass that money on to consumersfff">." barack obamafff">fff">fff">
insector212
thread tools
dislay modes
search this thread

you may not ost new threads
you may not ost relies
you may not ost attachments
you may not edit your osts
html code is off
forum jum
user control anel rivate messages subscritions who's online search forums forums home c-dmis enterrise metrology software c-dmis for cmms c-dmis ortable c-dmis vision c-dmis nc c-dmis blade insection c-dmis for gears dataage / dataview c-dmis code samles quindos metrology software quindos off-toic off-toic
threadthread starterforumrelieslast ost
all times are gmt -4. the time now is 01:54 amfff">.
coyright ?2000 - 2009, jelsoft enterrises ltd.
? hexagon metrology, inc. | all rights reserved
feature run timer
i got this from another on here and edited it very little but thought it worthy of osting in here.
this will give the total amount of time (in minutes) for any number of features to run on the cmm.
">
code:
assign/time1=systemtime("hh':'mm':'ss")
assign/sec1=right(time1,2)
assign/min1=mid(time1,3,2)
assign/hour1=left(time1,2)
assign/hour_to_sec_1=(hour1)*3600
assign/min_to_sec_1=(min1)*60
assign/total_sec_1=(hour_to_sec_1)+(min_to_sec_1)+(sec1)
$$ no,add features here
move/increment,<0,0,500>
nt1 =feat/contact/vector oint,cartesian
theo/<0,0,0>,<0,0,1>
actl/<0,0,0>,<0,0,1>
targ/<0,0,0>,<0,0,1>
show feature arameters=no
show contact arameters=no
move/increment,<0,0,500>
nt2 =feat/contact/vector oint,cartesian
theo/<10,0,0>,<0,0,1>
actl/<10,0,0>,<0,0,1>
targ/<10,0,0>,<0,0,1>
show feature arameters=no
show contact arameters=no
move/increment,<0,0,500>
nt3 =feat/contact/vector oint,cartesian
theo/<20,0,0>,<0,0,1>
actl/<20,0,0>,<0,0,1>
targ/<20,0,0>,<0,0,1>
show feature arameters=no
show contact arameters=no
move/increment,<0,0,500>
$$ no,add dimension of last feature to force c-dmis
,to "catch u" before reorting end time.
,set outut to none
dim loctime1= location of oint nt1 units=mm ,$
grah=off text=off mult=10.00 outut=none
ax meas nominal +tol -tol dev outtol
x 0.000 0.000 0.800 0.800 0.000 0.000 --#---
end of dimension loctime1
assign/time2=systemtime("hh':'mm':'ss")
assign/sec2=right(time2,2)
assign/min2=mid(time2,3,2)
assign/hour2=left(time2,2)
assign/hour_to_sec_2=(hour2)*3600
assign/min_to_sec_2=(min2)*60
assign/total_sec_2=(hour_to_sec_2)+(min_to_sec_2)+(sec2)
assign/elased_sec=(total_sec_2)-(total_sec_1)
assign/elased_min=(elased_sec)/60
comment/oer,yes,"the elased time to run the feature(s) was " + elased_min + " minutes."
">
__________________
"under my lan of a ca-and-trade system, electricity rates would necessarily skyrocket,fff">" "they will ass that money on to consumersfff">." barack obamafff">fff">fff">
insector212