建议开辟一个＂DEA/PPL语言的培训＂小栏目

支持,大家都来呀

program lw[WM1,WM2] element_array MEMORY[300] integer NAME string PPP[20],NAM[20],DATA[20] vector VPAT coord VP real AA,A A=360/4 dy dy("把测尖放入螺纹孔中") noprn AA=date get_position(vp) read prompt "螺距:" (PPP) read prompt "选择平面:" (XYZ) ncmove dist_approach 1.,100. if (Z eq "x") or (Z eq "X") then format (circle,x=meas,y=meas,dm=meas,f=meas) mcir (MEMORY[5],4) for I=0 to 3 by 1 approach (cos (A*I),sin (A*I),0) movetf (X=vp/x+0.5*cos (A*I),Y=vp/y+0.5*sin (A*I),Z=vp/z) end_for elsif (Z eq "y") or (Z eq "Y") then format (circle,y=meas,z=meas,dm=meas,f=meas) mcir (MEMORY[5],4) for I=0 to 3 by 1 approach (0,cos (A*I),sin (A*I)) movetf (X=vp/x+0.5*sin (A*I),Y=vp/y,Z=vp/z+0.5*cos (A*I)) end_for elsif (Z eq "z") or (Z eq "Z") then format (circle,z=meas,x=meas,dm=meas,f=meas) mcir (MEMORY[5],4) for I=0 to 3 by 1 approach (sin (A*I),0,cos (A*I)) movetf (X=-6,Y=vp/y+0.5*cos (A*I),Z=vp/z+0.5*sin (A*I)) end_for end_if endstat end_program (本程序未经求证只是给大家一个方法)

掌握编程技巧,一是构思,二是多练,三是不断总结积累.鉴于大家对此感兴趣,我会全力支持的.非常感谢gcl首先进入角色.如何进行请大家提出建议,我更希望一些老的用户也能助一把力.

Star:你好!~ 我是新手,希望能够从简单的开始!

有编程手册吗?

这个程序正确 program LW[WM1,WM2] element_array MEMORY[300] integer NAME string PPP[20],NAM[20],DATA[20],XYZ[1] vector VPAT coord VP real AA,A,A1,P A=360/4 dy dy("把测尖放入螺纹孔中") prn AA=date ncmove get_position(vp) read prompt "螺距:" (P) dy ("x=xy平面，y=yz平面，z=zx平面") read prompt "选择平面:" (XYZ) A1=P/4 dist_approach 1.,100. if (XYZ eq "x") or (XYZ eq "X") then format (circle,x=meas,y=meas,pr=meas,pa=meas,dm=meas,f=meas) mcir (MEMORY[5],4) savepts for I=0 to 3 by 1 approach (cos (A*I),sin (A*I),0) movetf (X=vp|x+0.5*cos (A*I),Y=vp|y+0.5*sin (A*I),Z=vp|z+A1*I) end_for elsif (XYZ eq "y") or (XYZ eq "Y") then format (circle,z=meas,x=meas,pr=meas,pa=meas,dm=meas,f=meas) mcir (MEMORY[7],4) savepts for I=0 to 3 by 1 approach (0,cos (A*I),sin (A*I)) movetf (X=vp|x+0.5*sin (A*I),Y=vP|y+A1*I,Z=vp|z+0.5*cos (A*I)) end_for elsif (XYZ eq "z") or (XYZ eq "Z") then format (circle,y=meas,z=meas,pr=meas,pa=meas,dm=meas,f=meas) mcir (MEMORY[6],4) savepts for I=0 to 3 by 1 approach (sin (A*I),0,cos (A*I)) movetf (X=vp|x+A1*I,Y=vp|y+0.5*cos (A*I),Z=vp|z+0.5*sin (A*I)) end_for end_if dist_approach 6.,6. endstat end_program

谢谢大家的支持．希望各位师傅能从简单的语句开始．我一点都不会．

有使用手册！

有使用手册啊，就是看不懂。请多指教。