Question

我想在Photoshop中列出我的所有动作。这是我尝试复制LINK的脚本。但它总是跳过最后一个。

所以这部分列出了我的行动小组。在循环中，我将列出所有操作。但那部分也失败了。我认为这就是为我制造错误的代码流程：

对象＆＃34;设置3和＃34的第2组中的1;目前无法使用。

这是我到目前为止所提出的

 Dim actionSet As Integer = cTID("ASet")
 Dim action As Integer = cTID("Actn")
 Dim name As Integer = cTID("Nm  ")
 Dim numberOfChildren As Integer = cTID("NmbC")

 Dim refASet = New ActionReference()
 Dim refa = New ActionReference()

 Dim desc = New ActionDescriptor()
 Dim adesc = New ActionDescriptor()

 Dim index As Integer = 1
 While True
     refASet.PutIndex(actionSet, index)

     Try
         desc = _appPs.ExecuteActionGet(refASet)
     Catch ex As Exception
         Exit While
     End Try

     If desc.HasKey(name) Then
         Dim actions(desc.GetInteger(numberOfChildren)) As String
         MsgBox(desc.GetString(name))
     End If
     index += 1
 End While

列出所有Photoshop操作

0 个答案: