【教学类-88-01】20250105折纸窗花01——AI剪纸窗花（团花）——01图形的提取

背景需求：

1、新年剪纸

元旦了需要孩子们一起贺新年。搭档买了一套新年窗户剪纸

有一半的图纸都是对称花纹（团花）样式。便于小朋友操作（一些镂空有难度，老师代为操作）

2、消耗积分

每天积累50+20+50分，用不掉，30天过期。最近过年，我想试试生成中心对称的窗花纹样

操作过程

一、通义万相2.0

关键词：一个非常简单的窗花团花图案造型，中国传统剪纸，中点对称图案，弧线，简单传统纹样，，红色剪纸艺术，白色背景，幼儿剪纸图案，不要镂空，不要精细，不要细节，容易剪，不要花蕊，不要锯齿

二、下载图片

使用UIBOT将所有红色图片依次下载（识图不准，每次运行都要重新选择“无水印下载”文字）

团花团有两千多张（500次）

三、修改白色背景为（255,255,255）

使用UIBOT和PS进行修图

UIBOT代码

Dim arrayRet,iRet,图片名,iPID,temp
Rem 把输入法改成英文键盘
iPID=App.Start('''C:\Program Files\Adobe\Adobe Photoshop CS6 (64 Bit)\Photoshop.exe''', 1, 3)

Delay(10000)
地址 = '''D:\红色剪纸\00白色'''
文件名=File.DirFileOrFolder(地址,"file",{"hasPath":true})
TracePrint(文件名)
张=UBound(文件名)

TracePrint(张)


Mouse.Move(8, 625, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 300, "iDelayBefore": 300})
Mouse.Move(27, 623, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 300, "iDelayBefore": 300})
取色点坐标 = [486,236] //正方1：1
// 取色点坐标 = [830,554]//  正方1：1中心白色
// 取色点坐标 = [230,210]// 正方16：9
// 取色点坐标 = [604,133]// 正方9：16
// 取色点坐标 = [822,516]// 正方9：16 中心白色
// 取色点坐标 = [531,183]// 正方3：4
// 取色点坐标 = [500,220]// 正方4：3

For i = 0 To 张 step 1

If i=0 


Rem 打开图片
Keyboard.Press("O", "press", ["Ctrl"],{"iDelayAfter": 300, "iDelayBefore": 3000, "sSimulate": "simulate"})



Keyboard.InputText(@ui"窗口1",地址,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 500, "iDelayBefore": 2000, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})

Mouse.Action(@ui"窗口_打开(O)","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
图片名=Right(文件名[i],8)
Keyboard.InputText(@ui"窗口",图片名,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})
Mouse.Action(@ui"窗口_打开(O)","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Rem 魔棒
Mouse.Move(15, 182, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 300, "iDelayBefore": 300})
Rem 图像
Mouse.Move(取色点坐标[0], 取色点坐标[1], false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAf