PcmAppクラスの扱いについて
スクリプトで、PcmAppクラスのオブジェクトを組み込みのデフォルトオブジェクトとして使用できるようにしました(VbsModeが1または2の場合)。
これにより、
var pcm = new ActiveXObject("Pcm.App")
や
Set objApp = CreateObject("Pcm.App")
は不要となります。
なお、今まで通り存在していても問題はありません。
- ■ サンプル文
- 開いているプロジェクトのプロジェクト名を表示します。
- [JScriptの場合]
- //@JScript
function Cmd()
{
//var pcm = new ActiveXObject("Pcm.App");//pcm 不要
//var doc = pcm.GetPcmDoc(0);//pcm 不要
var doc = GetPcmDoc(0);
var prj = doc.GetProject;
alert(prj.title);
return 0;
}
- [VBScriptの場合]
- '@VBScript
Sub Cmd_OnLoad()
'Set objApp = CreateObject("pcm.app") 'objApp 不要
'Set objDoc = objApp.GetPcmDoc(0) 'objApp 不要
Set objDoc = GetPcmDoc(0)
Set objPrj = objDoc.GetProject
msgbox objPrj.Title
End Sub
|