v1.0
イメージ ソースからクリップ コンテナに新しいイメージ クリップを作成、追加します。 このコマンドを実行するには、Sources コンテナにイメージ ソースが存在しなければなりません。イメージ ソースを作成するには、AddImageSource コマンドを使用します。このコマンドは、構文と動作が SIAddImageClip コマンドと似ていますが、パラメータではなく関数呼び出しによって値を戻す点が異なります。
ヒント: ファイル名から直接クリップに移動するショートカットとして、CreateImageClip コマンドも使用できます(AddImageSource と AddImageClip を組み合わせて使用した場合と同様です)。
oReturn = AddImageClip( Source, [Name] ); |
新しい ImageClip を戻します。
'------------------------------------------------------------------ ' This example shows how to add an image clip from an image source. '------------------------------------------------------------------ option explicit ' First, add an image source. Dim oSourceObj, ImageFile ImageFile = Application.InstallationPath( siFactoryPath ) & "/Data/XSI_SAMPLES/Pictures/xsilogo.jpg" SIAddImageSource ImageFile, "XSIlogo", oSourceObj ' Now create an image clip from the image source. Dim oClipObj set oClipObj = AddImageClip( oSourceObj, "XSIlogo_Clip" ) ' Now output some information about the clip, and its source. Dim SourceName, SourceFile, XRes, YRes SourceName = GetValue( oClipObj & ".Source.Name" ) logmessage oClipObj & " Source : " & CStr(SourceName) SourceFile = GetValue( oClipObj & ".SourceFileName" ) logmessage oClipObj & " Source File : " & CStr(SourceFile) XRes = GetValue( "Sources." & SourceName & ".XRes" ) logmessage oClipObj & " X Resolution : " & CInt(XRes) YRes = GetValue( "Sources." & SourceName & ".YRes" ) logmessage oClipObj & " Y Resolution : " & CInt(YRes) '--------------------------------------------------------- ' Output from this script: 'INFO : "Clips.XSIlogo_Clip Source : XSIlogo" 'INFO : "Clips.XSIlogo_Clip Source File : <FactoryPath>\Data\XSI_SAMPLES\Pictures\xsilogo.jpg" 'INFO : "Clips.XSIlogo_Clip X Resolution : 500" 'INFO : "Clips.XSIlogo_Clip Y Resolution : 513" '--------------------------------------------------------- |