西門子宏程序教程

Ⅰ 西門子宏程序怎麼編

你是問宏指令還是子程序 還是變數 西門子帶宏字眼的只有一個 就是宏指令 但是整個高級編程幾乎全是講得宏技術 很廣的的 就是我花一星期沒日沒夜的講 也講不完 不過勸你先學好最基礎的東西然後再看看基礎編程就夠你用的了 如果愛好的話再學學高級編程

Ⅱ 法蘭克加工中心宏程序編程怎麼學，有沒有詳細教程

方法和詳細的操作步驟如下：

1、第一步，在MDI模式下，按SET鍵，在屏幕上輸入1，然後版打開參數開關，見下圖權，轉到下面的步驟。

Ⅲ 西門子840D系統，宏程序咋用

這個在西門子中叫R參數，具體的用法和宏程序一樣，先要賦值，我也不是經常用，這個就是凡是能用數學表達式的幾何圖形都可以：比如說橢圓吧
r1=35 賦值長半軸35
r2=15 短半軸15
r3=0 變數的起始點
g0 x=r1+r10 y=r11 這個就是下刀點，也可以不賦值，採用具體的數值。
g1 z-5 f100 最終深度
AAA: 表示條件循環的指令，
r4=r1*cos(r3)+r10 用變數表示新的變數，相當於函數。其中r10，r11表示的剛才的下刀點。
r5=r2*sin(r3)+r11
g1 x=r4 y=r5 f100 工部走新的變數。
r3=r3+1 參數賦值，計算出新的節點
if r3<=360 gotob AAA 條件跳轉。
g0 z200 抬刀
m02 程序結束。如果是圓的話只需r1=r2不過現在很少用這個了，應為計算機編程，加上有u盤或軟盤，程序也比較快，慢慢的這個已經比遺忘了。

Ⅳ 西門子840d銑床用宏程序編寫一個長1米寬200MM，圓弧R180的程序怎麼寫，那位大哥會請教下小弟吧，謝謝！

西門子中唯一提到帶宏字眼的就是宏指令 格式為define 名稱 as 所用到的g功能或者m功能或者子程序或者變數等等
你說的應該是變數的應用，復雜的就不說了最簡單的r參數你可以學學 細講不好講很多書中都有介紹的 r1=r2+r3如果這一句你看不懂就在學學數學基礎吧 還有最常用的跳轉if 條件 goto 目標

Ⅳ 跪求西門子802D數控車床宏程序入門及編程運用

n20
g00
x80
z100
m05
m09
n25
m00
n30
t2d1
m03
s800
m08
（外圓精車刀）
n35
r105=5
（設置坯料切削循環參數）
n40
lcyc95
（調用坯料切削循環精加工）
n45
g00
x80
z100
m05
m09
n50
m00
n55
t3d1
m03
s300
m08
（切槽車刀，刀寬4mm）
n60
g00
x37
z-23
n65
g01
x26
f0.1
n70
g01
x37
n75
g01
z-22
n80
g01
x25.8
n85
g01
z-23
n90
g01
x37
n95
g00
x80
z100
m05
m09
n100
m00
n105
t4d1
m03
s300
m08
（三角形螺紋車刀）
r100=29.8
r101=-3
r102=29.8
（設置螺紋切削循環參數）
r103=-18
r104=2
r105=1
r106=0.1
r109=4
r110=2
r111=1.24
r112=0
r113=5
r114=1
n110
lcyc97
（調用螺紋切削循環）
n115
g00x80
z100
m05
m09
n120
m00
n125
t3d1
m03
s300
m08
（切斷車刀，刀寬4mm）
n130
g00
x45
z-60
n135
g01
x0
f0.1
n140
g00
x80
z100
m05
m09
n145
m02
子程序
l01.spf
n05
g01x0
z12
n10
g03
x24
z0
cr=12
n15
g01
z-3
n20
g01
x25.8
n25
g01
x29.8
z－5
n30
g01
z－23
n35
g01
x33
n40
g01
x35
z－24
n45
g01
z－33
n50
g02
x36.725
z－37.838
cr=14
n55
g01
x42
z－45
n60
g01
z－60
n65
g01
x45
n70
m17

Ⅵ 西門子的宏程序怎麼編

西門子的宏程序都是用R參數來編輯的 要用到的量 再程序里定義好數據類型就可以了
給你發一個 砂輪修整的宏程序你可以參考一下
具體資料可以參考西門子高級編程
%_N_DressAUTO_MPF
;$PATH=/_N_MPF_DIR
;R00 Workpiece Zero position(X axis)
;R01 grinder diameter
;R02 cutting in value
;R03 Mdress times
;R04 linear speed of grinder
;R05 grinder speed
;M27 :diamond start
;M28 :diamond stop
;M31 :cutting in 切入
N000 IF $A_IN[10]==1 GOTOF DMOK
N001 MSG("the wheel not runing")
N002 M00
N003 GOTOF End

DMOK:
N004 R90=0
;N005 IF $A_IN[19]==1 GOTOF DCYCST;到起始位置
;N006 M64 ;tape corrector return
;N007 M62 ;tape corrector to original position
;N008 IF $A_IN[19]==1 GOTOF DCYCST
;N009 MSG("the tape corrector not in original position")
;N015 M00
;N020 GOTOF End
;DCYCST

N010 M27 M23 ;diamond roll start
N015 G0 V0 w0
;N017 DCYC:M31 ;cutting in
N010 R10=41 R11=0 ; R10 修整量設定，R11 修整次數設定
N030 V41
N040 AAA:G01 V=R10+65 F400
N050 R10=R10+150
N060 G0 V=R10
N070 R11=R11+1
N080 IF R11<6 GOTOB AAA
N090 G01 V1004 F400
N100 R12=1004 R13=0
N105 BBB:G01 V=R12-65 F400
N110 R12=R12-150
N115 G0 V=R12
N110 R13=R13+1
N125 IF R13<6 GOTOB BBB
N130 G01 V39 F400
N135 G0 V0
N140 STOPRE
;N145 R90=R90+1 R01=R01-2*R02 R00=R00-R02
;N150 R05=R04*60*1000/(R01*3.142)
;N155 IF R90<R03 GOTOB DCYC
N160 M28 ;diamond stop
End: M30