上図の寸法線は参考のため書いたもので，このvbsで書かれるものではありません．

図面にDimscaleが設定されていると，縮尺を考慮した延長表示ができます．

結果表示のダイアログが出た時点で，数値だけがクリップボードにコピーされていますので．他のアプリに数値を貼付けできます．

マウス右クリックで計測を終了し，ダイアログ表示して終了します．