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

liminnet · 发表于 2008-11-27 16:51:00

提示: 作者被禁止或删除内容自动屏蔽

nonsmall · 发表于 2008-11-27 17:08:00

遇到backspace你每次重新输出试试

不要用undo没用的

露水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 编辑

当然还有办法

调用sendkey让电脑自己输入一个数字或许可行

liminnet · 发表于 2008-11-28 09:15:00

提示: 作者被禁止或删除内容自动屏蔽

nonsmall · 发表于 2008-11-28 09:15:00

本帖最后由作者于 2008-11-28 10:10:15 编辑

问题解决:

(defun c:test( / asc get go real return)
(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
)

liminnet · 发表于 2008-11-28 09:47:00

提示: 作者被禁止或删除内容自动屏蔽

露水2 · 发表于 2008-11-28 10:09:00

看看咱的模拟动态双线

露水2 · 发表于 2008-11-28 10:09:00

账号		自动登录	找回密码
密码			注册

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-11-27 16:51:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-11-27 17:48:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-11-28 09:15:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-11-28 09:47:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

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

本帖子中包含更多资源