求证宏程序对错

追梦

6 L# d6 J: d# S) W7 E! yG54 G40 G90 G0 Z100.
S800 M3
G0 X74. Y0. Z100.
9 }: q; _! w/ O: n' `#1=5
#2=0
# `  S6 Z, t& h#3=48.95
WHILE[#2GE-48.95]DO1
#4=46.75-TAN[#1]*#2+31.5
" W1 f1 ^1 ^- {5 w#5=#2+#3
9 j6 B  T' w! FG1 X#4 Z#5 F30
G42 G3 I-#4 F800
2 d# B) s: [& e" K) @#2=#2-1
END1
G0 G90 G54 G40
- m3 @  A, t) s5 e  @7 ?S800 M3
$ V) I9 D9 p, A) l8 T3 iG0 X78.25 Y0
" ?7 _* H5 E" l) n# N% u#1=46.75
#2=40
#3=31.5
5 t0 c4 h! E  i- T7 E( P( @' T9 f#4=-270
( ?% q" k  \- d* R  uG01 Z-48.59 F100
WHILE[#4]LE[-180]
1 D# t. K( {! Q& x#5=[#2-#3]*SIN[#4*PI/180]
#6=[#2-#3]*COS[#4*PI/180]
G01 Z[#6]
; L: H( i( j; [8 WX[#1-#5]
- T! f9 P& u' h8 l- o2 cG02 I[-[#1-#5]]
) b$ e) M  q# ?# ]. Z  o#4=#4+5
ENDW
G0 Z100.
M30

追梦

是不是应该这样写
) s7 q( P! P% HG54 G40 G90 G0 Z100.
S800 M3
G0 X74. Y0. Z100.
% @+ V% d9 m% d+ B7 q#1=5
#2=0
; `1 E' |  L& x- u7 `' s: p1 B9 @7 \#3=48.95
* h8 M& U: n) q" C$ S* u2 Q, EWHILE[#2GE-48.95]DO1
#4=46.75-TAN[#1]*#2+31.5
#5=#2+#3
" f$ G$ }" [0 {4 t4 Y- uG1 X#4 Z#5 F30
1 g5 X2 q2 ]' n; e' N. L$ ZG42 G3 I-#4 F800
( [/ q; u" E9 i4 V! `) q' _) H#2=#2-1
/ K; ~0 {6 |; J6 G  bEND1
G0 G90 G54 G40
S800 M3
  Y6 I& f* t: }, }: }# v8 @. zG0 X78.25 Y0
2 {: j4 r- j) m#1=0
WHILE[#1GE-90]DO1
#2=COS[#1]*25
% Q0 O4 I  i% W7 M& _#3=SIN[#1]*25
G1 X#2 Z#3 F300
G42 G3 I-#2 F1000
#1=#1-1
END1
G0 Z100.
M30

追梦

那位兄弟在线的帮忙看看 急需求证

laomei

可以用VERICUT进行验证，我编的宏没把握时，就在vericut里验证一下，通过了就能大胆地上机床了。

xinsuixue521

高手都玩宏程序

LANG581314

CIMCO Edit V6也可以吧！

寒露

高手都玩宏程序

xue983123

宏程序累不累，有什么好弄的，

ya_blueang

學習謝謝大大分享

xiaonen770

CIMCO就能帮你验证宏程序对错