如何读取photoshop文件中图层的属性

Question

我是一个老师,我想用计算机批改学生上交的photoshop图像文件,用vb怎么做,请高手指点.

Answer 1

Photoshop安装盘:\Program Files\Adobe\Photoshop CS\脚本指南\示例脚本\Visual Basic
看看是不是对你有些帮助

Answer 2

刚装上cs版的,打开了示例脚本Dim appRef As New Photoshop.Application
Dim docRef As Photoshop.Document
Dim artLayerRef As Photoshop.ArtLayerIf appRef.Documents.Count > 0 Then
    Set docRef = appRef.ActiveDocument
Else ' open sample file
    FileName = appRef.Path & "\样本\山丘.tif"
    Set docRef = appRef.Open(FileName)
End If    Set artLayerRef = docRef.ActiveLayer
    If (artLayerRef.IsBackgroundLayer) Then
        artLayerRef.IsBackgroundLayer = False
    End If
    docRef.ActiveLayer.ApplyStyle "迷惑(图像)"可一运行,就提示"找不到工程或库",我看了一下引用,发现adobe photoshop 8.0 object library引用无效,好像它所指的库文件根本不存在.怎么解决啊?