在CNC编程中，如果需要先开门后换刀，通常涉及到主轴的移动和刀库的操作。以下是一个简化的编程示例，假设使用的是盘形刀库，并且换刀点位置在Z方向上的-124.8mm处：
```cnc
O9000 // 换刀子程序号
N10 G90 // 选择方式
N20 G53 Z-124.8 // 主轴Z向移动到换刀点位置
N30 M06 // 刀库旋转至其上空刀位对准主轴，主轴准停
N40 M28 // 刀库前移，使空刀位上刀夹夹住主轴上刀柄
N50 M11 // 主轴放松刀柄
N60 G53 Z-9.3 // 主轴Z向向上，回设定的安全位置（主轴与刀柄分离）
N70 M32 // 刀库旋转，选择将要换上的刀具
N80 G53 Z-124.8 // 主轴Z向向下至换刀点位置（刀柄插入主轴孔）
N90 M10 // 主轴夹紧刀柄
N100 M29 // 刀库向后退回
N110 M99 // 换刀子程序结束，返回主程序
```
在主程序中调用这个子程序的指令如下：
```cnc
N~ T~ M98 P9000
```
这里：
`N~` 和 `T~` 是程序顺序号和刀具号，根据实际需求填写。
`M98` 是调用换刀子程序的指令。
`P9000` 是换刀子程序的编号。
请根据具体的机床类型和控制系统调整上述程序中的指令。如果需要先开门（即主轴移动到安全位置），则确保在换刀前执行相应的Z向移动指令（如`G53 Z-9.3`）。如果换刀点位置不同，也需要相应调整`G53 Z-124.8`指令中的Z坐标值。