[求助]：输入的第一位数字成了末位数

花开梦落

我编了以下的小程序，我常用得到，问题是输入偏移距离时第一个字符和第二个字符相同时变成了一个字符，不同时第一输入的字符成了末位数。求热心的朋友指点。
这是鄙人编的第一个LISP程序。小了点。
(defun c:fdg ()
          (setq jl (getdist "请输入偏移距离"))
          (setq xi (entsel "选取线"))
        (setq ptwzz (cadr xi))
        (setq ptwz (getpoint "指定方位"))
          (command "offset" jl xi ptwz "")
        (setq xx (entlast))
            (command "offset" 0.4 xx ptwzz "")
)

xyp1964

哪儿来的“字符”？
[php](load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址:http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
（可在签名栏直接下载）
|;

(defun c:test ()
  (setq        jl    (UREAL 7 "" "\n输入偏移距离" jl)
        xi    (entsel "选取线")
        ptwzz (cadr xi)
        ptwz  (getpoint "指定方位")
  )
  (command "offset" jl xi ptwz "")
  (setq xx (entlast))
  (command "offset" 0.4 xx ptwzz "")
  (princ)
)[/php]

花开梦落

感谢2楼的答复，唯一的问题是为什么不用getdist而用UREAL，或者说getdist在新的Vlisp中取消了，我用的是CAD2004(怀疑用的学习资料是很老旧的)。

xyp1964

UREAL是自定义函数，(UREAL 7 "" "\n输入偏移距离" jl)可用控制空输入、零输入和负数输入。

花开梦落

我发现在"输入偏移距离"前加上\n就可以避免这个故障，但是功能没UREAL强大。