【讨论】有谁能帮我解释这个macro program程序呢？ - iCAx开思网

iCAx开思网

标题:

作者:

时间:

标题:

guiwen_03@yahoo.com.hk 谢谢！！
G90 G80 G54;
#525=31.(Y.AXIS.START.PT);
#526=450.(Y.AXIS.END.PT);
#527=1.0(INCREMENT);
IF[#525 GE #526]GOTO10;
#528=#525-#526;
IF[#528 LE0]GOTO5;
GOTO2;[img][/img]
N5;
#528=[1.0*#528];
N2;
#529=FUP[#528/#527/1];
#527=#528/#529/1;
G19;
T1 M6;
GO G90 G54 X-60. Y-31. S880.M3;
G43 Z3. H1 M8;
G1 Z3. F40;
N1;
G90 G1 T77.831 Z-13.915 R85.76 F250;
Y107.922 Z-8.385;
Y111.59 Z3.;
#525=[#525+#530];
IF[#525 GT#526]GOTO10;
G90 G0 Y[#525];
X#528;
GOTO1;
G1 Z3. F200;
N10;
G91 G28 Z0.M5;
G28 Y0. M9;
M30;

作者: guiwen_03 时间: 2003-5-4 12:31
工件长是450mm

作者: adar 时间: 2003-5-4 12:47
I will reply tomorrow

作者: wwggkk 时间: 2003-5-4 22:49
G90 G80 G54;
  #525=31.(Y.AXIS.START.PT); 变量赋值（y轴的起点）
  #526=450.(Y.AXIS.END.PT); 变量赋值（y轴的终点
  #527=1.0(INCREMENT); 变量赋值（增量值
  IF[#525 GE #526]GOTO10; 如果#525的值大于等于#526的值, 跳到N10
  #528=#525-#526;       把525的值减去526的值的结果赋值给变量#528
  IF[#528 LE0]GOTO5; 如果变量#528的值小于等于0，跳到N5
  GOTO2;[img][/img]    如果都不符合上述条件则跳到N2
  N5;
  #528=[1.0*#528];    这句可能有误，::?
  N2;
  #529=FUP[#528/#527/1];    以下的以此类推，和BASIC语言的语法完全相同
  #527=#528/#529/1;
  G19;
  T1 M6;
  GO G90 G54 X-60. Y-31. S880.M3;
  G43 Z3. H1 M8;
  G1 Z3. F40;
  N1;
  G90 G1 T77.831 Z-13.915 R85.76 F250;
  Y107.922  Z-8.385;
  Y111.59 Z3.;
  #525=[#525+#530];
  IF[#525 GT#526]GOTO10;
  G90 G0 Y[#525];
  X#528;
  GOTO1;
  G1 Z3. F200;
  N10;
  G91 G28 Z0.M5;
  G28 Y0. M9;
  M30;

作者: guiwen_03 时间: 2003-5-5 00:06
“BASIC语言的语法”是什么呀？在那网上有资料吗？

作者: wwggkk 时间: 2003-5-5 00:40

guiwen_03 wrote:
“BASIC语言的语法”是什么呀？在那网上有资料吗？

晕

作者: guiwen_03 时间: 2003-5-5 00:55
wwggkk
你好，我真的不知道BASIC语言的语法”是什么，你能告诉我吗？谢谢！！！！！！

作者: adar 时间: 2003-5-5 07:50
#525=31.(Y.AXIS.START.PT); *#525設為31,作者注解為Y軸起始點*
#526=450.(Y.AXIS.END.PT); *#526設為450,作者注解為Y軸終點*
#527=1.0(INCREMENT); *#527設為1*
IF[#525 GE #526]GOTO10;*假如#525大於或同於#526執行10,
                         #525=31,#526=450,所以31沒有>=450,
                         條件不成立繼續執行下一行*
#528=#525-#526; *#528的值為#525-#526也就是31-450=-419,
                             #528=-419*
IF[#528 LE0]GOTO5; *假如#528小於或等於0執行N5,#528現在是-419小於
                   0,條件成立執行N5*
GOTO2;[img][/img] *執行行號N2*
N5;
#528=[1.0*#528]; *#528的值為1×#528,也就是1×-419= -419沒有意義
                    的指令 *
N2;
#529=FUP[#528/#527/1]; *#529的值為#528/#529/1再取小數點後面的
                           值,也就是-419/1/1=-419.0取小數點後面的值
                           ,那就是#529=0*
#527=#528/#529/1; *#527的值為#528/#529/1,也就是-419/0/1=0*
G19;
T1 M6;
GO G90 G54 X-60. Y-31. S880.M3;
G43 Z3. H1 M8;
G1 Z3. F40;
N1;
G90 G1 T77.831 Z-13.915 R85.76 F250; *為何G0會有T77.831R85.76？*
Y107.922 Z-8.385;
Y111.59 Z3.;
#525=[#525+#530]; *#525的值等於#525加#530,因整個程式未定義
                      #530的值,以暫且當為1所以#525等於31+1=32
IF[#525 GT#526]GOTO10; *假如#525大於#526去執行N10*
G90 G0 Y[#525]; *#525=32,Y到32的位置*
X#528; *528= -419 ,X到-419的位置*
GOTO1;*去執行N1,這裡產生一個迴圈#525=32+1會累加一直到#525大於
         #526時才會跳出迴圈執行下一行,如果#530小於0那就永遠跳不出
          來了*
G1 Z3. F200;
N10;
G91 G28 Z0.M5;
G28 Y0. M9;
M30;
這是MACRO Ｂ的格式,我不知道你那裡取得的程式,亂無章法,很多指令在此根本不須要,寫了一堆結果只做G0快速定位根本沒有切削。？？？

作者: guiwen_03 时间: 2003-5-6 09:45
adar 谢谢你，我们能交个朋友吗？我的QQ是147615397

作者: adar 时间: 2003-5-7 08:16

guiwen_03 wrote:
adar 谢谢你，我们能交个朋友吗？我的QQ是147615397

不客氣,macro program 是我的專長,因cam發展迅速,用macro 的机會不多了所以才學mastercam的，有不明白的請告知，我會盡量幫你,不過我不知道QQ是什麼？

作者: guiwen_03 时间: 2003-5-7 08:40
你好，谢谢你QQ是聊天的呀，你能教我在mastercam 8.1里怎么画3D图和编程吗？

作者: xyzxmb0519 时间: 2003-5-7 14:52

guiwen_03 wrote:
你好，谢谢你QQ是聊天的呀，你能教我在mastercam 8.1里怎么画3D图和编程吗？

我建议你还是先看看书，不懂的地方拿来大家讨论，不学会自己看书，即使人家有时间教你，你也将是很难学得扎实的，自己多练

作者: kkqqjj 时间: 2003-5-7 18:32

guiwen_03 wrote:
wwggkk
你好，我真的不知道BASIC语言的语法”是什么，你能告诉我吗？谢谢！！！！！！

BASIC是计算机编程序的语言，在校学生一般都学过。

你这个程序看起来象是个古董居然还有GOTO语句，那里来的？

建议你买Mastercam的正规教材看看，没人会一步步教你。

QQ是类似MSN的即时交流工具https://www.tencent.com/  有下载

作者: hscnc 时间: 2003-5-7 20:57
对一些简单的东东,或是经常要阵列的场合,还是很好的.不出图了或是只出一个就够了.

作者: adar 时间: 2003-5-8 08:31

kkqqjj wrote:

  
  BASIC是计算机编程序的语言，在校学生一般都学过。
  
  你这个程序看起来象是个古董居然还有GOTO语句，那里来的？
  
  建议你买Mastercam的正规教材看看，没人会一步步教你。
  
  QQ是类似MSN的即时交流工具https://www.tencent.com/  有下载

GOTO的語句在MACRO 編程是非常重要的,所有條件判斷,迴圈一定要有GOTO的語句,除了WHILE[.....] DO1
                END1
MACRO 編程在FANUC的operator's manual寫的很清楚,對初學者很有幫助。

作者: guiwen_03 时间: 2003-5-9 08:37
请问adar：
FANUC的operator's manual在哪里有呢？

作者: adar 时间: 2003-5-10 08:17

guiwen_03 wrote:
请问adar：
  FANUC的operator's manual在哪里有呢？

你的信箱裡有,pdf檔

作者: guiwen_03 时间: 2003-5-10 10:24
在哪？我没有看到呀

作者: kkqqjj 时间: 2003-5-10 10:56
adar

请给我一份

kkqqjj@21cn.com

作者: adar 时间: 2003-5-14 23:06

guiwen_03 wrote:
在哪？我没有看到呀

kkqqjj wrote:
adar
   
请给我一份
  
kkqqjj@21cn.com

已經e-mail給你們兩位了！有沒有收到？

作者: guiwen_03 时间: 2003-5-15 08:12
没有呀，能在来一次吗？谢谢

作者: hhz 时间: 2003-5-17 08:43
这是我见到的最有意思的贴子了。各位交个朋友，我的E-MAIL：LZD33V@21CN.COM

adar : 也能给我一份吗？现在知道MACRO（大陆也叫“用户宏”）的人确实不多了，以后还请多多指教。

作者: kkqqjj 时间: 2003-5-17 09:17
有两个人发给了我，感谢感谢。

作者: 372101 时间: 2003-5-18 16:11
adar:你好!能否也给我一份,十分感谢!e-mail:yichunf1@yahoo.com.cn

作者: adam_onelus 时间: 2014-8-23 07:40
顶一下！！！

欢迎光临 iCAx开思网 (https://www.icax.org/)