引き出し線文字

引き出し線文字入力の線記号変形は、いろんな方が作られてますが、横線
を自由な長さで入力したい場合、線コマンドと文字コマンドをクロックメニュー
で操作しながら入力してました。
線記号変形で出来ないものか考えてみましたが、私の頭脳ではここまでしか
できません。


縦線(斜線)と横線を別々の線記号変形にして、縦線(斜線)を入力後に表示
される窓から、横線の線記号変形を選択するってやり方です。
１つの線記号変形が終わると、自動的に選択の窓が表示されますので、
別なコマンドを指示しないかぎり、継続して入力できるものです。

内容は下記になります、興味がある方はご自由にお使い下さい。
私の環境で作ってますので、必要な方は適当に弄って下さい。

# 引出線文字(任意線長)
10
999



0 縦線(固定)
#
500 0 -20 #表示位置
760 0 10 #マウス倍率指定
#
05 05 0 0 0 10 1 1
05 05 0 0 0 0 30000 2
08 00 0 0 0 360 7 1 -11 e 0.4 指示点位置ダミー
08 00 0 10 0 360 7 1 -11 e 0.4 指示点ダミー
08 01 0 -5 10 -5 10000 702 -11 "長さを指示して横線選択
10000 10000
#
999 #一覧表示倍率


0 縦線(任意角度)
#
500 -30 -20 #表示位置
760 10 10 #マウス倍率指定
#
05 05 0 0 10 10 1 1
05 05 0 0 0 0 30000 2 4
08 00 0 0 0 360 7 1 -11 e 0.4 指示点位置ダミー
08 00 10 10 0 360 7 1 -11 e 0.4 指示点位置ダミー
08 01 5 -5 10 -5 10000 702 -11 "長さを指示して横線選択
10000 10000
#
999 #一覧表示倍率


0 横線(右)+文字
#
500 -30 0 #表示位置
760 10 0 #マウス倍率指定
#
05 05 0 0 10 0 1 1
20005 05 10 0 16.25 0 10000 302 "Input
08 00 0 0 0 360 7 1 -11 e 0.4 指示点位置ダミー
08 00 10 0 0 360 7 1 -11 e 0.4 指示点位置ダミー
08 01 5 -5 10 -5 10000 702 -11 "長さを指示して文字入力
10000 10000
#
999 #一覧表示倍率


0 横線(左)+文字
#
500 30 0 #表示位置
760 -10 0 #マウス倍率指定
#
05 05 -10 0 0 0 1 1
20005 05 -10 0 -3.75 0 10000 502 "Input
08 00 0 0 0 360 7 1 -11 e 0.4 指示点位置ダミー
08 00 -10 0 0 360 7 1 -11 e 0.4 指示点位置ダミー
08 01 -5 -5 0 -5 10000 702 -11 "長さを指示して文字入力
10000 10000
#
999 #一覧表示倍率