Question

以下是我正在尝试编写的更大的Script-fu脚本的一部分。

我在尝试复制打开的.xcf文件时遇到了问题，然后将其缩放到某个用户指定的维度。

以下是我的工作方式：

(define (my-duplicate-and-scale inImage inDrawable inWidth inHeight)
    (let* ((theDuplicateImage (gimp-image-duplicate inImage)))

        (gimp-image-scale theDuplicateImage inWidth inHeight)
    )
)

(script-fu-register
    "my-duplicate-and-scale"   ;func name
    "Duplicate and Scale ..."  ;menu label
    ""                         ;description
    ""                         ;author
    ""                         ;copyright notice
    ""                         ;date created
    "*"                        ;image type that the script works on
    SF-IMAGE    "Image"    0
    SF-DRAWABLE "Drawable" 0
    SF-VALUE    "Width"    "512"
    SF-VALUE    "Height"   "512"
)

(script-fu-menu-register "my-duplicate-and-scale" "<Image>/File/My")

当我执行该功能时，我收到以下错误：

Error while executing my-duplicate-and-scale:

Error: ( : 2) Invalid type for argument 1 to gimp-image-scale

根据程序浏览器gimp-image-duplicate返回IMAGE，gimp-image-scale的第一个参数为IMAGE。

Answer 1

试试这段代码：

替换：

(let* ((theDuplicateImage (gimp-image-duplicate inImage)))

使用：

(let* ((theDuplicateImage (car (gimp-image-duplicate inImage))))

Script-fu复制后无法缩放图像

1 个答案: