$$ LIABILITY STATEMENT:
$$ ___________________
$$
$$ Entelegence Software Solutions Inc., and their representatives hold no
$$ liability as to the contents and/or results obtained by using the sample
$$ code below.
$$
$$ The sole purpose of this sample code is to assist customers and third
$$ party CMM application writers in becoming more profficient in the
$$ writing of DMIS CMM application programs.
$$
$$ Entelegence Software Solutions Inc., and their representatives
$$ will not be held liable for injury, death, machine damages, claims
$$ made as a result of the use of this program, nor any other claim as to
$$ it's fit for use.
$$
$$ Machine configuration statement if applicable :
$$ This DMIS macro was written and tested on a Bridge type CMM with an
$$ Automatic Renishaw Probe Head mounted in the NEGATIVE Z direction with
$$ the LED pointed in the NEGATIVE Y direction.
$$ PROGRAM FUNCTION :
$$ This DMIS program scribes a diameter where the operator can input the X and
$$ Y location as well as the Diameter to be scribed. This program is designed
$$ to scribe diameters in the XY plane only at a Z value of ZERO. The Z value
$$ can also be changed to become a variable input.
$$ *************************************************************************************
$$ENDLAYER
mode/man
decl/real,x,y,z,alfa,dia,r,hoek,x0,y0,z0
decl/intgr,index,initial,limit,incr
decl/char,10,name
text/query,(x0),10,an,l,'Enter x value of the center of the circle to enscribe :'
text/query,(y0),10,an,l,'Enter y value of the center of the circle to enscribe :'
text/query,(dia),10,an,l,'Enter the diameter of the circle to enscribe :'
initial=0
r=0.5*dia
z0=0
mode/prog,man
do/index,initial,360,1
HOEK=RL(INDEX)
x=r * cos(dtor(hoek))
y=r * sin(dtor(hoek))
goto/x+x0,y+y0,z0
hoek=hoek+1
enddo
endfil
