図脳RAPID用:一要素消去DeleteIt

ver.1.0(2004.08.23)ダウンロード
内容 サイズ(Bytes)
VBSスクリプトファイル 2,183

マウスで選択した一要素を消去する、シンプルなコマンドです。
動作にはWindowsScriptingHostが必要です。

短いので、以下に全文を掲載します。
Option Explicit
Dim Doc,App
Const RegistryKeyCode = "zwRapid7Pro"
Const DeleteItMessage = "消去する要素を選択してください"
Const EndOfCommand = "コマンドを終了しますか?"

Set Doc = CreateObject(RegistryKeyCode)
Set App = Doc.Application
Set Doc = App.GetDoc

Do
  App.SetMessage DeleteItMessage
  Doc.GetTouchPrimitive
  Doc.RemoveS
  App.SetMessage ""
  If MsgBox(EndOfCommand,vbYesNo) = vbYes Then
    Exit Do
  End If
Loop

Set Doc = Nothing
Set App = Nothing

メインはもちろん、後半のループです。
お気付きのように、Loop〜While または Loop〜Until にすれば、3行節約になります。
でも、後判定のループ特にUntilの条件って、勘違いする事ありしませんか?
私はそうなので、急ぎの場合(スクリプトは大抵急ぐ要件で書きますが)は、
とりあえず無限ループで逃げて、後で落ち着いてから書き直す、と言う事をよくやります。
今回は、あえて初期の状態を残してみました。

図脳RAPID用プログラム目次へ

Tails of CAD! トップページへ