数値入力のみ入力_box dcl

[acitano]

おはようございます。
全体または実数のみが受け入れられるように、edit_box の作業を行う必要があります。
私は良いですが、圧倒したいのですが、ユーザが0.2の代わりに.2のように入力した場合、エラーを回避したいです。
または、0.2ではなく2。
基本的には、最初のオートカド文字が私に答えてポイントを差し込むとき:

入力の誤った位置

代わりに、.2を0.2または2を0.2に変えなければならないことを理解するために私のdclが好きです。
私は十分に説明したことを願っています, とにかくここに私の自由です:

(defun c:test())
(setq num 5 パス nil)
(setq 対話)
(<2 num)
(new_dialog "stair" ダイアログ) (exit)
(action_tile "幅" (setq nwidth)
(box_generic_click) は、
ログイン
\"幅\"
\"値または誤り\"
実数または実数を入力してください。
スタッフ
\「入力幅\」
お問い合わせ
「リアル」 お問い合わせ
)
(action_tile "accept" (progn))
(平方通路t)
(done_dialog 0) の
)
(action_tile "cancel" (setq 通路 nil) (done_dialog 0)))))
(setq num(start_dialog)) ) )
)
(unload_dialog ダイアログ)
(プライアンス)
)
;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
(defun box_generico_click(タイル値m1 m2 m3 msgtit type1 type2 / value_old)
(setq value_old 値)
(seq 値(read(get_tile tile)))))))))
(if(or(=(type value) type1)(=(type value) type2)))))
バリュー
(プログ)
;(print(type値))
;(印刷物の価値)
(lspokonly m1 m2 m3 msgtit)
(コンド)
((=(type value_old) 'int) (set_tile タイル (rtos value_old 2 0)))))))))))
((=(type value_old) 'real)(set_tile tile)))))))
((=(type value_old) 'str) (set_tile value_old)))
(c)
)
(mode_tileタイル2);同じタイルに焦点を合わせて下さい
値_old
)
)
)

そしてここに私のdclです:

階段 : ダイアログ {
キー = "tolo";
:row{
:コラム{
:toggle {key = "vis_pianta"; ラベル = "pianta";}
:boxed_column お問い合わせ
幅 = 30;
ラベル = "parametri Generali";
: 行 {
: テキスト {width = 7; 値 = "larghezza";}
: edit_box {width = 5; キー = "larghezza"; edit_width = 5;}
: テキスト {width = 10; 値 = "肺";}
: edit_box {width = 5; キー = "肺"; edit_width = 5;}
お問い合わせ
お問い合わせ
お問い合わせ
お問い合わせ
ok_cancel は、
お問い合わせ

 

[dieva]

私は下のコードのようにします...美しいdistofとvl-string-substと恐怖を渡します。
今日は日曜日であり、私は急いでいたので、私は他の有望なソリューションを評価しませんでした。 お問い合わせ

(defun box_generico_click(poose toe m1 m2 m3 msgtit tipo1 tipo2 / valore_old)
(setq valore_old valore) は、
;;;;;;(setq valore(read(get_fore toe)))))))
(setq valore(vl-string-subst ") "," (get_toe toe))))))))
(distof valore の場合)
ログイン
(progn)
;(印刷物(タイプ wlore)))
;(印刷のwlore)
(lspokonly m1 m2 m3 msgtit)
(コンド)
((=(type valore_old) 'int) (set_fore toe (rtos valore_old 2 0))))))))))))))
((=(type valore_old)) (set_fore toe (rtos valore_old 2 (getvar "luprec"))))))))))))))))))))))))))))
((=(type valore_old) 'str) (set_fore toe valore_old))))
(ニル)
)
(mode_fore のつま先 2); 焦点の sullo stesso の fore
valore_old(ワラ)
)
)
)

 

[acitano]

ドメニックの夕方,
ありがとうございました。
私は、ポイントまたはコンマが最初の文字としてインサートされるすべての時間の前に "0" ゼロを常に投入するように、私は編集_boxを再コンパイルすることを可能にするラインを追加しました。

(defun box_generico_click(タイル値m1 m2 m3 msgtit type1 type2 / value_old)
(setq value_old 値)
(setq値(vl-string-subst ".","(get_tile tile)))))))
(distof 値)
(if(wcmatch value ".*") (set_tile tile tile(strcat "0"))))))))。これは追加ラインです。
(プログ)
(lspokonly m1 m2 m3 msgtit)
(コンド)
((=(type value_old) 'int) (set_tile タイル (rtos value_old 2 0)))))))))))
((=(type value_old) 'real)(set_tile tile)))))))
((=(type value_old) 'str) (set_tile value_old)))
(c)
)
(mode_tileタイル2);同じタイルに焦点を合わせて下さい
値_old
)
)
)

 

[acitano]

完全性のために また、lspokonly関数も追加します。そうでなければ、コードを理解しません。
私はまた、私がインスピレーションを取ったソースを記述しました, 私には、鉱山.

(defun lspokony (message1 message2 ハンド)
(setq dcl_id (load_dialog "funzioni_comuni.dcl"))
(もし(new_dialog "lspokolly" dcl_id)) (exit)
(set_tile "message1" message1)(set_tile "message2" message2)(set_tile "message3" message3)(set_tile "hand" hand)
(tile_action "yes" "(done_dialog)"))")
(start_dialog)(unload_dialog dcl_id)(princ))
プロフィール
)

ここではdclです。

//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// 最高級: lspokonly
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// descrizione: autoesplicativa, propone una bottomra di 対話コン ソロ ok
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// フォント: http://www.afralisp.net/dialog-controllanguage/tutorials/the-autolisp-message-box.php
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// versioni: バージョン 2018年02月02日
lspokonly : ダイアログ {
キー = "メイン";
: 列 {
: テキスト {key = "message1";width=50;}
: テキスト {key = "message2";width=50;}
: テキスト {key = "message3";width=50;}
お問い合わせ
: 行 {
: スペーサー { 幅 = 1
: ボタン {label = "ok";key = "accept";width = 12;fixed_width = true;mnemonic = "o";is_default = true;alignment =中心;}
: スペーサー { 幅 = 1;}
お問い合わせ
お問い合わせ