MC X3增加自動校刀程式

joe0827joe

我想在 "M100", tlngno$,這個地方
. z  ~& P- a) |% U6 ^3 r! H增加大直徑的刀子X.Y的偏移量
可是不知道該如何取得直徑還有運算最後結果
那個X.Y偏移量是例如像這樣
M100 T6 X20. Y10.
! L9 ^2 W# A# `+ V- a& ]/ o5 s. V這樣表示刀子在對刀時偏移X20. Y10.
求助各位大神{:4_108:}

1 q0 g& Y4 J0 i/ N4 d/ P# I以下為部分代碼:
5 r7 }7 o. E( r$ g# }: @     if stagetool >= zero, pbld, n$, *t$, "M6", e$
! V0 }4 Q1 X, }: ^$ Y      pbld, n$, "M100", tlngno$, e$ #修改處，新增這一行 多了M100自動校刀
- P6 Z; R( s7 V4 g" w      pindex
      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        pfcout, *speed, *spindle, pgear, strcantext, e$
5 k2 c' f' s" p& T      pbld, n$, "G43", *tlngno$, pfzout, scoolant, next_tool$, e$
9 b# R8 [8 W# j/ d3 J8 P+ Y2 i      absinc$ = sav_absinc
      pcom_movea
# p6 f- ~$ I0 v* Y: d      toolchng = zero
  T& B) p1 f! `; H% b5 G, ]1 w      c_msng$ #Single tool subprogram call

若枫

回复 1# joe0827joe
3 m- i6 |3 w1 n( Z/ c9 V

* W8 e8 W6 z: u    多大直径的刀具叫大直径？可以直接使用直径判断要不要输出。
if tldia$ > 你的设定直径，你的偏移量。

joe0827joe

/ L6 l/ a! E) [1 r; B' g4 H$ H& H! E
回复 2# 若枫

+ I2 j; p0 ]! N- S6 d大徑刀直徑20以上都是(這個直徑可能要再去量一下)tldia$的參數輸出不是純數字前面還含有TOOL DIA.-的英文字不太會寫if判斷式之後的部分
1 o$ |) C3 x" o2 v沒碰過這種的程式語言...
. |3 V4 X# x/ e9 G7 e( q( l請問可以給個範例嗎?

# z$ v% Q- }5 W! c: }- P加入tldia$輸出結果如下

若枫

fmt  X  2   xdia       #X position output
fmt  Y  2   ydia        #Y position output
. p1 u3 A7 y1 E( I' o

if tldia$ > 你的设定直径，
  [
   xdia = tldia / 2
   ydia = tldia / 2
  "M100", *tlngno$, *xdia, *ydia, e$
]

joe0827joe

回复 4# 若枫

% S: _6 L/ \1 N0 m7 \+ u: u下面是依照若楓大給的照抄，不過還是出錯了我在想是不是那個tldia無法轉數字的關係?
      #修改處 以下在T?? MO6換刀指令後增加此行，自動校刀長指令(此指令為特殊機能)，大於20之大徑刀會自動偏置
. a5 u' F( j3 |  s- i7 i: n, p      fmt X 2 xdia #X偏移輸出
$ w: ]" ?- p1 p% n; b; o) t      fmt Y 2 ydia #Y偏移輸出
: V; Q# |' N/ x( n      if tldia$>20,
, K3 j0 C* n' q) O" v" ]& p      [
* ^' y0 q! b- q6 Y      xdia=tldia/2
/ P( T4 v# C" N( J      ydia=tldia/2
      pbld, n$, "M100", *tlngno$, *xdia,*ydia, e$
! D0 z6 [9 j) D' ]' K3 u0 j      ]
2 j1 K- i8 J7 d" G. i2 t$ A      #修改處 以上在T?? MO6換刀指令後增加此行，自動校刀長指令(此指令為特殊機能)，大於20之大徑刀會自動偏置

, a. n! M8 D0 @, J" {  K
下面是錯誤報告
07 Dec 2016 09:08:04 AM - 建立報告
3 \2 _; i6 |+ }4 |9 f% g6 t) O07 Dec 2016 09:08:04 AM - 初始化後處理日誌檔案
! Z- k" `0 A! I$ Q# d7 W2 F  r07 Dec 2016 09:08:04 AM - 使用 MP 版本執行 19.00 和後處理組件版本 19.00
. e& Y: s& c( Q0 z+ X) I07 Dec 2016 09:08:04 AM - 初始化開啟後處理程式檔案。
07 Dec 2016 09:08:04 AM - C:\Users\Public\Documents\shared Mcam2017\mill\Posts\MPFAN.PST
07 Dec 2016 09:08:04 AM - 已成功開啟後處理程式檔案。
; x8 ?+ R1 H5 w, Y! C' _# B07 Dec 2016 09:08:04 AM - 成功初始化預定義的後處理變量、字符串、後處理塊。
07 Dec 2016 09:08:04 AM - 成功搜索定義的後處理變量、字符串、後處理塊。
( l: N% ^3 j# M: p! u. Y07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
' q8 g: R. r- U" u4 `% l07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[11]
07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[15]
07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[11]
( ~8 R) X$ O$ G: v9 }07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[15]
07 Dec 2016 09:08:05 AM - PST 行 (911) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
07 Dec 2016 09:08:05 AM - PST 行 (911) - 後處理塊輸出類型失敗！, , 找不到所需的標籤[11], 出現非法字符
& l' n6 D) k7 c0 _+ U$ n0 i07 Dec 2016 09:08:05 AM - PST 行 (912) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
07 Dec 2016 09:08:05 AM - PST 行 (912) - 後處理塊輸出類型失敗！, , 找不到所需的標籤[11], 出現非法字符
07 Dec 2016 09:08:05 AM - PST 行 (913) - 後處理塊輸出類型失敗！, , 尚未定義標籤[35]
07 Dec 2016 09:08:05 AM - PST 行 (913) - 後處理塊輸出類型失敗！, , 尚未定義標籤[41]
7 C9 e& I2 H% G# A07 Dec 2016 09:08:05 AM - 後處理過程成功完成。

若枫

回复 5# joe0827joe

难道一点后处理知识都没有吗？这么明显的问题，应该一眼就可以看出来吧。
         fmt "X" 2 xdia #X偏移輸出
8 l1 n5 j1 S, a6 a         fmt "Y" 2 ydia #Y偏移輸出

wang1314

只能看看帮不上忙

742698

只能看看帮不上忙

1931062882

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