カスタムマクロの欠点

Google で「カスタムマクロ欠点」で検索してみると、下記のAi概要が最上部に表示されました
話は変わりますが、最近では通常検索でもAi回答が出てくるようになりましたね。

AI による概要

カスタムマクロは、NCプログラムの効率化や自動化に役立つ一方で、いくつかの欠点も存在します。主な欠点としては、プログラミングの難易度、デバッグの複雑さ、互換性の問題、そして過度な依存によるリスクなどが挙げられます。

カスタムマクロの欠点

• プログラミングの難易度:カスタムマクロは、通常のNCプログラムよりも複雑なロジックを記述する必要があるため、習得に時間がかかり、プログラミングの難易度が高いです。特に、条件分岐やループ処理を多用する場合、複雑さが増し、エラーが発生しやすくなります。
• デバッグの複雑さ:カスタムマクロのデバッグは、通常のNCプログラムよりも難易度が高いです。変数の値の変化や処理の流れを追跡するのが難しく、エラーの原因特定に時間がかかることがあります。また、マクロプログラムが複雑になるほど、デバッグ作業はさらに困難になります。
• 互換性の問題:カスタムマクロは、使用するNC工作機械や制御装置の種類によって、互換性の問題が発生する可能性があります。同じマクロプログラムでも、機械が異なると正しく動作しない場合や、エラーが発生する場合があります。そのため、マクロプログラムを作成する際には、互換性を考慮する必要があります。
• 過度な依存によるリスク:カスタムマクロに過度に依存すると、マクロプログラムの変更や修正が必要になった場合に、他の作業に影響が出たり、生産性が低下する可能性があります。また、マクロプログラムの作成者が不在になった場合、保守や管理が困難になるというリスクもあります。

その他の考慮事項

• マクロプログラムの可読性:カスタムマクロは、可読性の高い書き方を心がける必要があります。コメントを適切に記述し、変数名や処理の流れを分かりやすくすることで、他の人がマクロプログラムを理解しやすくなります。
• マクロプログラムのバージョン管理:カスタムマクロは、バージョン管理を行うことで、変更履歴を把握し、必要に応じて以前のバージョンに戻すことができます。
• マクロプログラムのテスト:カスタムマクロは、実際に機械を動かす前に、シミュレーション環境などで十分にテストを行う必要があります。これにより、エラーの発生を未然に防ぎ、安全に運用することができます。

これらの欠点や考慮事項を踏まえ、カスタムマクロの導入を検討する必要があります。

なるほど・・ここのサイトでもいくつか取り上げていますが、まさに同意見です。

プログラミングの難易度

