唉,这些东西看见都头晕,更搞不懂 |
楼主你知道得太多了,也太有杀伤力了! |
厉害 第一句话把我看晕了。。。 太深奥噢 想起一篇博士论文《回锅肉的做法》 第一节 如何养猪。。。 |
看的人头晕,厉害啊 |
大师!!!!!!! |
我是来看编程大神的。 |
要是能单独一个小软件就好了。以前俺做动画时就用里maya 里的命令编程。很是费脑细胞。不过程序出来都有单独窗口 填写数据 后来行业不景气失业了,不再写程序。程序使用很方便。背后很辛苦。 |
强人 |
johnxm 发表于 2014-2-27 20:46 楼主高人呀,能帮我写个G代码解释程序吗? |
LZ高手,能编一个直接出G代码的铣同步轮脚本吗 |
真是强人,软硬件都精通,佩服佩服! |
太深奥了。不懂。 |
关心老大你那个白钢刀齿形是咋样磨得,一般这种复杂形状成型刀,可以考虑线切割出来。 |
哇塞,高手啊,佩服 |
关于HTD同步轮单齿剖面的g-code.我写了段程序用来产生全系的HTD同步轮的gcode 该程序是用LUA语言写的,当然如果你懂程序也许下面的代码能对你有帮助. ----------------------------------- ----下面是产生齿型的LUA代码 ----------------------------------- local math = require 'math' --Z轴回差 local HZc = 0.6 --X轴回差 local HXc = 0.6 --[[ 输出HTD同步带齿型的gcode --]] local M = { m3={Pb=3,R=0.91,Hg=1.28,R1=0.3,A2=0.762}, m5={Pb=5,R=1.56,Hg=2.16,R1=0.48,A2=1.144}, m8={Pb=8,R=2.57,Hg=3.54,R1=0.8,A2=1.372} } --[[ 输出一个圆弧 圆心点[ox,oy],圆弧点[ax,ay],[bx,by] 将结果简单的输入到一个文件中 --]] function moveto(x,y) print('G0 X'..-x..' Z'..y) end function speed(feedrate) print('G0 F'..feedrate) end --初始化位置但是不停止电机 function g101() print('G101') end function arc(ox,oy,ax,ay,bx,by,e) local R=math.sqrt((ax-ox)*(ax-ox)+(ay-oy)*(ay-oy)) local C=math.sqrt((bx-ax)*(bx-ax)+(by-ay)*(by-ay)) local s = math.acos((R*R+R*R-C*C)/(2*R*R)) local b = math.acos((ax-ox)/R) local N=32 for a=0,N do moveto(R*math.cos(b+e*a*s/N)+ox,R*math.sin(b+e*a*s/N)+oy) end end function circle(ox,oy,r) local N=180 for a=0,N do moveto(r*math.cos(2*a*math.pi/N)+ox,r*math.sin(2*a*math.pi/N)+oy) end end --z齿数,model是HTD同步带的型号可以取m3,m5,m8 --刀胚的宽度width function htd_half(z,model_name,width) local model = M[model_name] if not model then print("Can't found model name:"..model_name) return end --外圆 local Da = z*model.Pb/math.pi - model.A2; --主圆弧中心 local o1x = 0 local o1y = Da-model.Hg+model.R local rb = Da-model.R1 local dr = model.R+model.R1 --圆角弧的中心,余弦定理 local s=math.acos((o1y*o1y+rb*rb-dr*dr)/(2*o1y*rb)) local o2x = rb*math.sin(s) local o2y = rb*math.cos(s) --起始点 local Ax = o2x local Ay = o2y+model.R1 local Bx = model.R*o2x/dr local By = model.R*(o2y-o1y)/dr+o1y --开始绘制 local x,y x = width/2 y = Ay speed(30) moveto(0,0) --顶角作为起始点,将白钢条的一角对准磨盘的顶角 moveto(0,model.Hg+HZc) moveto(0,model.Hg) g101() speed(1) moveto(0,0) arc(o2x-x,o2y-y,Ax-x,Ay-y,Bx-x,By-y,1) arc(o1x-x,o2y-y,Bx-x,By-y,-x,o1y-model.R-y,-1) end |