いくつかのフォントを使用する美しいスクリプトを書いたとしましょう。これは、ほとんどすべてのコンピューターで見られる標準フォントですが、JMP の既定のフォントではありません。
このスクリプトをユーザーに配布したところ、見つからないフォントに関するエラー メッセージに関するフィードバックが得られるようになりました。
ごく少数のフォントしかインストールされていないコンピュータが組織内にあるようです。
そこで、次のように各 Font メッセージを Try() ステートメントでラップしました。
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = dt << Bivariate( Y( :height ), X( :weight ) );
rbiv = biv << Report;
Try((rbiv << XPath( "//AxisBox/MouseBox/DropBox/TextEditBox" )) << Set Font( "Agency FF", 13 ), Write("No Font"));
問題は、それでもエラーのポップアップが表示されることです。
次のスクリプトを正しく作成するにはどうすればよいですか。
フォントがインストールされている場合 - 指示に従って GUI 要素に設定します。それ以外の場合 - デフォルトのフォントを使用します。