マクロは数多く作成してきましたが
機械の制御器に処理させる言語になるので、どうしても、一般的なプログラミング言語と比較すると、中途半端で可読性は悪くなってしまします。
ちなみに、レダース(Roeders）機は、独自開発されたプログラミング言語ライクな言語です。
加工動作のGコードのサブプロ部分と、その動作部分を管理するメインプロ部分を分離する事を基本で開発されているように感じています。
特にWindowsソフトウェアとして開発された言語なので、自動化や多数個など、複雑なメインプロを開発する場合でもかなり楽です。

デバッグの複雑さ

このサイトでも、何度か書いていますが、一番は変数の制限が可読性を悪くしているように思います。
筆者は通常のGコードだけであれば、TRYCUT と言うシミュレーションソフトを使っていますが、TRYCUTにはマクロ展開機能が付いていません。
シミュレートできないので、マクロのデバッグはエディタやプリントアウトして目視で追っかけ確認ますがかなかな面倒で、リスクもあります。
社内設備機械で、一台だけマクロも含めたシミュレート機能がある制御器があるので、確認のためだけに、その機械を起動させる場合もあります。
大人しく、マクロ機能付きのシミュレータを購入したら・・・の意見もあると思いますが、マクロ利用頻度から検討すると、どうしても費用対効果の面で無理があります。

そうだ、Aiに展開してもらおう！

前回、Fusion python API を、Aiに教わったらすごかった・・を記事にしました

Fusion360 Python API 再挑戦！AIの力を借りて、sketchなど基本ライブラリを作ってみた。

Aiと言う強い味方を得て、Fusion API に再挑戦しています。pythonの学習もかねて、skrtch関連の関数をライブラリ化しています。 筆者の環境では、正常に動作しています。コピペで利用可。 Aiに教えてもらわないと、作成できなかった実例をレポートしています。

www.kazuban.com

2025.07.09

Fusion API は、一般的なpython言語構文やライブラリだけでなく、独自のオブジェクトを絡み合わせて開発していくので、そのパッケージの理解だけでも大変です。
それを、Aiに聞いたら、サンプルコードを出してくれたり、自作したコードを添削してくれたりと、驚きでした。
そこで上の記事を書いてたら、ピ～ンときました。
「そうだ、Fusion APIのパッケージを瞬時に解読できるなら、カスタムマクロなら簡単に解読してくれるかも！」

課題データ

課題NCデータは、以前記事にした、下記ページのデータをそのまま使ってみようと思います

カスタムマクロ、G66モーダル呼び出しで固定サイクルを自作してみる。

前回、カスタムマクロプログラムの例として、ハイデンハインサイクルをマクロ化する例を紹介しました。ハイデンハインサイクルに比べると、ファナック固定サイクルの機能は非常に貧弱ですが、カスタムマクロを自作する事で、無限に拡張する事が可能です。今回は、カスタムマクロのモーダル呼び出し「G66」を利用して、穴...

www.kazuban.com

2022.05.30

穴の面取りを輪郭加工で行うマクロです。
メインプロ「O1000」に加工条件や面取り条件を変数で定義して、G66モーダル呼び出しで「O6000」の面取り加工マクロを呼び出し、指定位置「O6100」で面取りを行うプログラムです
若干変数での計算式もあります。

こちらのファナックマクロを展開してください
%
O1000
( Chamfering Program Ver1.0 By kazuban ) 
G90G00G17G40G80G49 
(++++++++++++++++++++) 
#1=54 (WORK ORIGIN)
#2=10 (Tool Number)
#3=#2 (H Number)
#4=0.5(Tool Diameter)
#5=2300 (Spindle Speed)
#6=200 (Feed)
#7=8 (Coolant)
#8=0.0(Surface Coordinat)
#9=50.0 (Initial Point) 
#10=5.0 (R Point)
(++++++++++++++++++++) 
#11=12.0 (Hole Diameter)
#12=1.0 (Chamfer)
#13=0.5 (Offset)
(++++++++++++++++++++) 
#30=6000 (Macro program No)
#31=6100 (Position program No)
(++++++++++++++++++++) 
N0001
G#1
T#2
M06
G90G00X0Y0 
G43Z[#8+#9]H#3
( Chamfer Process )
S#5M03 
M#7
(----------------------------)
(B:#2=#8 : Surface Coordinat) 
(C:#3=#9 : Initial Point) 
(I:#4=#10 : R Point) 
(J:#5=#12 : Chamfer) 
(K:#6=#13 : Offset)
(D:#7=#4 : Tool Dia)
(E:#8=#11 : Hole Dia)
(F:#9=#6 : Feed)
(++++++++++++++++++++) 
G66 P[#30] B[#8] C[#9] I[#10] J[#12] K[#13] D[#4] E[#11] F[#6]
M98P[#31]
G67
G90G00Z[#8+#9]
M09
M05
G91G28Z0 
G91G49Z0 
G90M05 
( End of Process )
M30
%
%
O6000
( Chamfering Macro Ver1.0 By kazuban ) 
(+++++++++++++++++++)
#1=[#8/2-[#6+#7/2]] (circle radius)
(+++++++++++++++++++)
(B:#2 : Surface Coordinat) 
(C:#3 : Initial Point) 
(I:#4 : R Point) 
(J:#5 : Chamfer) 
(K:#6 : Offset)
(D:#7 : Tool Dia)
(E:#8 : Hole Dia)
(F:#9 : Feed)
(+++++++++++++++++++)
G90G00G17
Z[#2+#3] 
Z[#2+#4] 
G01Z[#2-[#6+#5]]F[#9] 
G91X[#1]
G03X-[#1*2]I-[#1]J0. 
X[#1*2]I[#1]J0.
G01X-[#1] 
G90G00Z[#2+#3] 
M99
%
%
O6100
( Hole Position )
X-35.Y55.
X-50.Y55.
X10.Y10. 
M99
%

このデータをそのまま、「Gemini 2.5 Flash」に突っ込んで、展開をお願いしてみました。

Aiの回答

G66仕様で、G66への変数渡しが「#変数」そのままでないので、作者が見直す時も結構面倒ですが、Aiは瞬時に分析してくれました。

提供されたFANUCマクロプログラムを解析し、その内容を以下に解説します。

---

プログラム全体の概要

このマクロは、複数の穴の面取り加工を自動化するために設計されています。主プログラム (O1000) で加工条件を設定し、マクロプログラム (O6000) で実際の面取り動作を実行、そしてもう一つのプログラム (O6100) で穴の位置情報を呼び出す、という構成になっています。

O1000: 主プログラム

このプログラムは、加工に必要な初期設定と、マクロ呼び出しを行います。

• 初期設定:
  • #1=54 (WORK ORIGIN): ワーク原点の位置を#1に設定。
  • #2=10 (Tool Number): 工具番号を#2に設定。
  • #4=0.5(Tool Diameter): 工具径を#4に設定。
  • #5=2300 (Spindle Speed): 主軸回転速度を#5に設定。
  • #6=200 (Feed): 送り速度を#6に設定。
  • #11=12.0 (Hole Diameter): 穴の直径を#11に設定。
  • #12=1.0 (Chamfer): 面取り量を#12に設定。
  • #13=0.5 (Offset): 工具のオフセット量を#13に設定。
• マクロ呼び出し:
  • G66 P[#30] ...: ここで、面取りマクロプログラムO6000（#30）を呼び出しています。
  • B[#8] C[#9]...: マクロに渡す引数を設定しています。
    • B[#8]: 面取り加工の開始基準となるワーク表面座標。
    • C[#9]: 加工前の待機位置である初期点。
    • I[#10]: 加工開始前の退避点（R点）。
    • J[#12]: 面取り量。
    • K[#13]: オフセット量。
    • D[#4]: 工具径。
    • E[#11]: 穴径。
    • F[#6]: 送り速度。
  • M98 P[#31]: 穴の位置情報を記述したプログラムO6100（#31）を呼び出します。これにより、O6100に記述された各座標で、G66で指定されたマクロが繰り返して実行されます。

O6000: 面取りマクロプログラム

このプログラムは、O1000から渡された情報をもとに、実際の面取り加工を行います。

• 面取り加工の半径計算:
  • #1=[#8/2-[#6+#7/2]]: この式は、面取り加工を行う円弧の半径を計算しています。
    • #8/2: 穴の半径。
    • #6: 面取り量。
    • #7/2: 工具の半径。
    • 結果: 面取り加工する円弧の半径 = (穴の半径) – (面取り量) – (工具の半径)
• 加工シーケンス:
  1. G90G00G17: 絶対指令、早送り、XY平面選択。
  2. Z[#2+#3]、Z[#2+#4]: Z軸を初期点、R点へと移動。
  3. G01Z[#2-[#6+#5]]F[#9]: Z軸を面取り深さまで切り込みながら移動します。
  4. G91X[#1]: ワーク座標を基準に、計算された半径分だけX軸を移動。円弧加工の開始位置に移動します。
  5. G03X-[#1*2]I-[#1]J0.: 半径#1の円弧で、左回りに180度円弧切削。
  6. X[#1*2]I[#1]J0.: さらに、半径#1の円弧で、左回りに180度円弧切削。これにより、1周分の面取り加工が完了します。
  7. G01X-[#1]: 円弧加工の開始位置から中心に戻ります。
  8. G90G00Z[#2+#3]: Z軸を初期点に戻します。
  9. M99: マクロプログラムの終了。主プログラム（O1000）に戻ります。

O6100: 穴位置プログラム

このプログラムは、加工する穴のXY座標をリストアップしています。

• X-35.Y55.: 1つ目の穴の座標。
• X-50.Y55.: 2つ目の穴の座標。
• X10.Y10.: 3つ目の穴の座標。

これらの座標は、O1000のM98 P[#31]によって順番に読み込まれ、それぞれの位置でO6000の面取り加工が実行されます。

---

まとめ

このプログラムは、以下のような処理フローで動作します。

1. 主プログラムO1000がスタートします。
2. 工具交換、初期位置決め、主軸回転、クーラントONなど、準備が完了します。
3. O6100に記述された最初の座標（X-35.Y55.）に移動します。
4. G66によってO6000の面取りマクロが呼び出されます。
5. マクロ内で計算されたパスで、面取り加工が行われます。
6. 面取り加工が完了すると、O1000に戻ります。
7. O6100の次の座標（X-50.Y55.）に移動します。
8. 再びO6000が呼び出され、面取り加工が行われます。
9. この繰り返し処理がO6100の最後まで行われます。
10. 全ての加工が終了すると、クーラントOFF、主軸停止、安全位置への退避が行われ、プログラムが終了します。

この構成は、複数の同じ形状の加工を効率的に行うための、NCプログラミングの典型的な手法です。プログラムを分割することで、位置情報や加工条件の変更が容易になります。

丁寧な解説ですが、加工シーケンス:４．の「ワーク座標を基準」と言うのがちょっと間違っていますね・・
無料版だからでしょうか？
でも、きちんとGコードに展開してくれれば、問題ないですから
再度、一般的なGコードへの展開をお願いすると・・・

%
O1000_EXPANDED
( Chamfering Program Expanded Version )

G90 G00 G17 G40 G80 G49 

( Tool and Spindle Setup )
T10 M06 
G90 G00 X0 Y0 
G43 Z[0.0+50.0] H10
S2300 M03 
M08

( — Hole 1 at X-35. Y55. — )
G90 G00 X-35. Y55.
G00 Z[0.0+50.0]
G00 Z[0.0+5.0]
G01 Z[0.0-[1.0+0.5]] F200
G91 X[12.0/2-[1.0+0.5/2]]
G03 X-[[12.0/2-[1.0+0.5/2]]2] I-[12.0/2-[1.0+0.5/2]] J0. X[[12.0/2-[1.0+0.5/2]]2] I[12.0/2-[1.0+0.5/2]] J0.
G01 X-[12.0/2-[1.0+0.5/2]]
G90 G00 Z[0.0+50.0]

( — Hole 2 at X-50. Y55. — )
・
・
・以下省略

G66呼び出しの部分も、きちんと、展開してくれました。
さらに、[]内で、変数を数値に置き換えた計算式で表現してくれています。
おそらく、[]を認識できるコントローラであれば、このまま動作すると思いますが、トライカットは動作してくれないので、再度、[]内の計算式部分を、実数値に変換をお願いしました。

完成

以下が完成したデータです

%
O1000
( Chamfering Program Expanded Numeric Version )

G90 G00 G17 G40 G80 G49 

( Tool and Spindle Setup )
T10 M06 
G90 G00 X0 Y0 
G43 Z50.0 H10
S2300 M03 
M08

( Chamfering Path Calculation )
( Hole Diameter: 12.0 )
( Chamfer: 1.0 )
( Tool Diameter: 0.5 )
( Offset: 0.5 )
( Radius for cutting: 12.0/2 - 1.0 - 0.5/2 = 6.0 - 1.0 - 0.25 = 4.75 )
( Cutting Depth: 1.0 + 0.5 = 1.5 )

( --- Hole 1 at X-35. Y55. --- )
G90 G00 X-35. Y55.
G00 Z50.0
G00 Z5.0
G01 Z-1.5 F200
G91 X4.75
G03 X-9.5 I-4.75 J0.
X9.5 I4.75 J0.
G01 X-4.75
G90 G00 Z50.0

( --- Hole 2 at X-50. Y55. --- )
G90 G00 X-50. Y55.
G00 Z50.0
G00 Z5.0
G01 Z-1.5 F200
G91 X4.75
G03 X-9.5 I-4.75 J0.
X9.5 I4.75 J0.
G01 X-4.75
G90 G00 Z50.0

( --- Hole 3 at X10. Y10. --- )
G90 G00 X10. Y10.
G00 Z50.0
G00 Z5.0
G01 Z-1.5 F200
G91 X4.75
G03 X-9.5 I-4.75 J0.
X9.5 I4.75 J0.
G01 X-4.75
G90 G00 Z50.0

( End of Program )
M09
M05
G91 G28 Z0
G91 G49 Z0
G90 M05
M30
%

シミュレーション

さっそく、シミュレーションしてみましょう！

正常に動作しました。

まとめ

やっぱり、Aiはすごいです。
座標値を変数で置き換えている程度のマクロであれば、エクセルやスクリプト言語などで、比較的簡単に変換できるかもしれませんが、計算式が入ってくると格段に難易度が上がります。
さらに、G66などのマクロ呼出しになると、引数への変数渡しに癖があるので、PC上での目視確認においても結構面倒です。
以前、マクロの変換ソフトの作成も考えた事もありますが、難易度高くで止めました。
今回のように、Aiに展開してもらえれば、手持ちのシミュレータで動作確認できるので、かなり気軽にマクロに取り組めると思います
それに、今回使用したAiは、「Gemini 2.5flash」で基本無料で利用できます。
ちょっと、間違った回答もありましたが、Fusion API の質問も含めて、制限が出ることはなかったです。「chatGPT」無料版では、制限に引っかかりました。

変数

C言語など、プログラミング言語でコードを書く場合、悩ましいのが「変数の名前」です。
変数名は、後日読み直す時など、あまり単純な名前だけにすると、この変数は何だったっケ？
と、変数の分析からから始める必要があり、分かりづらいコードになってしまいます。
プログラミングの変数名は、使える文字（言語によっては漢字も）や文字数の制限も少なく
自由度があるので悩んでしまいます。
しかしカスタムマクロは「#」+「数字」なので、悩みは少ないかもしれませんが
逆に変数名が単純なこの言語仕様から、結局分かりづらいコードになってしまいます。
さらに数字の範囲で、ローカル変数、コモン変数、システム変数と性質が変わるので
ゴチャゴチャです。

とりあえず、ローカル変数（#1～#33）を使おう

ローカル変数は、プログラムが異なる場合、同じ変数でも、それぞれ別の意味として作用しますが
コモン変数「#100～」は同じ変数として扱われます、
したがって、マクロプログラムのなかで、別マクロを呼び出した場合、そのマクロによって
書き換えられてしまう危険性があります。
特に必要性がない場合には、ローカル変数を使用した方が無難です。

変数宣言

C言語などは、これから「使う変数名」を必ず変数宣言をする必要がありますが
必須でない言語も多くあります。
カスタムマクロも

#1=50.0
G00 X#1

このように、いきなり変数を使用する事ができます。
ただし、長く複雑になるにつれて、変数の役目が分からなくなってきます。
プログラム上部で、使用する変数を初期化しておいたりコメントとして、
明示しておく事でこのマクロではどんな目的で、どの変数を使っているのか、
分かりやすくなります

(—————————)
#10=#0 (Tool Length)
#11=#0 (T)
#12=#0 (V)
#13=#0 (f)
#14=#0 (SP)
#15=#0 (F)
(————————–)

こんな感じです。ここでは、使用する変数を「#0」で初期化しています。
「#0」は「0（ゼロ）」ではありません。「空」です。
コントローラ側でマクロ参照すると、何も入っていない状態になります。
特に必須ではないですが、使う予定の番号が分かり、逆に使っていない番号もわかります。
さらに「空」にしておいたほうが、思わぬミスの防止になるかもしれません。

コメント

（　）で囲む事で、制御機が無視する文字を入力できます。
一般的には、その変数や箇所の用途が分かりやすいように「コメント」を付加します。
制御機は無視するので、コメントの有無は機械動作に影響ありませんが
他人のマクロや自作のものでも、後日読み直す場合に、理解しやすくなります。
重要な変数には、必ずコメントを付加しましょう！
ただ、制御機によっては、「漢字」を受け付けません。
英語にするか？、ローマ字にするか？読む人が分かりやすいコメントを考えてください。
ちなみに、ソディックは漢字が使えるので、かなり分かりやすいです。

ユーザー設定パラメータ

カスタムマクロは、ユーザーがパラメータを変更する事で、類似形状定義や面倒な計算を
自動的に定義させCAMを使用しなくても汎用的な加工データを作成する事ができます。

ユーザー定義変数

利用するユーザーが定義するパラメータは、変数を利用しますから、
この変数は分かりやすいように、プログラム上部にコメント付きで書くようにします。
利用ユーザーは、この変数を変更するだけで、希望の加工データが作成できるようにしておきます。

G90G00G17G40G80G49
(++++++++++++++++++++)
#1=54. (WORK ORIGIN)
#2=5.7 (Hole Dia)
#3=-16.0 (Drill Shoulder Heigth)
#4=0.0 (Surface Coordinat)
#5=50.0 (Initial Point)
#6=5.0 (R Point)
#7=3.0 (Q )
#8=8. (Coolant )
(+++++++++++++++++++)

・　
・

このように、上部にまとめておき、利用者の編集部分は、コメント文で区切りをいれ
分かりやすくしておきます。

マクロ仕様の説明

プログラム最上部には、そのマクロの説明や、バージョン、作成日、作成者など
記入しておくと、管理しやすくなります。

%
O1234
(+++++++++++++++++++++++++++++++)
( Drill Program Ver1.0 )
( 2023-02-18 By Kazuban)
(++++++++++++++++++++++++++++++)

ファイル名仕様

コントローラによっては、「O番号」でなく、ファイル名が使用できる機械もあります。

%
O1234
・
・

↓

%
<DRILL.NC>
・
・

このように、O番号でなく、「 <　> 」　でファイル名を囲みます。
呼び出しは、P「番号」でなく同様に「 <　>」で呼び出します。
あまり一般的ではないので、もしかすると、調べてみるとあなたの機種も可能かもしれません。
ちなみに、ソディックは「 (　) 」になります。

M98<DRILL.NC>

G65<DRILL.NC>A5.7B2

例えば、「センター」「下穴」「面取り」「タップ」と複数のマクロを呼び出すプログラムの場合
O番号で呼び出すよりも、分かりやすく、管理も楽になります。

マクロ呼び出し（G65、G66）の引き数

マクロ呼び出しでマクロプログラムを呼び出す場合、引数を指定して変数を渡す事ができます。
したがって、上の例のように、プログラムを開いて変数を編集するのではなく
呼び出しの引き数で変数を設定する事ができます。
これは、便利なようですが、引数のワードに対応している変数番号がバラバラで
非常に分かりづらく間違いやすいです。

引数対応変数のコメントの活用

G65などマクロ呼び出しの前に、引数対応変数をコメントにしておくと、
プログラムする場合も、編集する場合も、わかりやすくミスも防げます。

G90G00G17G40G80G49
(++++++++++++++++++++)
#1=54. (WORK ORIGIN)
#2=5.7 (Drill Dia)
#3=-16.0 (Drill Shoulder Heigth)
#4=0.0 (Surface Coordinat)
#5=50.0 (Initial Point)
#6=5.0 (R Point)
#7=3.0 (Q )
#8=8. (Coolant )
(+++++++++++++++++++)
・
・
(++++ Drill +++++++++)
(A:#1=#2_Drill Dia)
(B:#2=#3_Drill Shoulder Depth)
(C:#3=#4_Surface Coordinat)
(I:#4=#5_Initial Point)
(Q:#17=#7_Q)
(R:#18=#6_R Point)
(—- argument table ——)
(A:#1 B:#2 C:#3 I:#4 J:#5 K:#6 D:#7 E:#8 F:#9 H:#11 M:#13)
(Q:#17 R:#18 S:#19 T:#20 U:#21 V:#22 W:#23 X:#24 Y:#25 Z:#26)
(—— Drill Macro Read ——)
G65 P1234 A[#2] B[#3] C[#4] I[#5] Q[#7] R[#6]

マクロで使用するメインのユーザー定義の変数は、「#2」～「#7」なのに対して、
呼び出されるドリルマクロ「O1234」は、「#1、#2、#3、#4、#17、#18」
の変数を使い、プログラムします。
間違えろと言わんばかりですが、コメント付加で少しはミスも防げます。
Q、Rアドレスは、一例として固定サイクルに似せただけで、特に必須ではありません。

モーダル情報変更の注意点

「G91は意外と便利」という記事で少しふれましたが、
複数個所に輪郭加工させるマクロを作成する場合、「G91」と「G66」を使うと結構便利です。
こちらで紹介しているサブプログラムをマクロ化すれば、真円切削するサイクルが作れます。
ところが、このようなモーダル情報をメインから呼び出されるマクロ内で
変更する場合には注意が必要です。

マクロ内でのG90,G91指令は注意

メインプロの座標系指令（G90、G91）をマクロ内で変更した場合には注意が必要です。
マクロから戻った時点で、座標指令が変わってしまっていると、
メインプロだけ見ると、マクロ読み込み前の指令が目立つので、マクロ後の状態も
その状態（モーダル）だと思い込みやすいので大変危険です。
マクロでは、必ず元に戻すようなコードを書きましょう。
これは、座標系指令だけでなく、加工条件や主軸工具などのモーダル情報も同様です。
例えば、タッチプローブで測定させるマクロを利用する場合で、
そのマクロが内部でプローブと交換する仕様で測定後元の工具に戻さなかった場合、
マクロの呼び出し前と後で主軸工具が違う事になります。
モーダル情報は、マクロ終了時には、元に戻しておくほうが思わぬミスを回避できます。
X、Yなども、モーダルなので、前の行から動作のない軸は省略する場合もよくあります
これが、マクロを挟んだ場合、思わぬ位置誤動作になる事もあります。
X、Y、Z、など軸指令は、省略しないほうが安全ですし
マクロプログラムでは終了時に、主軸を安全位置へ退避させておくとより安全です。

モーダル情報を得るシステム変数

モーダル情報は、システム変数の「#4001～」「#4100～」で取り出す事ができます。
制御機によっても違うと思うので、使用機械の取説の確認は必要ですが、
マクロ作成で利用できそうなシステム変数は下記になります。

★モーダル情報
　#4001～#4030
　　下二桁はＧコードグループ番号
　　グループ01 : G00,G01,G02,G03,G04
　　グループ03 : G90,G91
　　グループ14 : G54,G55,G56,G57,G58,G59

　#4107 : Ｄコード
　#4109 : Ｆコード
　#4111 : Ｈコード
　#4113 : Ｍコード
　#4114 : シーケンス番号
　#4119 : Ｓコード
　#4120 : Ｔコード

★現在位置情報
　#5021～#5024 （X、Y、Z、４軸：機械座標系）
　#5041～#5044 （X、Y、Z、４軸：ワーク座標系）

G90、G91 の情報は、「#4003」
現在のワーク座標系での、Ｚ軸座標は「#5043」
T番号は、「#4120」 から取り出せます。

マクロの最初で取り出し、終了前で戻す

まったく、モーダル情報を扱わないマクロの場合とか、メインプロ側から呼び出す前後で
確実に処理する場合には不要だと思いますが、余裕があればやっておいたほうが安心です。

#1=#4003 (G91orG90)
#2=#4120 (T No)
・・
T03 M06
G91
・・
・・
G[#1]
T[#2] M06
M99
%

サンプルデータ

上記の事を考慮して、簡単なマクロサンプルを作ってみます。
このマクロは、単純にZ方向に切込み、径補正で真円加工し、
イニシャル点に戻るだけのマクロです。
ただし、段差等は考慮せず、加工上面がZ=0としています。
G66モーダル呼び出しを使用する事で、加工位置データも別サブプログラムにできます。
位置データを別プログラムにしておくと、同じ位置で別工程加工を行う場合に便利です。
例えば、同じ箇所に「ドリル」「穴荒加工」「穴仕上」「面取り」の工程がある場合
穴加工位置指令は、すべて同じデータを指定できます。

メインプログラム

%
O1234
(++++++++++++++++++++)
( Circle Milling Main Ver1.0 )
( 2023-02-18 By Kazuban)
(++++++++++++++++++++)
#1=54.(WORK ORIGIN)
#2=10.0(Ciecle Dia)
#3=-5.0(Depth)
#4=300.(Feed)
#5=100.(Depth-Feed)
#6=30.0(Initial-Point)
#7=5.0(R-Point)
#8=1.(D)
(++++++++++++++++++++)
#10=3.(T)
#11=#10(H)
#12=3500.(SP)
(++++++++++++++++++++)
G90G00G17G40G80G49
(++++++++++++++++++++)
N0001
G#1
T#10
M06
G90G00X0Y0
G43Z#6H#11
M01
( START )
G90G00
Z[#6]
S#12M03
M08
(++++++++++++++++++)
(A:#1 B:#2 C:#3 I:#4 J:#5 K:#6 D:#7 E:#8 F:#9 H:#11 M:#13)
(Q:#17 R:#18 S:#19 T:#20 U:#21 V:#22 W:#23 X:#24 Y:#25 Z:#26)
(++++++++++++++++++)
(A:#1=#2_Ciecle Dia)
(B:#2=#3_Depth)
(C:#3=#4_Feed)
(I:#4=#5_Depth-Feed)
(J:#5=#6_Initial-Point)
(K:#6=#7_R-Point)
(D:#7=#8_D)
(++++++++++++++++++)
G66P0101A[#2]B[#3]C[#4]I[#5]J[#6]K[#7]D[#8]
M98P1000(Position data)
G67
G90G00Z[#6]
M09
G91G28Z0
G91G49Z0
G90M05
( END )
M30
%

マクロ・サブプログラム

%
O0101
(++++++++++++++++++++)
( Circle Milling Macro Ver1.0 )
( 2023-02-18 By Kazuban)
(++++++++++++++++++++)
(————————)
(A:#1=#2_Ciecle Dia)
(B:#2=#3_Depth)
(C:#3=#4_Feed)
(I:#4=#5_Depth-Feed)
(J:#5=#6_Initial-Point)
(K:#6=#7_R-Point)
(D:#7=#8_D)
(————————)
#10=[#1/2](Circle_Radius)
#11=[#6-#5](To R-Point)
#12=[#2-#6](To Depth)
(————————)
#27=#4003
(————————)
G90 G00
Z[#5]
G91
Z[#11]
G01 Z[#12] F[#4]
G01 G41 X[#10] Y0.0 D[#7] F[#3]
G03 X[-#1] Y0.0 I[-#10]
G03 X[#1] Y0.0 I[#10]
G01 G40 X[-#10] Y0.0
G90 G00 Z[#5]
G[#27]
M99
%

加工位置データ

%
O1000
(++++++++++++++++++++)
( Hole Position )
(++++++++++++++++++++)
X50.Y50.
X50.Y-50.
X-50.Y-50.
X-50.Y50.
M99
%

まとめ

カスタムマクロを書く上においての、注意点や気にしたほうがいい点などまとめてみました。
メインプロだけの場合には、メインだけ確認すればいいですが、サブプロを呼び出す形式の場合
サブプロ内でのモーダル値の変更は、十分気を付ける必要があります。
マクロプログラムは、変数によりパラメータ化できるので、便利ではありますが「#」の羅列で
より分かりづらくなります。
使用する変数をまとめたり、コメント文をうまく使い、わかりやすくする工夫が必要です。

カスタムマクロでハイデンハインサイクルを作ってみよう！

最近、機械の立ち上げ作業でバタバタしていて、すっかり更新がご無沙汰しています。忘れられそうなので、５月の連休の空き時間で更新します。ネタとしては、以前から考えていたもので、ファナックカスタムマクロの使用例として、ハイデンハインサイクルをマクロ化してみたいと思います。ハイデンハインサイクルについては、...

www.kazuban.com

2022.05.05

ハイデンハインサイクルに比べると、ファナック固定サイクルの機能は非常に貧弱ですが、
カスタムマクロを自作する事で、無限に拡張する事が可能です。
今回は、カスタムマクロのモーダル呼び出し「G66」を利用して、穴を面取りするサイクルを作成してみようと思います。

G66：マクロモーダル呼び出し

固定サイクルを呼び出すには、「G83 R5.0 Q2.0」のように引数により値を渡す事ができます。
単純なサブプログラム呼び出し「M98」は、引数により値を渡す事はできません。
しかしマクロ呼び出しは引数を渡す事ができますから、固定サイクルが自作できます。
マクロ呼び出しには「G65」という一行のみの単純呼び出し指令もありますが、
「G66」を使用すると、定義したサイクルを「X」「Y」座標指示のみで、モーダルで動作させる固定サイクル的な機能を実現できます。

G66 P1234 A10.2 B5.0 C3.56
X0 Y10.0
X10.0 Y25.6
X-20.3 Y-56.2
G67

この例のように、「G67」でキャンセルされるまで、指定座標で「G66」の呼び出しを実行する事ができます。

引数と変数

カスタムマクロでプログラミングする時に厄介なのが、変数です。
カスタムマクロの変数は「#」+「数値」で定義しますが、識別は「数値」のみなので、
他のプログラム言語に比べると後で読み返した時に、非常に分かりづらいです。
さらに、変数の種類は「ローカル」や「コモン」「システム」などありますが
その種類も「数値」の範囲を意識する必要もあります。
さらにさらにです、カスタムマクロに引数を渡す場合には、「#」ではなく、
「アルファベット」+「数値」で渡します。
例えば、「A10.5」と指令した場合には、マクロ内では、「#1=10.5」と扱われます。
なんとも、分かりづらい仕様です。
さらにさらにさらに、渡された、この「アルファベット」の引き数値と「#」変数番号が連続でなく、制限があったりします。
ほんと、他人が作成したマクロや、昔作ったマクロなど、解読するのに苦労します。
もしかすると、ユーザーに簡単に使用させないための、言語仕様かもしれませんね～。

引数

カスタムマクロの引き数は、「アルファベット」+「数値」で指令しますが、その指令方法には２種類あります。
１・「G」「L」「N」「O」「P」以外のアルファベット

A:#1　B:#2　C:#3　D:#7　E:#8　F:#9　H:#11　I:#4　J:#5　K:#6 　M:#13
Q:#17　R:#18　S:#19　T:#20　U:#21　V:#22　W:#23　X:#24　Y:#25　Z:#26

２・「A」「B」「C」と「I」「J」「K」の多重指令

A:#1　B:#2　C:#3　I:#4　J:#5　K:#6　I:#7　J:#8　K:#9　I:#10　J:#11　K:#12 ～　　K:#33

１．は、マクロを使う立場からは、２１種類のアルファベットを使えるので、識別しやすいと思いますが、アルファベットに対応する「#」番号が連続していないので、作る立場からは面倒です。
２．は、「#」番号は連続しますが、「I」「J」「K」が連続するので、使用する側からは間違いやすいかもしれません。

ここでは、１．の方法で作成したいと思います。

面取りの動作をマクロ化

真円をGコード化

まずは、Φ２０真円輪郭をGコード化してみます。
分かりやすいように、G90（絶対座標系）モードで作成します。

G90G00G17
G00X0Y0Z30.
G00Z5.
G01Z-10.F500
G01X10.
G03X-10.I-10.
G03X10.I10.
G01X0
G00Z30.

こんな感じでしょうか？進入Ｒは省略しています。
円の定義は１行で定義可能ですが、一定義で一周させると、昔うまく処理できない制御機や
CAMがあったので、２分割しています。

G91（相対座標系）に変換

今回は自作固定サイクルを目指していますが、通常固定サイクルは
・サイクル動作の定義
・加工位置指令で、その位置へ移動しサイクル加工
・サイクル動作のキャンセル
こんな動作ですね。
このように、位置決めした後、同じ動作をさせたい場合には、「G91」が便利です。
G91に関してはこちらでも紹介してあるので、興味ある方は参考にしてください

NCプログラム／G91は意外と便利

下記で説明しましたが、ファナック言語で位置を司令するには「G90:絶対座標系」と「G91:相対座標系」の２種類の方法があります。通常は、図面を見ながらプログラムする場合など、「G90:絶対座標系」のほうが分かりやすいので、こちらを使用する場合が多いと思いますが、同じ形状が並んでいる場合や、穴やポケッ...

www.kazuban.com

2020.03.08

G90をG91に変換するには、上記またはフリーソフト紹介ページでも公開している、
変換ソフトを利用して変換する事ができます。

G90G00G17
G00X0Y0Z30.
G91
G00Z-25.000
G01Z-15.000F500
G01X10.000
G03X-20.000I-10.
G03X20.000I10.
G01X-10.000
G00Z40.000

変換させると、こんなコードにしてくれました。
３行目からG91モードで指令しているので、２行目「G00X0Y0Z30.」の
Ｘ，Ｙ座標を変更すれば、任意位置で円加工できます。

マクロ化

では、マクロ化してみましょう。
変換された「G91」プログラムは、若干手直しします。
そのままでも使用できますが、ポイントは、Z方向だけは「G90」にしようと思います。
加工動作は、位置決め後「G91」にしますが、Z方向のみの指令は、退避位置やＲ点など、
「G90」のほうが分かりやすいです。
上の例では、加工Zまで下りるコードと、最後の「G00Z40.000」は「G91」モードでの指令値ですが、
「G90G00Z30.000」の方が分かりやすいと思います。

(+++++++++++++++++++)
#1=20     (DIA)
#2=[#1/2] (R)
#3=30.0   (Initial Point)
#4=5.0    (R Point)
#5=-10.0  (Z)
#6=500    (F)
(+++++++++++++++++++)
G90G00G17
Z[#3] 
Z[#4] 
G01Z[#5]F#6
G91X[#2]
G03X-[#1]I-[#2]J0. 
X[#1]I[#2]J0.
G01X-[#2] 
G90G00Z[#3] 

このようにしてみました。
変数化したので、上部の「#1」～「#6」の数値を変更する事で、加工径や条件を変更する事ができます。
これは、この変数を変更する仕様として、通常のＮＣプログラム的に使用する事も可能ですが、マクロ化する事で固定サイクルのように、引数で呼び出す事ができるようになります。

ここで使用する変数を確認すると、「#1」～「#6」を使用しています。
このマクロを「G66」で呼び出すには、上記のルールにより、引数アドレスと
「＃」番号を確認する必要があります。

A=#1　B=#2　C=#3　I=#4　J=#5　K=#6 　

ですね。
マクロファイルは、上記プログラムの変数定義以下の部分（９行目以降）を、
「O番号」を付け、「M99」で終了させるNCファイルを作成します。
このマクロファイルを、「O6000」とした場合、上の定義で呼び出す指令は
「G66 P6000 A20. C30.0 I5.0 J-10.0 K500.」となります。

面取りをプログラム化

これで、円動作させる事はできましたが、狙いの面取りをさせるためには、
使用工具径や面取り量、オフセット量などから、加工径や深さを求める必要があります。
動作は単純な円加工ですが、円要素を求めるのは意外と面倒です。
電卓で加工径を求めて、「#1=」で設定してもいいですが、せっかくなので、
工具径と加工穴径と面取り量から、自動計算させましょう。

今回の面取りは、４５°のみを想定しています。
工具も４５°の円錐工具を使用します。
加工動作の円弧径は、工具径補正を使用しない場合、工具（主軸）中心になります。
したがって、「加工半径＝穴半径ー（工具半径+オフセット量）」になります。
加工深さは、「面取り量+オフセット量」ですね。

これを考慮すると、上記のマクロ変数に「面取り量」「オフセット」「工具径」「穴径」を追加する事になります。
「加工径」と「加工深さ」は自動計算させましょう。
ついでに、加工面深さも追加して、マクロを作成してみました。

%
O6000
( Chamfering Macro Ver1.0 By kazuban ) 
(+++++++++++++++++++)
#1=[#8/2-[#6+#7/2]] (circle radius)
(+++++++++++++++++++)
(B:#2 : Surface Coordinat) 
(C:#3 : Initial Point) 
(I:#4 : R Point) 
(J:#5 : Chamfer) 
(K:#6 : Offset)
(D:#7 : Tool Dia)
(E:#8 : Hole Dia)
(F:#9 : Feed)
(+++++++++++++++++++)
G90G00G17
Z[#2+#3] 
Z[#2+#4] 
G01Z[#2-[#6+#5]]F[#9] 
G91X[#1]
G03X-[#1*2]I-[#1]J0. 
X[#1*2]I[#1]J0.
G01X-[#1] 
G90G00Z[#2+#3] 
M99
%

こんなマクロプログラムになりました。
これを呼び出すには、「G66」と共に「P」+「O番号」「引数」を付加して呼び出します。
続いて、加工位置を追加して、最後に「G67」で終了です。

G66 P6000 B0.0 C30.0 I5.0 J2.0 K1.0 D0.5 E12.0 F200
X10.0 Y12.0
X-10.0 Y-10.0
G67

メインプロ作成

次に、実際の加工に使用できるように、工具交換や加工条件などを定義できるメインププログラムを作成します。
このメインプロから、ここまでで作ってきた、面取りマクロプログラムを呼び出すようにします。

変数化

やはり汎用化を考えて、メインプロも変数化しましょう！
パラメータは、「ワーク座標系」「工具番号」「回転数」など実際の加工に必要な項目をプログラム上部にまとめます。
使用者はこの項目だけの変更で、加工できるようになるので便利です。

(++++++++++++++++++++) 
#1=54 (WORK ORIGIN)
#2=10 (Tool Number)
#3=#2 (H Number)
#4=0.5(Tool Diameter)
#5=2300 (Spindle Speed)
#6=200 (Feed)
#7=8 (Coolant)
#8=0.0(Surface Coordinat)
#9=50.0 (Initial Point) 
#10=5.0 (R Point)
(++++++++++++++++++++) 
#11=12.0 (Hole Diameter)
#12=1.0 (Chamfer)
#13=0.5 (Offset)
(++++++++++++++++++++) 
#30=6000 (Macro program No)
#31=6100 (Position program No)
(++++++++++++++++++++) 

メイン内変数とマクロ内変数

上記のように、必要な項目を変数化してみましたが、ここで定義した変数番号「#番号」とマクロ内で定義している変数番号「#番号」は数値的には同じでも、違うものとして扱われますから注意が必要です。
ただ、逆に同じに扱われるとかなり面倒で、変数の値が他のマクロで変更されていまう事も起こってしまいますね。
ほとんどのプログラミング言語に、ローカル変数とグローバル変数がありますが、
よく理解して使い分けしないと思わぬミスにつながります。
一塊のプログラム内だけでリセットされる、ローカル変数のほうがトラブルは少ないです。

メインプロからマクロを呼び出す場合、マクロで使われている変数番号と引数のアドレスを把握し、
メインにおいてその要素を示す変数番号をマクロ引数に渡します。
なんだか、よくわからない説明になってしまいましたが、例えば上記の例で
メインで定義している「Initial Point」は「#9=50.0」です。
マクロで使用する「Initial Point」は「#3 」です。
そうして、引数で渡す「#3」は「C」アドレスですから、「C#9」を渡します。
分かりづらいので、整理してみると

    マクロ変数            メイン変数
(B:#2:SurfaceCoordinat)  ←  #8
(C:#3:InitialPoint)      ←  #9
(I:#4:RPoint)             ←  #10
(J:#5:Chamfer)           ←  #12
(K:#6:Offset)             ←  #13
(D:#7:ToolDia)           ←  #4
(E:#8:HoleDia)           ←  #11
(F:#9:Feed)               ←  #6

具体的なマクロ呼び出し指令は、マクロの「O番号」をたとえば「O6000」とすると

G66 P6000 B[#8] C[#9] I[#10] J[#12] K[#13] D[#4] E[#11] F[#6]

となります。

穴座標位置ファイル

マクロ呼び出しの次は、穴位置のＸ，Ｙの列挙になりすが、この穴位置指令もサブプログラムとして別のファイルにする事ができます。

%
O6100
( Hole Position )
X-35.Y55.
X-50.Y55.
X10.Y10. 
M99
%

この位置ファイルは、今回作成中のマクロだけでなく、通常の固定サイクルにも使用できるので
同じ位置で複数の加工を行う場合には、非常に便利です。
タップ加工をイメージしてください、
センター穴　⇒　下穴加工　⇒　面取り　⇒　タップ　となりますが
この一連の工程をメインプロから固定サイクルやマクロで呼び出すように作成しておけば
穴座標ファイルは一つのみの編集で、大きさの違う同等の加工が可能になります。
M6用、M8用、M10用、M12用　などのように、用意しておくと便利だと思います。

( CENTER DRILL )
・
・
G98 G81 Z-1.0 R5.0 F100 L0(K0)
M98P6100
G80
・
・
( DRILL )
・
・
G98 G83 Z-20.0 R5.0　Q3.0 F200 L0(K0)
M98P6100
G80 
・
・
( CHAMFER  )
・
G66 P6000 B[#8] C[#9] I[#10] J[#12] K[#13] D[#4] E[#11] F[#6]
M98P6100
G67
・
・
( TAP )
・
・
S100
G98 G84 Z-15.0 R5.0 Q2.5 F125 L0(K0)
M98P6100
G80 
・
・
M30

G66 モーダル呼び出し　メインプロ

上記で作成した、マクロを呼び出すメインプロを作成してみました。
マクロと位置座標ファイルの番号も変数化しています。

%
O1000
( Chamfering Program Ver1.0 By kazuban ) 
G90G00G17G40G80G49 
(++++++++++++++++++++) 
#1=54 (WORK ORIGIN)
#2=10 (Tool Number)
#3=#2 (H Number)
#4=0.5(Tool Diameter)
#5=2300 (Spindle Speed)
#6=200 (Feed)
#7=8 (Coolant)
#8=0.0(Surface Coordinat)
#9=50.0 (Initial Point) 
#10=5.0 (R Point)
(++++++++++++++++++++) 
#11=12.0 (Hole Diameter)
#12=1.0 (Chamfer)
#13=0.5 (Offset)
(++++++++++++++++++++) 
#30=6000 (Macro program No)
#31=6100 (Position program No)
(++++++++++++++++++++) 
N0001
G#1
T#2
M06
G90G00X0Y0 
(G43Z#8H#3)
G43Z[#8+#9]H#3
( Chamfer Process )
S#5M03 
M#7
(----------------------------)
(B:#2=#8 : Surface Coordinat) 
(C:#3=#9 : Initial Point) 
(I:#4=#10 : R Point) 
(J:#5=#12 : Chamfer) 
(K:#6=#13 : Offset)
(D:#7=#4 : Tool Dia)
(E:#8=#11 : Hole Dia)
(F:#9=#6 : Feed)
(++++++++++++++++++++) 
G66 P[#30] B[#8] C[#9] I[#10] J[#12] K[#13] D[#4] E[#11] F[#6]
M98P[#31]
G67
(G90G00Z#9)
G90G00Z[#8+#9]
M09
M05
G91G28Z0 
G91G49Z0 
G90M05 
( End of Process )
M30
%

まとめ

固定サイクル的な機能を自作する方法を説明しました。
こちらから、ダウンロードできます。
一例として、穴面取り用のマクロを作成しましたが、机上で検討したのみで
実機での検証・確認はやっておりません。
もし、実際に使用する場合には、十分な確認をお願いします。
また、不具合、気になる点などありましたら、コメントいただけるとたすかります。

ハイデンハインのサイクル機能

ファナック系では、G73やG81～の固定サイクルと呼ばれている、ドリル加工用サイクルがありますがハイデンハイン制御機には、さらに高機能なサイクルが用意されています。変数で加工形状をカスタマイズできる点は、カスタムマクロに似ていす。多様なカスタムマクロが、標準で用意されているイメージです。さらに、ドリ...

www.kazuban.com

2021.12.18

マクロとは？

マクロ言語は、プログラム言語に似ていますが、単独では動作しません。
アプリケーションから呼び出される事で動作できます。
エクセルのマクロを思い浮かべると理解しやすいと思います。
エクセルマクロはかなり複雑な処理をプログラミングできますが、
結局、エクセルを起動しなければ単独では実行できません。
カスタムマクロも同様で単独では動作しません。
ファナック系制御機から呼び出される形で使用されます。

カスタムマクロを使う利点

マクロ言語は、変数や演算、条件判断、分岐など、基本的なプログラム機能を持っています。
したがって、類似形状をパラメータ化して定義できたり、単純な計算をやらせたり
対話的に操作させたりすることができます。
カスタムマクロについては、下記記事で少し書いてあるので、参考にしてください。

カスタムマクロで段取り支援

オプション扱いの場合もありますが、CNC制御にはNCデータを操作したり、制御機のデータを読み書きしたりできる、マクロと呼ばれているプログラム機能があります。マクロは、簡易的ですがプログラミング的な言語構造と変数を使用できるため、NCプログラムをパラメータ化して汎用的なプログラムを作成する事ができます...

www.kazuban.com

2020.07.27

ハイデンハインのサイクルも、変数を変更するだけで、穴やポケットの加工が可能になっています。
ファナックの固定サイクルに比べるとはるかに豊富で単純な形状であればCAMなしで切削加工も可能です。
ファナックでもカスタムマクロを駆使すれば、同様のサイクルを作成する事が可能です。
今回は、マクロ作成の一例として、ハイデンハインのドリルサイクルを作ってみようと思います。
では、一番基本的な、「サイクル２００」を見てみましょう。
ハイデンハインの変数は、「Q」+「数値」で設定します。

CYCL DEF 200 DRILLING
Q200=2 ;SAFETY CLEARANCE　
Q201=-15 ;DEPTH
Q206=250 ;FEED RATE FOR PLUNGING
Q202=5 ;INFEED DEPTH
Q210=0 ;DWELL TIME AT TOP
Q203=+20 ;SURFACE COORDINATE
Q204=100 ;2ND SAFETY CLEARANCE
Q211=0.1 ;DWELL TIME AT DEPTH

参考図と見比べるとだいたい、わかりますね。

• Q200=2 ;SAFETY CLEARANCE　は、ドリル動作が始まる高さ。ファナックの「R点」
• Q201=-15 ;DEPTH　は、最終加工深さ
• Q206=250 ;FEED RATE FOR PLUNGING　は、加工送りスピード
• Q202=5 ;INFEED DEPTH　は、一回の切込み量。ファナックでは「Q5.0」
• Q210=0 ;DWELL TIME AT TOP　は、サイクルに入る前のドウェル時間みたいです。
  固定サイクルにはない機能です
• Q203=+20 ;SURFACE COORDINATE　は、穴の上面座標です。段差がある場合に有効です。
• Q204=100 ;2ND SAFETY CLEARANCE　は、次の穴への移動高さ。ファナックでは「イニシャル点」
• Q211=0.1 ;DWELL TIME AT DEPTH　は、穴加工底面でのドウェル。ファナックでは「G82」の機能

ファナックの、G81、G82、G83　が合体したようなサイクルですね。
基本的には、G83に近いですが、Q201とQ202を同じ値にすれば、G81になりますし、
Q211を設定すればG82です。
ただし、G82の場合注意が必要です。
ハイデンハインでは「秒」で指定しますが、「G82」は一般的には「ミリ秒」単位です。
小数点指示も受け付ける機種もあると思いますが、今回は「ミリ秒」指示で小数点なしにしたいのですが変数を演算させた場合どうなるのか？
わかりません、実機での確認が必要です。
したがって、ハイデンハインサイクルを移植する場合では、Q211 の値を×1000する事になります。
Q200（SAFETY CLEARANCE）とQ204（2ND SAFETY CLEARANCE）も
ファナックのR点とイニシャル点を指定する場合の基準高さが違います。
ハイデンハインは、Q203（SURFACE COORDINATE）が基準になりますが
ファナックは、ワーク座標系のZ原点が基準になります。
Q210は、固定サイクルにはない項目なので、固定サイクルに入る直前にドウェル指令を追加する感じでしょうか・・

カスタムマクロで変数化

カスタムマクロの変数は、「#」+「数値」で設定しますが、変数には数値の範囲により、
「ローカル変数」「コモン変数」「システム変数」など種類があるので注意が必要です。
今回は、#1～#33の「ローカル変数」を使用ししょうと思います。
また、サイクル機能以外に、ワーク座標系番号と工具番号、回転数なども追加しようと思います。

条件判断

ハイデンハインサイクルと固定サイクルでは、設定変数が一対一ではないので、設定値によって条件判断が必要になるので、事前に整理してみます。

• Q204はQ200と等しいかそれ以上とする
• Q204とQ200が等しい場合は、「G99」、Q204が大きい場合には、その値をイニシャル点として「G98」モード
• Q202がQ201以上でQ211が「0」の場合は、「G81」
• Q202がQ201以上でQ211が「0」より大きい場合は、「G82」
• Q202がQ201より小さくて、Q211が「0」の場合は、「G83」
• Q202がQ201より小さくて、Q211が「0」より大きい場合には、どうしよう？
  「G81」と「G82」の二工程にするか？

こんな感じで、条件判断させてみましょう。

条件分岐

条件分岐は、「IF」｛条件式｝「GOTO」｛シーケンス番号｝で｛条件式｝が「真」の場合、指定｛シーケンス番号｝へジャンプします。
ジャンプではなく、変数処理をさせる事もできます。
「IF」｛条件式｝「THEN」｛処理｝
この場合は、｛条件式｝が「真」の場合、変数への代入や計算をさせる事ができます。

条件式

条件式では、一般的な記号での比較演算子が使えないので、ちょっと取りつきにくいです。
下記の「EQ」「NE」「GT」「GE」「LT」「LE」の演算子を使用します

変数定義

(+++++++++++++++++++)
#1 = 54. (Work coordinate)
#2 = 1. (T Number)
#3 = #2 (H Number)
#4 = 3200. (SP)
(+++++++++++++++++++)
(CYCL DEF 200 DRILLING)
#10 = 7.0 (Q200 SAFETY CLEARANCE)　
#11 = -20.0 (Q201 DEPTH)
#12 = 350.0 (Q206 FEED RATE FOR PLUNGING)
#13 = 3.0 (Q202 INFEED DEPTH)
#14 = 10.0 (Q210 DWELL TIME AT TOP)
#15 = -2.0 (Q203 SURFACE COORDINATE)
#16 = 52.0 (Q204 2ND SAFETY CLEARANCE)
#17 = 1.0 (Q211 DWELL TIME AT DEPTH)
(+++++++++++++++++++)
#10 = #10 + #15
#16 = #16 + #15
#18 = FIX[#17*1000] ( It may be no good)
(+++++++++++++++++++)
#20 = 98. (G98 OR G99)
#21 = 80. (CYCLE)
(+++++++++++++++++++)

こんな感じでしょうか？
ハイデンハインのQパラメータをそのまま、＃変数と置き換えました。
R点（#10）とイニシャル点（#16）もZ原点からの指示に変更しています。
#18は「秒」を「ミリ秒」に変換していますが、この方法ではダメかもしれません。
記憶では、「P」に小数点で「秒指令」できる機種もありますが、
小数点が入るとエラーになる制御機もあったような・・・？
FIX 関数を使ってみましたが、これで正解なのかは？？です。
たぶん、#18は小数点が入ってしまいそうです。
演算はやめて、直接「#18=2000」などどしたほうが、いいかもしれません。
コメントは、ファナックの場合、漢字が使用できない場合が多いので、英数文字にしました
ソディック機は漢字が使えるのですけどね～

条件設定

上記で検討した、条件をマクロ化してみましょう。

Q204はQ200と等しいかそれ以上とする
IF [#16 LT #10] THEN #16=#10

Q204とQ200が等しい場合は、「G99」
IF [#16 EQ #10] THEN #20=99.
Q204が大きい場合には、その値をイニシャル点として「G98」
IF [#16 GT #10] THEN #20=98.

Q202がQ201以上でQ211が「0」の場合には、「G81」
IF [[#13 GE #11]AND[#17EQ0]] THEN #21=81.

Q202がQ201以上でQ211が「0」より大きい場合には、「G82」
IF [[#13 GE #11]AND[#17GT0]] THEN #21=82.

Q202がQ201より小さくて、Q211が「0」の場合は、「G83」
IF [[#13 GE #11]AND[#17EQ0]] THEN #21=83.

Q202がQ201より小さくて、Q211が「0」より大きい場合にはどうするか？
苦肉の策で、「8382」とし、「G83」後、「G82」もやらせましょう。
IF [[#13 LT #11]AND[#17GT0]] THEN #21=8382.

こんな感じかな？！
固定サイクル「G81」「G82」「G83」の切り替えは、「#21」の数値により
条件ジャンプさせようと思います。
それから、固定サイクルは、定義した行の位置座標でサイクル加工を始めてしまいます。
X、Y軸はモーダルなので、指定しなくてもその場所で加工します。
加工させないで、固定サイクルの定義のみしたい場合には、「L」の繰り返し指令を利用し
繰り返しなしの意味で「L0」を指令します。
ただし、この「L」は制御機によって「K」の場合があります。
ＯＫＫの制御機は「K」だったように記憶していますが、お使いの制御機に合わせてください。

マクロ化

%
O1000
(CYCL DEF 200 DRILLING MACRO BY Kazuban)
(+++++++++++++++++++)
#1 = 54. (Work coordinate)
#2 = 1. (T Number)
#3 = #2 (H Number)
#4 = 3200. (SP)
(+++++++++++++++++++)
#10 = 7.0 (Q200 SAFETY CLEARANCE)　
#11 = -20.0 (Q201 DEPTH)
#12 = 350.0 (Q206 FEED RATE FOR PLUNGING)
#13 = 3.0 (Q202 INFEED DEPTH)
#14 = 10.0 (Q210 DWELL TIME AT TOP)
#15 = -2.0 (Q203 SURFACE COORDINATE)
#16 = 52.0 (Q204 2ND SAFETY CLEARANCE)
#17 = 1.0 (Q211 DWELL TIME AT DEPTH)
(+++++++++++++++++++)
#10 = #10 + #15
#16 = #16 + #15
#18 = FIX[#17*1000]
(+++++++++++++++++++)
#20 = 98. (G98 OR G99)
#21 = 80. (CYCLE)
(+++++++++++++++++++)
IF [#16 LT #10] THEN #16=#10
IF [#16 EQ #10] THEN #20=99.
IF [#16 GT #10] THEN #20=98.
IF [[#13 GE #11]AND[#17EQ0]] THEN #21=81.
IF [[#13 GE #11]AND[#17GT0]] THEN #21=82.
IF [[#13 GE #11]AND[#17EQ0]] THEN #21=83.
IF [[#13 LT #11]AND[#17GT0]] THEN #21=8182.
(++++++++++++++++++++)
(++++++++++++++++++++)
G90G00G17G40G80G49
G#1
N0001
T#2
M06
G90G00X0Y0
G43Z#16H#3
M00
(Check Start Point)
S#4M03
G04X#14
IF [#21 EQ 81] GOTO 0001
IF [#21 EQ 82] GOTO 0002
IF [#21 EQ 83] GOTO 0003
IF [#21 EQ 8382] GOTO 0003
(++++++++++++++++++++)
N0001(G81)
G#20 G81 Z#11 R#10 F#11 L0 (L may be K.)
GOTO 100
(++++++++++++++++++++)
N0002(G82)
#21 = 82
G#20 G82 Z#11 R#10 P#18 F#11 L0 (L may be K.)
GOTO 100
(++++++++++++++++++++)
N0003(G83)
G#20 G83 Z#11 R#10 Q#10 F#11 L0 (L may be K.)
GOTO 100
(++++++++++++++++++++)
N100
X-40.Y15.
X-60.Y15.
X-60.Y-15.
X-40.Y-15.
G80
Z#16
IF [#21 EQ 8382] GOTO 0002
GOTO 9999
(++++++++++++++++++++)
N9999
M09
M05
G91G28Z0
G91G49Z0
G90M05
M30
%

完成

こんな感じで作ってみましたが、機械を触れる環境でないので、まったく検証してません。
もし、実際の加工で使用する場合には、十分確認をお願いします。
また、どなたか、検証していただければ、助かります。
カスタムマクロ作成の参考になれば幸いです。

ユーザーマニュアル入手

ハイデンハインのサイトでは、コントローラのマニュアルがダウンロードできます。

ホームページから、「Service&Support」⇒ 「Downloads」⇒ 「Documentation」と進み
下へスクロールして、右側の「Categories」で「CNC Controls」で各言語に対応したマニュアルがダウンロードできます。
ただ残念ながら、日本語はないみたいです。
私は、こちらをダウンロードしました。

ドリル・タップサイクル

ドリルやタップ用のサイクルは、ダウンロードしたマニュアルでは、
８．３項目、ページ３３１～　に説明があります。
英語ですが、単語とアイコンでだいたいわかると思います

• 240 CENTERING _______________________________Page 333
• 200 DRILLING _________________________________Page 335
• 201 REAMING _________________________________Page 337
• 202 BORING ___________________________________Page 339
• 203 UNIVERSAL DRILLING _____________________Page 341
• 204 BACK BORING _____________________________Page 343
• 205 UNIVERSAL PECKING ______________________Page 346
• 208 BORE MILLING _____________________________Page 349
• 206 TAPPING NEW _____________________________Page 351
• 207 RIGID TAPPING NEW ______________________Page 353
• 209 TAPPING W/ CHIP BRKG __________________Page 355
• 262 THREAD MILLING _________________________Page 359
• 263 THREAD MLLNG/CNTSNKG _______________Page 361
• 264 THREAD DRILLING/MLLNG _______________Page 365
• 265 HEL.THREAD DRLG/MLG __________________Page 369
• 267 OUTSIDE THREAD MLLNG ________________Page369

ファナックの固定サイクルに比べるとかなり豊富なのがわかると思います。

スレッドミル

ねじ切りサイクル。
国内では、OSGのプラネットカッターが有名です。
加工時間は増加しますが、破損時のリスク軽減や高硬度材へのネジ加工には有効だと思います。
特に、超硬材へのネジ加工を切削で行うには、現在ではこの方法しかないように思います！
では、NCプログラムはどうやって作成するでしょう。
国内機の場合、CAMが対応している場合にはその機能を利用したり、工具メーカーが公開している
支援ソフトなどを利用したり、ユーザー側でカスタムマクロを作成したりだと思いますが、ハイデンハインには、ねじ切りサイクルがすでに準備されています。

Cycle 262、Page 359 ～に説明があります。
サイクルの使用方法は、後ほど説明しますが、「Q」で始まる指令は変数で、Qパラメータと呼ばれています。
ファナックの「#」と同様です。
この例では、「Q355」で工具の種類、「Q239」でネジピッチ、「Q201」でネジ深さ、
「Q200」でＲ点位置などが、この図で分かりますね。
これらの変数を設定する事で、ねじ切りを行うことができます。

ポケットサイクル

穴加工だけではありません。
円や長方形、スロット形状もサイクルが用意されています。
ポケット用のサイクルは、ダウンロードしたマニュアルでは、
８．４項目、ページ３８２～　に説明があります。

• 251 RECTANGULAR POCKET ____________________Page 383
• 252 CIRCULAR POCKET _________________________Page 388
• 253 SLOT MILLING ______________________________Page 392
• 254 CIRCULAR SLOT ____________________________Page 397
• 212 POCKET FINISHING ________________________Page 402
• 213 STUD FINISHING __________________________Page 404
• 214 C. POCKET FINISHING _____________________Page 406
• 215 CIRCULAR STUD FINISHING _______________Page 406
• 210 SLOT RECIP. PLNG _________________________Page 410
• 211 CIRCULAR SLOT ____________________________Page 413

かなり豊富なサイクルが用意されています。
何種類かのサイクルを組み合わせる事で、ある程度の加工はCAMがなくてもできそうです。

補正

サイクルからは少し外れますが、ハイデンハインは工具を「Tool Table」というテキストファイルで管理しています。
そのため、任意の工具を交換しただけで、コントローラは工具情報を「Tool Table」から取得します。
内容で必須なのは、「工具長さ」「工具径」ですが、この値は手動で入力してもいいですが
工具自動測定仕様であれば、自動的に入力されます。
したがって、工具交換しただけで、工具長補正は完成し、工具径補正が必要なNCデータを実行する場合「Tool Table」の値を元に、工具径補正が行われます。
これは、上記で説明した、「スレッドミル」や「ポケット」サイクルにも対応されます。
D番号を忘れた！などのトラブルはかなり少なくなります。
ちょっと面白い仕様に、切込み角度の項目があります。
これは、指定工具が切込み可能な場合、切込み角度を設定する項目です。
傾斜切込みを行うサイクルを使用する場合、このデータが参照されます。
このように、ハイデンハインでは使用工具はどのような工具なのかを登録しておき
工具交換する事で、その内容が自動的に反映される仕組みです。
工具交換しただけでと言うところが、重要なポイントで交換すれば、
工具長補正は完了状態なので、ワークの任意のZ点に手パ（ハンドル）で簡単に移動できます。
これは、タッチプローブでも同じです。

タッチプローブサイクル

プローブ測定用のサイクルも用意されています。
ただし、上記で紹介したマニュアルには、載っていませんでした。
こちらのマニュアルにありました。
タッチプローブ機能はオプションだからかもしれません。
ただ、特にEUではタッチプローブは必須の考えが強いように思います。

これは、ワーク測定用のサイクルですが、こちらもかなり充実していますね。
最近ファナック機はご無沙汰なので最近の状況は分かりませんが、
私が今までで立ち上げた、タッチプローブ仕様のファナック機では、
自動ワーク座標系設定やワーク測定は、機械メーカーのサービスマンが提供してくれた
マクロプログラムを使用する方法で教わりました。
ただどのメーカーも、単純にタッチした底面のワーク原点からの深さを表示するマクロがありませんでした。
例えば、ポケットの掘り込み加工後には、底面にタッチして、その深さを測定したくなります。
提供していただいたマクロの中には、２点を測定してその段差を出すマクロはありましたが、
やはり加工中では単純にタッチしただけで深さが知りたいですね。
これは、タッチプローブには、工具長の概念があまりないのも要因のように思います。
しょうがないので、カスタムマクロで自作しましたが、ハイデンハインには上記のような
豊富なサイクルが用意されています。
サイクルを使うと、加工後自動測定するプログラムも比較的簡単に作成可能ですし
制御機提供のサイクルなので、おそらく、違うメーカーの機械や
違うメーカーの測定器であっても、同じプログラムで測定できると思います。

プログラム例

サイクル定義

サイクルを利用するには、まず「CYCLE DEF サイクル番号」でサイクルの種類を指定し、
Qパラメータで条件を設定します。
「;」の右側はコメントになります。
また行末の「~」は次の行と連続している意味です。
先頭の「18」は行番号ですが、すべてが「18行」の一行です。
見やすくするための仕様ではないかと思っています。
マニュアルではコメントが英語ですがだいたい理解できると思います。

18 CYCL DEF 200 DRILLING ~
   Q200=+5 ;SET-UP CLEARANCE ~
   Q201=-19 ;DEPTH ~
   Q206=400 ;FEED RATE FOR PLUNGING ~
   Q202=+19 ;PLUNGING DEPTH ~
   Q210=0 ;DWELL AT TOP ~
   Q203=+0 ;SURFACE COORDINATE ~
   Q204=+50 ;2ND SET-UP CLEARANCE ~
   Q211=0 ;DWELL AT BOTTOM

この例は、ドリルサイクルですが、ファナックの「G82」と「G83」が合体したようなサイクルです。

加工位置

サイクルへは、「CYCL CALL POS」「M99」「 CYCL CALL PAT」の３種類の方法で加工位置を指定します
サイクルは、最後に定義されたものが、「CYCL CALL」により呼び出されます。
「CYCL CALL POS」で加工位置を定義します。

12 CYCL CALL POS X+30 Y+20 Z+0 FMAX M3
13 CYCL CALL POS X+80 Y+50 Z+0 FMAX

「M99」指令により、移動指令で移動した位置でサイクルを実行する事もできます

12 L X+30 Y+20 FMAX M3
13 CYCL CALL
14 L X+80 Y+50 FMAX M99
15 L Z+100 FMAX M2

「FMAX」は「早送り」の意味です。
「 CYCL CALL PAT」 は事前に、加工位置を書きだしたファイルを用意し、
そのファイルを指定する方法です。
センターとドリルのような、同じ位置に複数のサイクルを使用する場合に便利です。

6 TOOL CALL 1 Z S5000 
7 L Z+10 RO F5000 
8 SEL PATTERN “TAB1” 
9 CYCL DEF 200 DRILLING ~
  Q200=2 ;SET-UP CLEARANCE ~
  Q201=-2 ;DEPTH ~
  Q206=150 ;FEED RATE FOR PLNGNG ~
  Q202=2 ;PLUNGING DEPTH ~
  Q210=0 ;DWELL TIME AT TOP ~
  Q203=+0 ;SURFACE COORDINATE  ~
  Q204=10 ;2ND SET-UP CLEARANCE  ~
  Q211=0.2 ;DWELL TIME AT DEPTH ~
10 CYCL CALL PAT F5000 M3 ;　Cycle call in connection with point table TAB1.PNT
11 L Z+100 R0 FMAX M6
12 TOOL CALL 2 Z S5000

加工位置ファイル「Point Table」は、「SEL PATTERN」で指定します。
呼び出し元と同じディレクトリにない場合には、フルパスで指定できます

SEL PATTERN “TNC:\DIRKT5\NUST35.PNT”

Fusion360 で出力してみた

Fusion360、ポストライブラリには、「Heidenhain」用ポストも用意されています。
プレート素材に、適当な穴を開けたモデルを用意し、CAM処理させてみました。

0 BEGIN PGM 1001 MM
1 BLK FORM 0.1 Z X-150 Y-100 Z-50
2 BLK FORM 0.2 X+150 Y+100 Z+0
3 ;-------------------------------------
4 ;Tools
5 ; #92 D=20 - ZMIN=-51 - ZMAX=+50 - drill
6 ;-------------------------------------
7 ;
8 M5
9 TOOL CALL 92 Z S1590
10 L M140 MB MAX
11 M3
12 L X-110 Y-70 R0 FMAX
13 L Z+50 R0 FMAX
14 M7
15 CYCL DEF 32.0 TOLERANCE
16 CYCL DEF 32.1
17 CYCL DEF 200 DRILLING ~
   Q200=+5 ;SET-UP CLEARANCE ~
   Q201=-51 ;DEPTH ~
   Q206=160 ;FEED RATE FOR PLUNGING ~
   Q202=+20 ;INFEED DEPTH ~
   Q210=0 ;DWELL AT TOP ~
   Q203=+0 ;SURFACE COORDINATE ~
   Q204=+50 ;2ND SET-UP CLEARANCE ~
   Q211=0 ;DWELL AT BOTTOM
18 L FMAX M99
19 L Y+70 FMAX M99
20 L X+110 FMAX M99
21 L Y-70 FMAX M99
22 L Z+50 FMAX
23 M9
24 M5
25 L M140 MB MAX
26 M30
27 END PGM 1001 MM

すごいですね～
私がハイデンハイン制御の５軸を立ち上げてた時には、穴あけデータは、
サイクルで出力できないCAMもあったと記憶しています。
深穴サイクルなど、直線補間「G01」でサイクル動作を置き換えたデータでした。
Fusion360のポストは、ハイデンハインサイクルの勉強にも使えそうです。

M12のタップ加工をプログラム化

M12のタップ加工行うＮＣプログラムをサイクルを組み合わせて作ってみました。
加工位置用のファイル「P1.pnt」を編集する事で、任意箇所へタップ加工ができます。
「P1.pnt」 は、制御機から作成できます。
マニュアルの「Point Tables」を参照してください。
たぶん、エディタなどでテキストを作成しても、使用できると思いますが
最初は書式がわからないと思うので、まずは制御機で作成すればテキスト化されるので
そのテキストファイルを修正する方法が簡単だと思います。
ただし、実機に触れる環境ではないので、検証できておりません。
万が一、使用する場合には、十分確認してください。

もし、実証できる方がいらっしゃれば、不具合点などコメントいただければ、助かります！

P1.PNT

BEGIN P1 .pnt MM
NR    X       Y       Z 
0     +31.5   -14     +0 
1     -15     -40     +0 
2     -31.5   +14     +0 
3     +15     +40     +0 
[END]

M12_SKD11.h

0  BEGIN PGM M12_SKD11 MM 
1  BLK FORM 0.1 Z  X+0  Y+0  Z-80
2  BLK FORM 0.2  X+150  Y+25  Z+0
3  * --------------------------------
4  CYCL DEF 247 DATUM SETTING ~
    Q339=+1    ;DATUM NUMBER
5  L  A+0  C+0 F3000 M21
6  ;;;;;;;;;;;;;;;;;;;;;;
7  ;;;; CENTER ;;;;;;;;;;
8  ;;;;;;;;;;;;;;;;;;;;;;
9  Q1 = 45 ;Tool
10 Q2 = 640 ;SP
11 Q3 = 80 ;F_Feed
12 Q4 = -0.6 ;Z_Depth
13 ;;;;;;;;;;;;;;;;;;;;;;
14 ;;;; DRILL D=10.2 ;;;
15 ;;;;;;;;;;;;;;;;;;;;;;
16 Q5 = 101 ;Tool
17 Q6 = 620 ;SP
18 Q7 = 120 ;F_Feed
19 Q8 = -25 ;Z_Depth
20 Q9 = 10 ;Q_Peck
21 ;;;;;;;;;;;;;;;;;;;;;;
22 ;;;; CHAMFER ;;;;;;;;;
23 ;;;;;;;;;;;;;;;;;;;;;;
24 Q30 = 46 ;Tool
25 Q31 = 2200 ;SP
26 Q32 = 240 ;F_Feed
27 Q33 = 0.5 ;Chanfer_Length
28 Q34 = 1.5 ;Distance
29 Q35 = Q33 + Q34 ;Depth
30 Q36 = 8 ;Coolant
31 Q37 = 12 ;Hole DIA
32 ;;;;;;;;;;;;;;;;;;;;;;
33 ;;;; TAPP M12 ;;;;;;;
34 ;;;;;;;;;;;;;;;;;;;;;;
35 Q10 = 104 ;Tool
36 Q11 = 120 ;SP
37 Q12 = -10 ;Z_Depth
38 Q13 = 1.75 ;Pitch
39 Q14 = 8 ;Coolant
40 ;;;;;;;;;;;;;;;;;;;;;;
41 * --------------------------------
42 ;;;; CENTER LBL 1 ;;;;;;;;;;;;;;
43 ;;;; DRILL LBL 2 ;;;;;;;;;;;;;;
44 ;;;; C LBL 3 ;;;;;;;;;;;;;;
45 ;;;; TAPP LBL 4 ;;;;;;;;;;;;;;
46 * --------------------------------
47 FN 9: IF +1 EQU +1 GOTO LBL 1
48 * --------------------------------
49 ;;;; SET POSITION ;;;;;;;;;;;;;;;
50 LBL 11
51 SEL PATTERN "P1.pnt"
52 CYCL CALL PAT F5000
53 M5 M9
54 L M140 MB MAX
55 LBL 0
56 * --- CENTER -----------------------
57 LBL 1
58 * - CENTER
59 TOOL CALL Q1 Z SQ2
60 M9
61 CYCL DEF 200 DRILLING ~
    Q200=+5    ;SET-UP CLEARANCE ~
    Q201=+Q4   ;DEPTH ~
    Q206=+Q3   ;FEED RATE FOR PLNGNG ~
    Q202=+Q4   ;PLUNGING DEPTH ~
    Q210=+0    ;DWELL TIME AT TOP ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q211=+0    ;DWELL TIME AT DEPTH
62 L M140 MB MAX
63 L  X+0  Y+0 F8000 M3
64 L  Z+50 F8000
65 M0
66 M13
67 CALL LBL 11
68 LBL 0
69 * ---DRILL ----------------------
70 LBL 2
71 TOOL CALL Q5 Z SQ6
72 M9
73 CYCL DEF 200 DRILLING ~
    Q200=+5    ;SET-UP CLEARANCE ~
    Q201=+Q8   ;DEPTH ~
    Q206=+Q7   ;FEED RATE FOR PLNGNG ~
    Q202=+Q9   ;PLUNGING DEPTH ~
    Q210=+0    ;DWELL TIME AT TOP ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q211=+0    ;DWELL TIME AT DEPTH
74 L M140 MB MAX
75 L  X+0  Y+0 F8000 M3
76 L  Z+50 F8000
77 M0
78 M13
79 CALL LBL 11
80 LBL 0
81 * --- CHAMFER -------------------
82 LBL 3
83 TOOL CALL Q30 Z SQ31 DR+Q34
84 M9
85 L M140 MB MAX
86 L  X+0  Y+0 F8000
87 L  Z+50 F5000
88 CYCL DEF 208 BORE MILLING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q201=-Q35  ;DEPTH ~
    Q206=+Q32  ;FEED RATE FOR PLNGNG ~
    Q334=+2    ;PLUNGING DEPTH ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q335=+Q37  ;NOMINAL DIAMETER ~
    Q342=+Q37  ;ROUGHING DIAMETER
89 M0
90 M3 MQ36
91 CALL LBL 11
92 LBL 0
93 * --- TAPP ----------------------
94 LBL 4
95 TOOL CALL Q10 Z SQ11
96 M9
97 Q15 = Q13 * 1
98 CYCL DEF 209 TAPPING W/ CHIP BRKG ~
    Q200=+5    ;SET-UP CLEARANCE ~
    Q201=+Q12  ;DEPTH OF THREAD ~
    Q239=+Q13  ;THREAD PITCH ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q257=+Q15  ;DEPTH FOR CHIP BRKNG ~
    Q256=+Q13  ;DIST FOR CHIP BRKNG ~
    Q336=+0    ;ANGLE OF SPINDLE
99 L M140 MB MAX
100 L  X+0  Y+0 F8000 M3
101 L  Z+50 F5000
102 M0
103 MQ14
104 CALL LBL 11
105 LBL 0
106 * --------------------------------
107 L M140 MB MAX
108 M2
109 END PGM M12_SKD11 MM 

こんなデータをタップ径や材質ごとに用意しておくと、座標を編集するだけで
多種類のタップ加工簡単にができます。
ファナックでも、マクロを作成すれば同様のデータは作成できますが
制御機のサイクルだけで作成できるところが、ユーザーにとってはありがたい所だと思います

まとめ

一度、ハイデンハイン機を触ると、ファナック機には戻れないと言う意見をよく聞きます。
工具管理方法の違いもそうですが、このようなサイクルを制御機側が提供している点は
重要なポイントだと思います。
これは、高精度輪郭精度なども同じかもしれません。
機械メーカーの味付けで、同じNCデータを流しても、終了時間はかなりかわりますね。
機械メーカーにとっては、自由度があり、差別化ができていいのかもしれませんが
いろんなメーカーの機械を選択したい、ユーザー側としては、データの互換性は気になります。