GIMP Script-Fu脚本非法函数错误排查：图层获取相关问题

核心问题排查点 #

• GIMP版本兼容性：gimp-image-get-layer-by-name 是GIMP 2.10.10及以上版本新增的函数，若你的GIMP版本低于此，调用该函数会直接触发「非法函数错误」。可通过帮助→关于GIMP查看版本号，版本过低需升级。
• 语法错误（最可能原因）：代码中let*块的函数调用被多套了一层括号，Scheme解释器会把内层列表的第一个元素当作函数执行，导致非法函数错误。比如原代码中：

  (let* (...)
      (
          (gimp-image-select-color image 0 activelayer '(0 0 0))
          ...
      )
  )
  

  这里的外层括号完全多余，直接移除即可。
• 图层名称匹配问题：输入的layername必须与目标图层的精确名称一致（区分大小写、空格），若名称不匹配，gimp-image-get-layer-by-name会返回#f，后续用car提取时会引发错误。
• 空值未处理：未判断图层是否成功获取，若图层不存在，后续的选区、填充操作都会报错，需先做存在性检查。

修正后的代码示例 #

(define (script-fu-recolor-layer image color layername imgoutname)
  (gimp-image-undo-group-start image)
  (gimp-selection-none image)
  (gimp-context-set-foreground color)

  (let* ((target-layer (car (gimp-image-get-layer-by-name image layername))))
    ; 检查图层是否存在
    (if target-layer
        (begin
          (gimp-image-select-color image 0 target-layer '(0 0 0))
          (gimp-edit-bucket-fill target-layer FG-BUCKET-FILL NORMAL-MODE 100 0 0 0 0)
          (gimp-item-set-visible target-layer 1)
          (gimp-message (string-append "成功处理图层：" layername)))
        (gimp-message (string-append "未找到图层：" layername))))

  ; 导出PNG部分
  (let* ((duplicateImg (car (gimp-image-duplicate image))))
    (let* ((flatLayer (car (gimp-image-flatten duplicateImg))))
      (file-png-save 1 duplicateImg flatLayer imgoutname imgoutname 1 0 0 0 0 0 0)))

  (gimp-image-undo-group-end image)
  (gimp-displays-flush)
)

额外注意事项 #

• 注册脚本时，确保layername参数的类型设置为SF-STRING "图层名称"，避免GUI传入非字符串值。
• 测试时可先通过gimp-message输出layername的实际值，确认与图层名称完全一致。

内容的提问来源于stack exchange，提问作者listopad