プログラムの実行を遅延させる

[Angelo2449]

皆さんこんにちは。
私はアニメーションプログラムを書いています、私の問題は実行中の特定の遅延を得ています。
遅延はプロセッサの速度とは独立していなければならないので、時間に縛らなければならない。
小さじをつけ、線を描き、回転の点を定義し、5°の角度のホイールを定義します。
2秒ほど遅れて、責任ある簡単な外部プログラムを呼び出しました。
同じ結果を得るにはどうすればよいですか?
お問い合わせ

 (defun c:ruotalinea (/ lineax perno copyx angx のコント a))

(setq lineax (entsel "select line")))
(setq ピン (getpoint は「回転ポイント」をクリック))))
(setq の輪郭 0)

(レパート10)
(setqの輪郭(1+の輪郭))

(runapp "c:\autocadsupporto\\\libertytre\ritardo.exe"c:\autocadsupporto\\\libertytre\\\\ritardo.tkn" :vlax-true)

(コマンド "_copy" lineax "" ピン ")
(setqのcopyx (entlast)

(setq angx (* の輪郭-5))
(コマンド "_rotate" コピー x "" angx ピン)
;;;

;;;

 

[x11start]

このリスペス(私のものではありませんが、私はそれを取った場所を記憶し、著者に謝罪しません!)では、プログレッシブバーの使用が示されています。 時間を費やすには、単純な繰り返しを使用してください。

 

[dieva]

皆さんこんにちは。
私はアニメーションプログラムを書いています、私の問題は実行中の特定の遅延を得ています。
遅延はプロセッサの速度とは独立していなければならないので、時間に縛らなければならない。
小さじをつけ、線を描き、回転の点を定義し、5°の角度のホイールを定義します。
2秒ほど遅れて、責任ある簡単な外部プログラムを呼び出しました。
同じ結果を得るにはどうすればよいですか?
お問い合わせ

 (defun c:ruotalinea (/ lineax perno copyx angx のコント a))

(setq lineax (entsel "select line")))
(setq ピン (getpoint は「回転ポイント」をクリック))))
(setq の輪郭 0)

(レパート10)
(setqの輪郭(1+の輪郭))

(runapp "c:\autocadsupporto\\\libertytre\ritardo.exe"c:\autocadsupporto\\\libertytre\\\\ritardo.tkn" :vlax-true)

(コマンド "_copy" lineax "" ピン ")
(setqのcopyx (entlast)

(setq angx (* の輪郭-5))
(コマンド "_rotate" コピー x "" angx ピン)
;;;

;;;

(コマンド "_delay" 1000) 1秒遅延