銑斜面宏程序，請高手講解

車銑刨 · 發(fā)表于 2008-4-2 21:45:41

銑傾斜3度的面的代碼如下：
O0001
#[#1+1*2]=1
G65P9012L1A0B0.1C4I100J3K0
M30

宏程序O9012代碼如下:
G54 G90 G00 X[#3] Y0 Z100
S500 M3
G01 Z0 F300
WHILE[#1LE10]DO1
#7= #1/TAN[#5]+#3
G1Z-#1 X#7
#8=#6/2-ROUND[#6/2]
IF[#8EQ0]GOTO10
G1Y0
GOTO20
N10 Y#4
N20#1=#1+#2
#6=#6+1
END1
G0
Z100

車銑刨 · 發(fā)表于 2008-4-2 21:52:00

各位若能有更簡單的編程請賜教（最好請講解以下，應為我的宏程序水平只能控制一個變量），先謝了

齊樂 · 發(fā)表于 2008-4-2 22:42:26

是你自己編的么?看起來真暈啊,很規(guī)范,但是太復雜了,沒有注解好難理解的
試分析一下

O0001
#[#1+1*2]=1                      ＃１沒登記，為空，那么就是代表了＃［０+２］＝１，＃２＝１
G65P9012L1A0B0.1C4I100J3K0�。＃保�0，＃2=0.1,#3=4,#4=100,#5=3,#6=0,上邊的設定不是沒作用了?不理解
M30

宏程序O9012代碼如下:
G54 G90 G00 X[#3] Y0 Z100  看來#3是平刀半徑等于4
S500 M3
G01 Z0 F300
WHILE[#1LE10]DO1
#7= #1/TAN[#5]+#3 看來#1代表切削深度z,#5代表角度,是3度.#7是實際計算刀具半徑后的坐標
這個工件是左高右低的
G1Z-#1 X#7
#8=#6/2-ROUND[#6/2]  #8的作用是用來驗證精度的?保證不會出現(xiàn)小數(shù)點后第3位是單數(shù),使精度達到0.0005?暈啊,一個平刀,至于么
IF[#8EQ0]GOTO10
G1Y0
GOTO20
N10 Y#4 原來#4是Y的坐標值啊??
N20#1=#1+#2 看來#2是深度步距,是0.1
#6=#6+1 才看明白,原來#6是用來記數(shù)的,偶數(shù)就是一個來回,奇數(shù)就是半個來回,#8是判斷用的,而且還弄錯了,應該是#8=#6-ROUND[#6/2] ,而且就這樣也是畫蛇添足.
END1
G0
Z100 后邊沒有M99???

分析,有實力沒實踐的死讀書作品,超級復雜,毫無意義

齊樂 · 發(fā)表于 2008-4-2 22:47:22

為什么子程序要寫到9012里邊?難道要自己遍G代碼?
這么多個變量,能記住?
暈倒

車銑刨 · 發(fā)表于 2008-4-2 23:14:02

不好意思，這是書上的，我編的是：先算掉球頭刀的半徑，在CAD軟件上繪出Z軸每切深多少另外一軸相應改變多少，死算出來的都是平均分配，所以在編宏程序時只控制2個軸的變量，我就是想要用函數(shù)編咋編，最好能給一程序并講解一下。（我學宏程序時是看別人編的宏程序憑自己理解才會控制2到三個軸，是在CAD上算好后再進行編程）

齊樂 · 發(fā)表于 2008-4-2 23:49:29

G18平面加刀補,用球刀我一般是這么編.
要么做出以刀具半徑為距離的平行線公式,代入程序
多看看書,弄清楚基本規(guī)則,然后回家啃解析幾何.
要想再高深就啃微積分
宏程序網(wǎng)絡上沒幾個優(yōu)秀的
宏程序的編制要下死工夫的,沒太多的竅門,就是數(shù)學公式的運用.
我曾經(jīng)琢磨一個程序花幾個月的時間,絕大部分時間在琢磨數(shù)學公式,真編程沒用幾天.

車銑刨 · 發(fā)表于 2008-4-2 23:59:06

我也是這樣想的，謝了，我正準備去搞幾本數(shù)學書補一下函數(shù)
以后有問題在請教

阿基里斯 · 發(fā)表于 2015-4-22 19:31:40

齊樂發(fā)表于 2008-4-2 22:42
' p9 W$ q# j. F是你自己編的么?看起來真暈啊,很規(guī)范,但是太復雜了,沒有注解好難理解的
) o/ A: o( \: U5 `# C' F: p試分析一下

大俠加個QQ吧

		自動登錄	找回密碼
密碼			注冊會員

銑斜面宏程序，請高手講解

點評