讨论用grread动态时怎么输入实数

露水2

问题如题目

露水2

大家过过眼瘾吧

nonsmall

通过获得输入判断ascii码包括46 48-57到用户敲回车或空格为止

调用sendkey把用户的输入模拟进去 这样也可以随时修改 用户以为是自己的输入

问题解决:

;20081128 by nonsmall

(defun c:test( / asc get go real return ws)
 (setq go T)
 (print "输入实数")
 (while (and go (setq get (grread T)))
  (if (and (= (car get) 2) (setq asc (cadr get)) (/= asc 47) (>= asc 46) (<= asc 57))
   (progn
    (setq ws (vlax-Create-Object "WScript.Shell"))
    (setq real (getreal (car (list "" (vlax-invoke-method ws 'sendkeys (chr asc))))))
    (if real (setq go nil))
   )
  )
 )
 real
)

nonsmall

测试:

命令: TEST
"输入实数" .123
0.123
命令:
命令: TEST
"输入实数" .123
0.123
命令:
命令: TEST
"输入实数" .6433
0.6433
命令:
命令: TEST
"输入实数" 1.23
1.23
命令:
命令: TEST
"输入实数" .234
0.234
命令:
命令: TEST
"输入实数" 34
34.0

露水2

你说的是不是用princ 显示的 这样不能用回车键和左右建进行修改

露水2

你说的方法试过

我还用过先用数字键触动getreal这样是基本可以了 但是第一个是用princ 显示的所以他不能进行修改

nonsmall

(defun c:test( / asc get go real return)
 (setq go T)
 (while (and go (setq get (grread T)))
  (if (and (= (car get) 2) (setq asc (cadr get)) (/= asc 47) (>= asc 46) (<= asc 57))
   (progn
    (setq real (getreal (chr asc)))
    (if real (setq go nil return (read (strcat (chr asc) (rtos real 2 4)))))
   )
  )
 )
 return
)

写个例子给你 用户先输入.的一些情况你自己判断吧

程序运行中敲数字就会切换成实数的输入

输入完成后程序退出返回实数

nonsmall

如果考虑全面的话还是用第一种方法

多写一些判断好了

nonsmall

不用princ输出

用系统变量MODEMACRO输出于状态栏就OK

nonsmall

(setvar "MODEMACRO" (strcat "您输入的值是" "1234.5" "<======"))

(setq asc 2)

(acet-ui-txted (chr asc) "输入实数" "请输入实数")