求助autolisp出现的问题

yucpp

小弟初学AUTOLISP，照着人家的教程把程序输了进去。这段程序的要求如下：
% o1 [4 N2 v+ d. i  B请撰写一个CHGRAD.LSP,用来修改圆半径，此程序的执行过程要求如下:
·
1 r1 n5 e8 m# {. R% v指令: CHGRAD
1 u, v5 [" K* h- n/ n4 B/ }
·
选取已知圆:碰选画面上已存在的圆
' {2 R* T5 t7 n' V, L& Z4 B·
$ C/ Y, m% J6 R自动显示该旧圆半径值于指令区
·
* ^# t6 }0 x1 i6 O+ R( r新半径:要求输入一半径值 new_rr
4 L3 L+ C7 P, }2 m" A
下面是程序代码：;修改圆直径的程序
) C2 x1 G6 ^( m3 m2 p& p9 J(defun c:chgrad()
* B$ \7 X0 k5 v' V (setvar "cmdecho" 0)
7 f2 k  N. w: M2 n1 }) W (setq os (getvar "osmode"));;;读取对象捕捉是否打开
(setvar "osmode" 0);;;;关闭对象捕捉
;;;以下为INPUT 像素选取
(setq en (entsel "选取已知圆："))
# ^' j/ g( Y: X0 V' c' b  ;;;以下取得像素资料和半径资料
* e, s% M5 ]+ Z (setq en_data (entget (car en)))
(setq old_rad_list (assoc 40 en_data))
(setq old_rr (cdr old_rad_list))
  (princ "\n 旧半径=")
7 h( i1 R4 m/ ?6 t' A  (princ old_rr)
2 l' _. {6 J9 C8 S ;;;以下输入新半径代替旧半径
(setq cenpt (cdr (assoc 10 en_data)))
  X7 n3 g9 L5 _ (setq new_rr (getdist cenpt "输入新园半径："))
(setq new_rad_list (cons 40 new_rr))
; N; U; m. E% Z5 y (setq en_data (subst new_rad_list old_rad_list en_data))
(entmod en_data)
+ s0 ^9 p/ U' g  {4 {$ q% D! b! A (setvar "osmode" os);;;恢复对象捕捉
) I4 t" D% X' X2 X$ T (princ)
)         
( d" D, t! w' i. D                                                                                                                                                                        这个程序在运行时是正常的，但是，却经常出现这个问题：当我按照命令提示要求输入数字时，光标总是定位在输入第一数字的前面，而正常的应该是在数字后面。举个例子，我想输入56时，先输入5，这时光标停留在5前面，再输入6时数字就成了65，当然确认后输入的数字就是65了。这种情况有时出现，有时不出现，不知道是怎么回事。大家教我怎么解决！
3 {- T  E% f3 ]' N# [/ ^1 m  v. ]
, c) c! `& M: t2 M3 U
( |3 \/ O! o3 a3 ?; {
1 u/ o$ o% i  u8 n" R' C" J- G
/ w' n, g9 [) b) \; I. s; y


6 ?; s; k' f) w


7 A+ r+ G) Q' M1 |, g4 N

yucpp

怎么没有高手指点啊，大家没有人遇到过吗？ 还是我说的不太明白？帖子要下沉了，自己顶下，呜呜

woaishuijia

程序本身看不出问题，应该是其它方面的原因。是不是输入法一类的问题造成的？

yucpp

谢谢楼上的回答，我试一下。

www1974

是用小键盘的原因，不用小键盘就没事。我也出现过，不知什么时候又好了。会不会是微软拼音？

koalabear

我认为不是程序的问题，是系统或者CAD自己的问题，我用CAD做三维，有时光标就跑到命令的前面，而且后面的汉字全成乱码了。

maoyangmy

我在R14中经常遇到这样得问题，但移植到CAD2004就没问题了

yucpp

最近比较忙。今天又重新试了一下这个程序，还是有这个问题，输入法是英文，大小键盘都试了，不知道问题到底在哪里了。

chu_xv

学这要多久呀

yucpp

原帖由 chu_xv 于 2008-12-14 01:02 发表 http://www.3dportal.cn/discuz/images/common/back.gif
学这要多久呀

. N+ F! S. G2 S8 x. c3 H. E$ {
这位兄弟，我也是刚学，大概学了两个星期，然后就停下了。现在重新开始。主要是工作太忙，
2 a, ?" J4 N7 u$ b8 y) M. A很难抽出时间。
( X5 H) d# G' F1 O( d9 D$ N不过，我还是很相信这句话“砍柴要紧，莫忘磨刀”！