编程NPT螺纹内螺纹孔需要遵循以下步骤：
确定螺纹参数
尺寸代号：确定NPT螺纹的尺寸代号，例如1/2"-14表示内螺纹直径为1/2英寸，牙型角为60度，每英寸14牙。
大径：根据尺寸代号计算内螺纹的大径，公式为：大径 = 尺寸代号 * 24mm + 130in。
小径：根据尺寸代号计算内螺纹的小径，公式为：小径 = 大径 - （尺寸代号 - 1） * 2P，其中P为每英寸牙数（NPT通常是19或32）。
孔深：根据具体应用需求确定孔深。
计算螺纹切削参数
螺纹刀定位点：确定螺纹刀的起始位置，例如Z5。
R值：计算螺纹刀的半径，公式为：（孔深 + 螺纹刀定位点） * 锥度比 / 2。
毛坯孔径：基面上的小径，即小径。
毛坯孔底径：基面上的小径减去孔深乘以锥度比，即小径 - 孔深 * 1/16。
编写G代码
设置坐标系：使用G90设置绝对坐标系，G54选择坐标系，G40取消半径补偿，G80取消模态钻孔。
定义螺纹参数：使用M06 T1换刀，G92设置主轴转速，G94设置进给率单位为每分钟。
定义起始点和螺距：使用G00将刀具移动到起始点，G76定义螺距和走刀速度。
开始螺纹切削：使用G76 E1 F400开始切削，E1表示NPT 1/8"螺纹。
撤离螺纹部分：使用G00将刀具移动到安全位置。
循环切削：重复上述步骤，直到完成所有螺纹的切削。
结束螺纹切削：使用G76 E3 F400完成最后一段螺纹切削，G00将刀具移动到起始点。
检查和调整
完成切削后，检查内螺纹的质量和尺寸，根据需要进行微调和调整。
示例代码
```gcode
； 设置坐标系和螺纹参数
G90 ； 绝对坐标
G54 ； 坐标系选择
G40 ； 取消半径补偿
G80 ； 取消模态钻孔
； 指定螺纹参数
M06 T1 ； 刀具1换刀
G92 S3000 ； 主轴转速设定为每分钟3000转
G94 ； 进给率单位设定为每分钟
； 定义起始点和螺距
G00 X50 Y50 ； 将刀具移动到起始点
G76 X50 Y50 Z-40 P1 Q10 R0.1 F50 ； 定义螺距1/10"，第一次吃刀量0.1mm
； 开始螺纹切削
G76 E1 F400 ； 开始切削，E1表示该螺纹为NPT 1/8"
G00 Z10 ； 撤离螺纹部分
； 循环切削直到完成
； ...（此处省略中间步骤，重复G76 E1 F400和G00 Z10指令）...
； 结束螺纹切削
G76 E3 F400 ； 最后一段螺纹切削，E3表示该螺纹为NPT 3/8"
G00 X50 Y50 ； 将刀具移动到起始点
G80 ； 结束螺纹切削
G00 Z100 ； 将刀具移出工件
```
请注意，具体的代码编写需要根据不同的CNC控制系统和机床进行调整和优化。建议参考相应的编程手册和螺纹标准来进行编程。