手写宏程序加工内外螺纹Ｍ１８以上的螺纹，锥螺纹同样也可手写

碰巧路过．看见有人写了攻牙的贴．我也来一个．楼主能加分吗？

占位听课！！

没什么的，我做过了，也在机台上试过了···············

为什么要用手写呢，CIM也可以编铣螺纹啊。

程序呢??怎么看不到??

在那
我怎么看不到呀

偶上一个FAUNC的

我们机台孔、槽、线都是使用通用宏程序，从来不用软件写刀路，甚至有锥度是，也是。发个常用的，大家看看是什么程序;

%
O0213
G0G90G#100
#3=#3-#24
IF[#530EQ0]GOTO701
#530=0
N701
#525=3.(R-POINT)
#526=#1(CUTS)
#527=#2(NUMBERS)
IF[#109LE#30]GOTO111
#30=#109+.02
N111#20=#30-#109
IF[#3GT#33]GOTO99
N120
IF[#108EQ0.]GOTO130
GOTO140
N130
#114=#4-COS[45.]*#109
#115=#5-COS[45.]*#109
#116=#6-COS[45.]*#109
#117=#7-COS[45.]*#109
#124=#114
#125=#115
#126=#116
#127=#117
GOTO150
N140
#520=#4+#31*[1-TAN[45-#14/2]]
#521=#5+#31*[1-TAN[45-#15/2]]
#522=#6+#31*[1-TAN[45-#16/2]]
#523=#7+#31*[1-TAN[45-#17/2]]
#114=#520-#109-TAN[#14]*#3-#20*0.293
#115=#521-#109-TAN[#15]*#3-#20*0.293
#116=#522-#109-TAN[#16]*#3-#20*0.293
#117=#523-#109-TAN[#17]*#3-#20*0.293
N122
GOTO123
/IF[[#114+#116]LT[#526*#527]]GOTO99
/IF[[#115+#117]LT[#526*#527]]GOTO99
N123
#124=#520-#109-#20*0.293
#125=#521-#109-#20*0.293
#126=#522-#109-#20*0.293
#127=#523-#109-#20*0.293
N150
#524=#110
IF[#110EQ0]GOTO1001
IF[#110EQ14]GOTO1001
IF[#110EQ15]GOTO1001
GOTO1002
N1001#524=1
N1002IF[#110EQ16]GOTO1003
IF[#110EQ17]GOTO1003
GOTO1004
N1003#524=3
N1004GOTO[#524]
N1#147=1
#528=1
IF[#14EQ0]GOTO1005
GOTO1007
N1005IF[#15NE0]GOTO1006
GOTO1007
N1006#147=0
N1007IF[#15EQ0]GOTO1008
GOTO11
N1008IF[#14NE0]GOTO1008
GOTO11
N1008#528=#147
N11G00X[#124-[#526*#527]*#147]Y-[#125-[#526*#527]*#528]
Z#525
IF[#14EQ0]GOTO1011
GOTO1013
N1011IF[#15EQ0]GOTO101
N1013G01Z0.F#23
N101G01X[#114-[#526*#527]*#147]Y-[#115-[#526*#527]*#528]Z-[#3-2.]F#21
Z-#3F#21
/X[[#114-[#526*#527]*#147]-#32]Y-[[#115-[#526*#527]*#528]-#32]F#21
G00Z#525
#527=#527-1
IF[#527GE0]GOTO11
IF[#110EQ1]GOTO99
#527=#2
IF[#110EQ14]GOTO4
N2#529=1
#528=1
IF[#16EQ0]GOTO1014
GOTO1016
N1014IF[#15NE0]GOTO1015
GOTO1016
N1015#529=0
N1016IF[#15EQ0]GOTO1017
GOTO21
N1017IF[#16NE0]GOTO1018
GOTO21
N1018#528=#147
N21G00X-[#126-[#526*#527]*#529]Y-[#125-[#526*#527]*#528]
Z#525
IF[#16EQ0]GOTO1019
GOTO1020
N1019IF[#15EQ0]GOTO102
N1020G01Z0.F#23
N102G01X-[#116-[#526*#527]*#529]Y-[#115-[#526*#527]*#528]Z-[#3-2.]F#21
Z-#3F#21
/X-[[#116-[#526*#527]*#529]-#32]Y-[[#115-[#526*#527]*#528]-#32]F#21
G00Z#525
#527=#527-1
IF[#527GE0]GOTO21
IF[#110EQ2]GOTO99
IF[#110EQ15]GOTO99
IF[#110EQ16]GOTO99
#527=#2
N3#529=1
#146=1
IF[#16EQ0]GOTO1021
GOTO1023
N1021IF[#17NE0]GOTO1022
GOTO1023
N1022#529=0
N1023IF[#17EQ0]GOTO1024
GOTO31
N1024IF[#16NE0]GOTO1025
GOTO31
N1025#146=#529
N31G00X-[#126-[#526*#527]*#529]Y[#127-[#526*#527]*#146]
Z#525
IF[#16EQ0]GOTO1027
GOTO1028
N1027IF[#17EQ0]GOTO103
N1028G01Z0.F#23
N103G01X-[#116-[#526*#527]*#529]Y[#117-[#526*#527]*#146]Z-[#3-2.]F#21
Z-#3F#21
/X-[[#116-[#526*#527]*#529]-#32]Y[[#117-[#526*#527]*#146]-#32]F#21
G00Z#525
#527=#527-1
IF[#527GE0]GOTO31
IF[#110EQ3]GOTO99
#527=#2
IF[#110EQ16]GOTO2
N4#147=1
#146=1
IF[#14EQ0]GOTO1029
GOTO1031
N1029IF[#17NE0]GOTO1030
GOTO1031
N1030#147=0
N1031IF[#17EQ0]GOTO1032
GOTO41
N1032IF[#14NE0]GOTO1031
GOTO41
N1031#146=#529
N41G00X[#124-[#526*#527]*#147]Y[#127-[#526*#527]*#146]
Z#525
IF[#14EQ0]GOTO1034
GOTO1035
N1034IF[#17EQ0]GOTO104
N1035G01Z0.F#23
N104G01X[#114-[#526*#527]*#147]Y[#117-[#526*#527]*#146]Z-[#3-2.]F#21
Z-#3F#21
/X[[#114-[#526*#527]*#147]-#32]Y[[#117-[#526*#527]*#146]-#32]F#21
G00Z#525
#527=#527-1
IF[#527GE0]GOTO41
N99G00Z200.
M99
%

%
O0212
G0G90G#100
#111=0.
#22=#21*0.5
M98P299
#29=0.
#149=#109*1.24
#140=[#24-#31]*[1-SIN[#14]]
#141=[#25-#31]*[1-SIN[#15]]
#142=[#26-#31]*[1-SIN[#16]]
#143=[#27-#31]*[1-SIN[#17]]
#8=#140
#18=#24
IF[#141GT#8]THEN#8=#141
IF[#142GT#8]THEN#8=#142
IF[#143GT#8]THEN#8=#143
IF[#8EQ#141]THEN#18=#25
IF[#8EQ#142]THEN#18=#26
IF[#8EQ#143]THEN#18=#27
#144=#4-[#33-#24*[1-SIN[#14]]]*TAN[#14]-#24*COS[#14]
#145=#5-[#33-#25*[1-SIN[#15]]]*TAN[#15]-#25*COS[#15]
#146=#6-[#33-#26*[1-SIN[#16]]]*TAN[#16]-#26*COS[#16]
#147=#7-[#33-#27*[1-SIN[#17]]]*TAN[#17]-#27*COS[#17]
#138=0
IF[#18NE0]THEN#19=90.0*#2/[1.57*#18]
#10=#1+#2
IF[#10GT#3]GOTO10
IF[#3GT#33]GOTO10
N1#9=#33-#10
IF[#8LE#9]GOTO20
IF[#2GT0.7]GOTO20
IF[#138EQ0.]THEN#133=90.-ACOS[[#18+#10-#33]/#18]
#138=1
#10=#33-#18+#18*SIN[#133]
IF[#10GE#3]THEN#10=#3
IF[#133GE90.]THEN#10=#3
#9=#33-#10
#133=#133+#19
IF[#133GE90.]THEN#133=90.
N20IF[#10GT[#33-#140]]GOTO25
#124=#4-#109-#10*TAN[#14]+#114
GOTO30
N25#124=#144-#109+#31+SQRT[2*#9*[#24-#31]-#9*#9]
N30IF[#10GT[#33-#141]]THENGOTO35
#125=#5-#109-#10*TAN[#15]+#115
GOTO40
N35#125=#145-#109+#31+SQRT[2*#9*[#25-#31]-#9*#9]
N40IF[#10GT[#33-#142]]THENGOTO45
#126=#6-#109-#10*TAN[#16]+#116
GOTO50
N45#126=#146-#109+#31+SQRT[2*#9*[#26-#31]-#9*#9]
N50IF[#10GT[#33-#143]]THENGOTO55
#20=#30-#109-#10*TAN[#17]+#117
#127=#7-#109-#10*TAN[#17]+#117
GOTO60
N55#127=#147-#109+#31+SQRT[2*#9*[#27-#31]-#9*#9]
N85
#20=#30-#109
GOTO60
#500=#30-[#33-#27*[1-SIN[#17]]]*TAN[#17]-#27*COS[#17]
#20=#500-#109+#31+SQRT[2*#9*[#27-#31]-#9*#9]
N60IF[#29EQ0.]THEN#20=#30-#109
IF[#20LT0]THEN#20=0
#134=#124-#20
#135=#125-#20
#136=#126-#20
#137=#127-#20
/IF[[#124+#126]LT[#32]]GOTO10
/IF[[#135+#137]LT[#32+1.5]]GOTO10
G0G90X[#134-#32]Y[#127-#32]
G1G90Z-[#10-#2]F3000
G1G90X[#134-#32/4.]Y[#127-#32/4]Z-#10F#21
G3R#32X#134Y#127F#22
G1X-#136F#21
G3R#20X-[#126+0.00]Y#137F#22
G1Y-#135X-#126F#21
G3R#20X-#136Y-#125F#22
G1X#134F#21
G3R#20X[#124+0.00]Y-#135F#22
G1Y#137X#124F#21
G3R#20X#134Y#127F#22
G3R#32X[#134-#32]Y[#127-#32]F#21
/GOTO15
N2
#504=#124-#149
#505=#125-#149
#506=#126-#149
#507=#127-#149
N3
IF[#504LT-[#149/3.]]GOTO15
IF[#505LT-[#149/3.]]GOTO15
IF[#506LT-[#149/3.]]GOTO15
IF[#507LT-[#149/3.]]GOTO15
G1G90X#504Y#507F#21
Y-#505F#21
X-#506F#21
Y#507F#21
X#504F#21
N4
#504=#504-#149
#505=#505-#149
#506=#506-#149
#507=#507-#149
GOTO3
N15
IF[#10EQ#3]GOTO10
#105=#3-#107
IF[#10GE#105]GOTO16
N5
IF[#10EQ#3]GOTO10
#10=#10+#2
IF[#10LE#3]GOTO1
IF[#10GT#3]GOTO20
N16
#10=#10+#106
IF[#10LE#3]GOTO1
IF[#10GT#3]GOTO20
N20
#10=#3
GOTO1
N10
G0G90Z100.
G52X0Y0
M99
%

楼上的厉害