「Vl-catch-all-error-p」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
18行目: 18行目:


; サンプル
; サンプル
: : vl-catch-all-apply 関数を使用して 0(ゼロ)で除算する。
<pre class="brush:autolisp;">
(setq catchit (vl-catch-all-apply '/ '(50 0)))  
; vl-catch-all-apply 関数を使用して 0(ゼロ)で除算する。
#<%catch-all-apply-error%>  
(setq catchit (vl-catch-all-apply '/ '(50 0)))  
: vl-catch-all-error-p 関数を使用して、vlcatchall-apply 関数が返した値がエラー オブジェクトかどうかを調べる。
#<%catch-all-apply-error%>  
(vl-catch-all-error-p catchit)
 
'''T'''
; vl-catch-all-error-p 関数を使用して、vlcatchall-apply 関数が返した値がエラー オブジェクトかどうかを調べる。
(if (vl-catch-all-error-p catchit)
  (princ "\nエラーっすね")
  (princ "\nエラーじゃないっすね")
)
</pre>


-----
-----

2022年11月4日 (金) 05:43時点における最新版

構文
(vl-catch-all-error-p arg)


機能
引数が vl-catch-all-apply 関数から返されたエラー オブジェクトかどうかを調べる。


引数
  • arg : 任意の引数。


戻り値
指定された引数が vl-catch-all-apply 関数から返されたエラー オブジェクトの場合は T。それ以外の場合は nil。


サンプル
; vl-catch-all-apply 関数を使用して 0(ゼロ)で除算する。
(setq catchit (vl-catch-all-apply '/ '(50 0))) 
#<%catch-all-apply-error%> 

; vl-catch-all-error-p 関数を使用して、vlcatchall-apply 関数が返した値がエラー オブジェクトかどうかを調べる。
(if (vl-catch-all-error-p catchit)
  (princ "\nエラーっすね")
  (princ "\nエラーじゃないっすね")
)

関連事項