errorのソースを表示

{{AutoLISP}}
; 構文
: (*error* ''string'')


; 機能
: ユーザ定義可能なエラー処理関数。
: *error* 関数が nil でない場合は、LISP のエラー条件が存在するときに、常にこの関数を実行する。 
: CAD は、*error* 関数に 1 つのエラーの内容を示す文字列を渡す。
: *error* 関数には、引数のない command 関数の呼び出し  (たとえば (command))を含めることができる。これにより、command 関数を使用して直前に呼び出されたコマンドはキャンセルされる。


; 引数
:* string : 文字列


; 戻り値
: なし
:* vl-exit-with-value を使用した場合、値を返すことが出来る。


; サンプル
<pre class="brush:autolisp;">
; 次の関数は、AutoLISP の標準エラー処理と同じことを行う。 エラーの説明の前に、「エラー:」という語を表示する。
(defun *error* (msg) 
  (princ "エラー:") 
  (princ msg) 
  (princ) 
) 

; 次の例は、コマンド関数を定義する場合の一般的なエラー処理方法。
 (defun c:myslope ( )    
   (setq temperror *error*)                ; 標準のエラー処理を保存  
   (setq *error* myerror)                  ; 独自のエラー処理 myerror を設定 
   (setq p1 (getpoint "1点目: "))             
   (setq p2 (getpoint p1 "2点目: "))  
   (setq slope (/ (-(cadr p2) (cadr p1))
   (-(car p2) (car p1))))     
   (princ (strcat "Slope equals " (rtos slope 2 2)))     
   (setq *error* temperror)                ; エラー処理を元に戻す  
 )
 
 ; c:myslope で使用する 独自のエラー処理 myerror 関数
 (defun myerror (msg)
   (if (= msg "角度0(ゼロ)")
     (prompt "\n 垂直です。")
     (prompt (strcat "\n" msg)
   )
   (setq *error* temperror)                ; エラー処理を元に戻す
 )  
</pre>

-----
関連事項
* [[vl-exit-with-error]] 関数
* [[vl-exit-with-value]] 関数
* [[vl-catch-all-apply]] 関数
* [[vl-catch-all-error-message]] 関数
* [[vl-catch-all-error-p]] 関数
* [[acet-error-init]]
* [[acet-error-restore]]


[[Category:AutoLISP]]