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

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

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (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エラーじゃないっすね")
)

@@ 1行目: / 1行目: @@
+{{AutoLISP}}
 ; 構文
 : (vl-catch-all-error-p ''arg'')
@@ 5行目: / 7行目: @@
 ; 機能
 : 引数が vl-catch-all-apply 関数から返されたエラー オブジェクトかどうかを調べる。
 ; 引数
 :* arg : 任意の引数。
 ; 戻り値
@@ 14行目: / 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>
 -----
@@ 25行目: / 34行目: @@
 * [[*error*]] 関数
 * [[vl-catch-all-apply]] 関数
-* vl-catch-all-error-message 関数
+* [[vl-catch-all-error-message]] 関数
 [[Category:AutoLISP]]