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

huangyhg

ultra senior member
insector212's additional information
job functionffline 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