liminnet
发表于 2008-11-27 16:51:00
nonsmall
发表于 2008-11-27 17:08:00
<p>遇到backspace你每次重新输出试试</p><p>不要用undo没用的</p>
露水2
发表于 2008-11-27 17:42:00
nonsmall 用的是先通过数字键 然后触动getreal 但是第一个值还是没有办法回车掉 或者进行修改
liminnet
发表于 2008-11-27 17:48:00
nonsmall
发表于 2008-11-28 09:02:00
本帖最后由 作者 于 2008-11-28 9:03:27 编辑 <br /><br /> <p>当然还有办法</p><p>调用sendkey让电脑自己输入一个数字或许可行</p>
liminnet
发表于 2008-11-28 09:15:00
nonsmall
发表于 2008-11-28 09:15:00
本帖最后由 作者 于 2008-11-28 10:10:15 编辑 <br /><br /> <p>问题解决:</p><p>(defun c:test( / asc get go real return)<br/> (setq go T)<br/> (print "输入实数")<br/> (while (and go (setq get (grread T)))<br/> (if (and (= (car get) 2) (setq asc (cadr get)) (/= asc 47) (>= asc 46) (<= asc 57))<br/> (progn<br/> (setq ws (vlax-Create-Object "WScript.Shell"))<br/> (setq real (getreal (car (list "" (vlax-invoke-method ws 'sendkeys (chr asc))))))<br/> (if real (setq go nil))<br/> )<br/> )<br/> )<br/> real<br/>)</p>
liminnet
发表于 2008-11-28 09:47:00
露水2
发表于 2008-11-28 10:09:00
<p>看看咱的模拟动态双线 </p>
露水2
发表于 2008-11-28 10:09:00