MC X3增加自動校刀程式

joe0827joe

我想在 "M100", tlngno$,這個地方
增加大直徑的刀子X.Y的偏移量
" e$ q* t. D9 W  g3 P8 H- c. K) e可是不知道該如何取得直徑還有運算最後結果
那個X.Y偏移量是例如像這樣
+ [2 y$ P3 i' T' E0 ^8 vM100 T6 X20. Y10.
這樣表示刀子在對刀時偏移X20. Y10.
0 c3 f/ _( v- m& i求助各位大神{:4_108:}

以下為部分代碼:
  k8 W5 b8 M) G  v2 y     if stagetool >= zero, pbld, n$, *t$, "M6", e$
* g$ u0 C5 e0 {: U      pbld, n$, "M100", tlngno$, e$ #修改處，新增這一行 多了M100自動校刀
      pindex
      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        pfcout, *speed, *spindle, pgear, strcantext, e$
+ t* F3 U  g4 U      pbld, n$, "G43", *tlngno$, pfzout, scoolant, next_tool$, e$
- _: [6 |% ?" ^      absinc$ = sav_absinc
      pcom_movea
      toolchng = zero
; l, R, ^' C# e: k6 Q  r      c_msng$ #Single tool subprogram call

若枫

回复 1# joe0827joe
( w' H7 c4 N, U% P' G9 S( {
; t. l) V1 W. C) E
/ E% |5 V3 }/ S2 n9 O    多大直径的刀具叫大直径？可以直接使用直径判断要不要输出。
if tldia$ > 你的设定直径，你的偏移量。

joe0827joe

# z4 O1 t: ~9 e4 A) r" N
) i1 ~  S+ w; l' c回复 2# 若枫
, v; I: @" l- m8 x! I: \. p+ v
; m0 X3 r7 r# m. x0 }2 A2 e/ D3 c; N$ E大徑刀直徑20以上都是(這個直徑可能要再去量一下)tldia$的參數輸出不是純數字前面還含有TOOL DIA.-的英文字不太會寫if判斷式之後的部分
2 I2 d- J6 L% s2 J% C5 x0 I沒碰過這種的程式語言...
+ _2 i" S7 O4 Z$ d  j  Y- w  a4 p請問可以給個範例嗎?

加入tldia$輸出結果如下
/ u3 @# r6 i* T$ Y) S, X3 l

若枫

fmt  X  2   xdia       #X position output
% y* F4 L1 t4 Jfmt  Y  2   ydia        #Y position output
' M% |' H6 h; r. u$ {: v
7 T9 I1 k1 W+ ?5 b0 f/ x
* ]: m! ]4 `/ i5 t& @9 l4 F5 aif tldia$ > 你的设定直径，
  [
' T0 c( x! S+ e8 Z$ r7 t$ r   xdia = tldia / 2
   ydia = tldia / 2
  "M100", *tlngno$, *xdia, *ydia, e$
]

joe0827joe

回复 4# 若枫
8 m3 x5 |; G% z
下面是依照若楓大給的照抄，不過還是出錯了我在想是不是那個tldia無法轉數字的關係?
5 J* Z& N0 H6 b3 v      #修改處 以下在T?? MO6換刀指令後增加此行，自動校刀長指令(此指令為特殊機能)，大於20之大徑刀會自動偏置
      fmt X 2 xdia #X偏移輸出
7 a2 ^0 ~) i3 w4 m      fmt Y 2 ydia #Y偏移輸出
  a1 @5 d  m* k" ]: H) ^$ r& o/ r      if tldia$>20,
6 [7 b  F7 W) d) {' l6 c1 @0 @7 h      [
& Z4 }2 V1 j- l' a0 T" V      xdia=tldia/2
      ydia=tldia/2
# v9 k; O- g! Z5 \7 P; Z      pbld, n$, "M100", *tlngno$, *xdia,*ydia, e$
      ]
      #修改處 以上在T?? MO6換刀指令後增加此行，自動校刀長指令(此指令為特殊機能)，大於20之大徑刀會自動偏置
4 g9 k! n+ P' H& {3 h

% p. K) R9 `, J* Y1 P下面是錯誤報告
5 Z# ~/ k  O3 [/ j07 Dec 2016 09:08:04 AM - 建立報告
07 Dec 2016 09:08:04 AM - 初始化後處理日誌檔案
07 Dec 2016 09:08:04 AM - 使用 MP 版本執行 19.00 和後處理組件版本 19.00
( q2 w2 q4 M3 k2 U% }+ E+ Q7 D7 @07 Dec 2016 09:08:04 AM - 初始化開啟後處理程式檔案。
07 Dec 2016 09:08:04 AM - C:\Users\Public\Documents\shared Mcam2017\mill\Posts\MPFAN.PST
9 J. A- \) a* L' {8 l  u. z7 ?07 Dec 2016 09:08:04 AM - 已成功開啟後處理程式檔案。
07 Dec 2016 09:08:04 AM - 成功初始化預定義的後處理變量、字符串、後處理塊。
. C8 v, c/ }' V' E- G07 Dec 2016 09:08:04 AM - 成功搜索定義的後處理變量、字符串、後處理塊。
4 D3 n4 W# E) e6 [6 V07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
2 J2 A7 L6 B  Q& a07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[11]
! f- U: \$ Q! d07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[15]
07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
+ B' _, S8 A, D, d3 ~07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[11]
07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[15]
1 C. A/ a& W0 G; [( Z# B/ p3 y! H07 Dec 2016 09:08:05 AM - PST 行 (911) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
. O! I# C- L& e. K6 h/ J07 Dec 2016 09:08:05 AM - PST 行 (911) - 後處理塊輸出類型失敗！, , 找不到所需的標籤[11], 出現非法字符
07 Dec 2016 09:08:05 AM - PST 行 (912) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
07 Dec 2016 09:08:05 AM - PST 行 (912) - 後處理塊輸出類型失敗！, , 找不到所需的標籤[11], 出現非法字符
# k( G6 `2 w8 L# p07 Dec 2016 09:08:05 AM - PST 行 (913) - 後處理塊輸出類型失敗！, , 尚未定義標籤[35]
9 e  p1 N5 [  ~; X07 Dec 2016 09:08:05 AM - PST 行 (913) - 後處理塊輸出類型失敗！, , 尚未定義標籤[41]
  n4 V7 `0 Z( ]5 ^! f/ c07 Dec 2016 09:08:05 AM - 後處理過程成功完成。

若枫

回复 5# joe0827joe
6 C! z8 h- `1 @1 d+ C3 N
难道一点后处理知识都没有吗？这么明显的问题，应该一眼就可以看出来吧。
* a3 i0 {# c) m" \: c/ I: T         fmt "X" 2 xdia #X偏移輸出
0 @0 x- c& g, w) X1 M         fmt "Y" 2 ydia #Y偏移輸出

wang1314

只能看看帮不上忙

742698

只能看看帮不上忙

1931062882

学习学习，。。。。。。。。。。