MC X3增加自動校刀程式

joe0827joe

我想在 "M100", tlngno$,這個地方
增加大直徑的刀子X.Y的偏移量
- K7 Z' U+ ]/ a# ~/ b可是不知道該如何取得直徑還有運算最後結果
: f/ o5 K5 d7 k那個X.Y偏移量是例如像這樣
M100 T6 X20. Y10.
這樣表示刀子在對刀時偏移X20. Y10.
) p: X! B# f/ c( h! X# t求助各位大神{:4_108:}

以下為部分代碼:
; x& G$ [* b1 r1 Z     if stagetool >= zero, pbld, n$, *t$, "M6", e$
      pbld, n$, "M100", tlngno$, e$ #修改處，新增這一行 多了M100自動校刀
      pindex
; t6 D- B7 |/ G/ y0 r0 i2 z% t1 R      if mi1$ > one, absinc$ = zero
      pcan1, pbld, n$, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
        pfcout, *speed, *spindle, pgear, strcantext, e$
# a# c, w( t) h& S, E' U; W1 G  G      pbld, n$, "G43", *tlngno$, pfzout, scoolant, next_tool$, e$
# b7 `- [! d$ d0 }* k      absinc$ = sav_absinc
& L* u. I: _' A      pcom_movea
5 A$ |; _0 F. E2 t/ z; l& j. x$ z      toolchng = zero
2 o$ o' F, f+ f% V/ M% G/ ]5 G$ M      c_msng$ #Single tool subprogram call

若枫

回复 1# joe0827joe
$ h; \9 P; ^& D+ N
1 r. q  W; U8 F7 X$ X1 ~
    多大直径的刀具叫大直径？可以直接使用直径判断要不要输出。
/ Y& \+ U$ M: A- M+ Lif tldia$ > 你的设定直径，你的偏移量。

joe0827joe

" y& ?& e2 q% Y1 S% r5 G
回复 2# 若枫
. p& U) E, H( B; G! o) _
$ ?0 U" O0 v) ?5 `7 X/ U大徑刀直徑20以上都是(這個直徑可能要再去量一下)tldia$的參數輸出不是純數字前面還含有TOOL DIA.-的英文字不太會寫if判斷式之後的部分
, c" X- `( X+ H  ]# X; y; h: u沒碰過這種的程式語言...
請問可以給個範例嗎?

加入tldia$輸出結果如下

若枫

fmt  X  2   xdia       #X position output
fmt  Y  2   ydia        #Y position output
* c$ _* o8 K' l. y8 u# C
; r3 h* Y+ x- B+ A' {6 O
if tldia$ > 你的设定直径，
  [
) f; G8 {+ ^3 f! p/ y0 {   xdia = tldia / 2
1 F5 y1 |6 o% \5 W( Y, T5 s' D   ydia = tldia / 2
8 B2 ~1 P; F1 E- Z  P5 R: @  "M100", *tlngno$, *xdia, *ydia, e$
8 ~8 z7 D7 I1 p: R" |2 E+ f- |]

joe0827joe

回复 4# 若枫

: l/ `% a. f" K下面是依照若楓大給的照抄，不過還是出錯了我在想是不是那個tldia無法轉數字的關係?
      #修改處 以下在T?? MO6換刀指令後增加此行，自動校刀長指令(此指令為特殊機能)，大於20之大徑刀會自動偏置
      fmt X 2 xdia #X偏移輸出
" R  B& l- T! E      fmt Y 2 ydia #Y偏移輸出
      if tldia$>20,
7 l! X* g: r: \      [
      xdia=tldia/2
      ydia=tldia/2
      pbld, n$, "M100", *tlngno$, *xdia,*ydia, e$
4 B& M+ L! I: \3 {5 \# J2 z8 Z* h+ s      ]
" A  Z  r# Q7 k      #修改處 以上在T?? MO6換刀指令後增加此行，自動校刀長指令(此指令為特殊機能)，大於20之大徑刀會自動偏置
" c& g- S" O5 P6 F

# J1 q+ ~) \8 |# e0 `  f& D下面是錯誤報告
07 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
+ m' Z+ p; d. o  r6 Q; U9 l6 O07 Dec 2016 09:08:04 AM - 初始化開啟後處理程式檔案。
07 Dec 2016 09:08:04 AM - C:\Users\Public\Documents\shared Mcam2017\mill\Posts\MPFAN.PST
9 o4 D* M: _' |07 Dec 2016 09:08:04 AM - 已成功開啟後處理程式檔案。
4 ]! @' ~6 g8 G07 Dec 2016 09:08:04 AM - 成功初始化預定義的後處理變量、字符串、後處理塊。
- X8 t; ?$ M; x7 h( s. d" L07 Dec 2016 09:08:04 AM - 成功搜索定義的後處理變量、字符串、後處理塊。
6 L2 ^1 L, T" R6 t! C07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
8 q$ o4 q: v/ U' l3 b07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[11]
07 Dec 2016 09:08:05 AM - PST 行 (907) - 後處理塊輸出類型失敗！, , 尚未定義標籤[15]
* v3 V* w5 g( W$ T4 E8 d07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[11]
& W4 W+ Z, V; ?8 k07 Dec 2016 09:08:05 AM - PST 行 (908) - 後處理塊輸出類型失敗！, , 尚未定義標籤[15]
, n. X/ U$ A7 y* c07 Dec 2016 09:08:05 AM - PST 行 (911) - 後處理塊輸出類型失敗！, , 尚未定義標籤[7]
07 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], 出現非法字符
/ N" h8 }- D! Z5 d8 R4 @07 Dec 2016 09:08:05 AM - PST 行 (913) - 後處理塊輸出類型失敗！, , 尚未定義標籤[35]
9 q: M2 e0 D/ q3 p( L07 Dec 2016 09:08:05 AM - PST 行 (913) - 後處理塊輸出類型失敗！, , 尚未定義標籤[41]
07 Dec 2016 09:08:05 AM - 後處理過程成功完成。

若枫

回复 5# joe0827joe

  x% M9 u) ?2 U9 l* R! x' B3 m难道一点后处理知识都没有吗？这么明显的问题，应该一眼就可以看出来吧。
. h, i# }" `2 y0 i6 F         fmt "X" 2 xdia #X偏移輸出
. @+ x2 L6 v$ h0 j4 |4 r+ p" ~- h         fmt "Y" 2 ydia #Y偏移輸出

wang1314

只能看看帮不上忙

742698

只能看看帮不上忙

1931062882

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