1. 宏
（1）功能描述
实现“批量获取指定范围表面的曲率半径，并在输出窗口打印结果”的功能。支持用户自定义表面范围（起始面与终止面），可快速查看多个表面的半径参数，避免手动逐个查看的重复性操作，尤其适合多表面镜头的参数核查场景。
（2）代码实现
BEGIN
! 定义变量：起始面、终止面、当前面序号、当前面半径
START_SURF = 1 ! 自定义起始面（可修改，如改为 2 表示从第 2 面开始）
END_SURF = 5 ! 自定义终止面（可修改，如改为 8 表示到第 8 面结束）
CURR_SURF = 0 ! 当前遍历的表面序号，初始化为 0
CURR_RADIUS = 0.0 ! 当前表面的曲率半径，初始化为 0.0
! 打印标题与范围提示，提升结果可读性
PRINT "=== 批量获取表面曲率半径 ==="
PRINT "起始面：", START_SURF, " 终止面：", END_SURF
PRINT "-----------------------------"
! 循环遍历指定范围的表面
FOR CURR_SURF = START_SURF TO END_SURF STEP 1
! 调用 GETRADIUS 函数获取当前表面的曲率半径
CURR_RADIUS = GETRADIUS(CURR_SURF)
! 判断半径是否为无穷大（OpticStudio 中平面表面半径用极大值表示）
IF CURR_RADIUS > 1E+19 THEN
PRINT "表面", CURR_SURF, "：平面（半径无穷大）"
ELSE
! 打印当前表面的序号和半径（保留 4 位小数，确保精度）
PRINT "表面", CURR_SURF, "：半径 = ", CURR_RADIUS, " mm" ! 假设镜头单位为毫米
ENDIF
NEXT CURR_SURF ! 循环结束，进入下一个表面
! 打印结束提示，告知用户操作完成
PRINT "-----------------------------"
PRINT "批量获取完成！"
END
（3）代码说明
• 变量定义：START_SURF 和 END_SURF 为表面范围变量，用户可根据需求调整（如查看第 3-10 面时，设 START_SURF=3、END_SURF=10）；CURR_SURF 用于循环遍历表面序号，CURR_RADIUS 存储当前表面的半径值。
• 循环逻辑：通过 FOR-NEXT 循环遍历指定范围的表面，STEP 1 表示每次循环序号增加 1（即按表面序号依次遍历），每次循环调用 GETRADIUS(CURR_SURF) 获取当前表面半径。
• 条件判断：若半径值大于 1E+19（OpticStudio 中平面表面的半径默认用极大值标识），则判定为平面并特殊提示；否则打印具体半径值，避免用户误解极大值为异常数据。
• 输出优化：通过 PRINT 函数打印标题、表面参数和结束提示，用分隔线区分不同内容，提升结果可读性。
2. 示例宏 2
（1）功能描述
实现“批量修改指定范围表面的厚度，并验证修改结果”的功能。支持用户自定义表面范围（起始面、终止面）和厚度增量（如增加 2mm、减少 1mm），修改后自动打印“修改前-修改后”厚度对比，确保修改正确执行，同时增加厚度下限限制，避免出现无效厚度参数。
（2）代码实现
BEGIN
! 定义变量：起始面、终止面、厚度增量、当前面序号、修改前厚度、修改后厚度
START_SURF = 2 ! 自定义起始面（如从第 2 面开始修改）
END_SURF = 4 ! 自定义终止面（如修改到第 4 面结束）
THICK_INCREMENT = 2.0 ! 厚度增量（正数增加、负数减少，可修改为 1.5、-1 等）
CURR_SURF = 0 ! 当前遍历的表面序号，初始化为 0
OLD_THICK = 0.0 ! 修改前的表面厚度，初始化为 0.0
NEW_THICK = 0.0 ! 修改后的表面厚度，初始化为 0.0
! 打印标题、范围及增量提示
PRINT "=== 批量修改表面厚度 ==="
PRINT "起始面：", START_SURF, " 终止面：", END_SURF
PRINT "厚度增量：", THICK_INCREMENT, " mm" ! 假设镜头单位为毫米
PRINT "-----------------------------"
PRINT "表面序号 | 修改前厚度(mm) | 修改后厚度(mm)"
PRINT "-----------------------------"
! 循环遍历指定范围的表面
FOR CURR_SURF = START_SURF TO END_SURF STEP 1
! 步骤 1：获取修改前的表面厚度（调用 GETTHICKNESS 函数）
OLD_THICK = GETTHICKNESS(CURR_SURF)
! 步骤 2：计算修改后的厚度（原厚度 + 增量）
NEW_THICK = OLD_THICK + THICK_INCREMENT
! 步骤 3：限制厚度下限（避免无效参数，可根据需求调整下限值）
IF NEW_THICK < 0.1 THEN ! 设最小有效厚度为 0.1mm
NEW_THICK = 0.1
PRINT "警告：表面", CURR_SURF, "厚度过薄，强制设为 0.1mm"
ENDIF
! 步骤 4：应用厚度修改（调用 PUTTHICKNESS 函数，写入新厚度）
PUTTHICKNESS(CURR_SURF, NEW_THICK)
! 步骤 5：打印修改前后对比（保留 3 位小数，确保精度）
PRINT " ", CURR_SURF, " | ", OLD_THICK, " | ", NEW_THICK
NEXT CURR_SURF ! 循环结束，进入下一个表面
! 打印结束提示，包含修改表面总数
PRINT "-----------------------------"
PRINT "批量修改完成！共修改", END_SURF - START_SURF + 1, "个表面"
END
（3）代码说明
• 变量定义：THICK_INCREMENT 为厚度增量变量，正数表示增加厚度（如 2.0 增加 2mm），负数表示减少厚度（如 -1.0 减少 1mm）；OLD_THICK 和 NEW_THICK 分别存储修改前后的厚度，用于对比验证。
• 厚度限制：通过 IF 条件判断设置厚度下限为 0.1mm，若计算的新厚度小于 0.1mm，强制将厚度设为 0.1mm并提示警告，避免因增量过大导致厚度为负（OpticStudio 中负厚度为无效参数），增强宏的容错性。
• 修改与验证：流程分为“获取原厚度→计算新厚度→限制厚度下限→应用修改→打印对比”，每一步紧密衔接，用户可通过输出结果直观确认修改是否正确，减少人工核查成本。
• 批量统计：结束时通过 END_SURF - START_SURF + 1 计算修改的表面总数（如第 2-4 面共 3 个表面），便于用户核对修改范围是否符合预期。