ps自动化入门(1)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        Dim psApp = New Photoshop.Application        Dim psDoc = psApp.ActiveDocument        '设置当前操作默认单位为像素        psApp.Preferences.RulerUnits = Photoshop.PsUnits.psPixels        '查看所有图层的名称        For Each lay In psDoc.ArtLayers            Debug.Print(lay.name)        Next        '通过图层名称获得图层        Dim k = psDoc.ArtLayers("test")        '获取文字层内容        MsgBox(k.TextItem.Contents)        '修改文字层内容        k.TextItem.Contents = Now.ToString        '图层旋转30度        k.Rotate(30)        '图层缩放80%        k.Resize(80, 80)        '复制当前程序界面，粘贴到ps中        Dim a = New Bitmap(Width, Height)        Dim bm As New System.IO.MemoryStream()        Me.DrawToBitmap(a, New Rectangle(0, 0, Width, Height))        a.Save(bm, Drawing.Imaging.ImageFormat.Jpeg)        Clipboard.SetImage(Image.FromStream(bm))        psDoc.Paste()    End Sub