数控异形切割的编程可以通过以下步骤进行：
确定切割工件的形状和尺寸
使用绘图软件或CAD软件进行设计和绘制，明确零件的尺寸、形状和材料特性。
选择合适的刀具和材料
根据切割工件的特点和要求，选择适当的刀具类型和材料，这些选择将直接影响切割过程的效果和质量。
生成切割路径
利用CAD/CAM软件将设计好的零件转化为数控切割机床所需的G代码。CAM软件可以根据材料类型、刀具特性、切割机床性能等参数自动进行优化，并生成最佳的切割方案。
编辑和优化G代码
在生成的G代码中，可能需要进行一些编辑和优化，以确保编程的正确性和准确性。
上传程序到数控切割机
通过USB或网络将编程完成的G代码上传到数控切割机的控制器中。
预设工作
在运行程序前，进行预设工作，包括调整刀具位置、设定切割起点和终点、调整切割速度和气压等参数，以确保切割质量和安全。
运行程序
数控切割机将根据编程指令自动进行切割。
使用的软件工具
AutoCAD：作为设计和绘图软件，用于创建和编辑零件的CAD模型。
CAM软件：用于将CAD模型转化为数控切割所需的G代码，并进行优化。
VBA和VB6.0：用于开发自定义的菜单和工具，实现自动化编程和轨迹仿真。
示例代码
```vba
Dim AcadApp As AcadApplication
Dim newMenu As Acad Popup Menu
Dim menuItemOpen2 As Acad Popup MenuItem
Sub 连接AutoCAD（）
On Error Resume Next
Set AcadApp = GetObject（"AutoCAD.Application"）
If Err Then
Err.Clear
End If
End Sub
Sub 创建异形切割菜单（）
Dim currMenuGroup As Acad Group
Set currMenuGroup = ThisDrawing.Groups.Item（"MenuGroup"）
Set newMenu = currMenuGroup.Menus.Add（"异形切割"）
Dim menuItemOpen As Acad Popup MenuItem
Set menuItemOpen = newMenu.AddMenuItem（newMenu.count + 1, "轨迹和代码生成", "ThisDrawing.Com Dialog2"）
menuItemOpen.HelpString = "代码生成"
End Sub
Sub 代码生成对话框（）
' 这里可以调用一个对话框，让用户输入加工参数，并生成G代码
End Sub
```
通过上述步骤和代码示例，可以实现数控异形切割的编程。建议在实际应用中，根据具体的切割需求和机床性能，调整工艺参数和编程策略，以确保最佳的切割效果。