申请调试程序（默认输入）！

Dream.Fei

我借用了XYP版主的通用函数，但是只可以记住一个输入，另一个记不了，而且还会出错。
[PHP]
;;;---------------------- USTR -----------------------------
;;;                  字符串输入格式化
;;;方式 : (setq txt1 (ustr 1 "\n\t字符串" txt1 nil))
(defun ustr (bit msg def spflag / inp nval)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          inp (getstring msg spflag)
          inp (if (= inp "")
                def
                inp
              )
    )
    (progn
      (setq msg (strcat "\n" msg ": "))
      (if (= bit 1)
        (while (= "" (setq inp (getstring msg spflag))))
        (setq inp (getstring msg spflag))
      )
    )
  )
  (if inp
    inp
    def
  )
)

;;;---------------------- UREAL ----------------------------
;;;                  实型数输入格式化
;;;方式 : (setq no1 (ureal 1 "" "\n\t实数" no1))
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)

(defun c:x1 ()
  (setq        pt1 (getpoint "\n 选择第一个角点:")
        Pt2 (getcorner pt1 "\n 选择对角点：")
  )
  (command "rectangle" pt1 pt2)
  (setq        Sname (USTR 7 "请输入索第一行文字：" Sname "")
        ;Dname (ureal 7 "" "请输入大样号：" Dname)
        Dname (USTR 7 "请输入大样号:" Dname "")
  )
  (command "text" pt1 "30" "0" Sname "" "")
  (command "text" pt2 "30" "0" Dname "" "")
)
[/PHP]
就是[  Dname ] 定义的那一行不行。
[PHP]
Dname (ureal 7 "" "请输入大样号：" Dname)
[/PHP]如果采用 Ureal 的话，得到的结果是一个带很多零的数，如"2.000000000"，但其实我想要的是 "02" 。
[PHP]
Dname (ustr 7 "请输入大样号：" Dname "")
[/PHP]
但是如果是采用的是 USTR 的话，就显示说类型错误，导致后面的语句不执行了。

请帮忙调试下，谢谢了。

xyp1964

2. [FONT=courier new]
   
3. (defun c:x1 ()
   
4.   (setq        pt1 (getpoint "\n选择第一个角点: ")
   
5.         Pt2 (getcorner pt1 "\n选择对角点: ")
   
6.   )
   
7.   (command "rectang" pt1 pt2)
   
8.   (setq        Sname (USTR 7 "请输入索第一行文字" Sname NIL)
   
9.         Dname (USTR 7 "请输入大样号" Dname NIL)
   
10.   )
    
11.   (command "text" pt1 "30" "0" Sname)
    
12.   (command "text" pt2 "30" "0" Dname)
    
13.   (princ)
    
14. )[/FONT]

[FONT=courier new]<br /> (defun c:x1 ()<br />   (setq        pt1 (getpoint "\n选择第一个角点: ")<br />         Pt2 (getcorner pt1 "\n选择对角点: ")<br />   )<br />   (command "rectang" pt1 pt2)<br />   (setq        Sname (USTR 7 "请输入索第一行文字" Sname NIL)<br />         Dname (USTR 7 "请输入大样号" Dname NIL)<br />   )<br />   (command "text" pt1 "30" "0" Sname)<br />   (command "text" pt2 "30" "0" Dname)<br />   (princ)<br /> )[/FONT]