[LISP]请问各位大侠我的程序有问题 不知道什么改正？

呆呆

请问飞哥 我的程序怎么样才能默认上次的输入 假如我上次输入的fuhao 是 “w "
一直标到”w20" 但是中途我因为某种原因而使程序中断 现在我继续标注，而且不输入FUHAO 和 I 值  让程序自己回到上次结束时的状态 请问飞哥我该怎么改

(defun wlayer(llay)
    (if (/= (tblobjname "layer" llay) nil)
      (setvar "clayer" llay)
     )
)
(defun c:ty (/ oce ofe fh p0 m nn i  fuhao)
    (setq oce (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (setq ofe (getvar "clayer" ))
    (command ".undo" "be")
    (setq fuhao (getstring "\nplease input fuhao:"))
    (setq i(getint "\nplease input number:"))
    (cond
      ((= fuhao "w") (wlayer "0-w"))
      ((= fuhao "y") (wlayer "0-y"))
      ((= fuhao "j") (wlayer "0-j"))
      ((= fuhao "dl") (wlayer "2-电力"))
      ((= fuhao "ld") (wlayer "2-路灯"))
      ((= fuhao "dx") (wlayer "2-电信"))
    )
    (while  (/= p0 "")
       (setq p0 (getpoint "  pickpoint:"))
         (if (= p0 nil)
             (progn
                 (setvar "cmdecho" oce)
                 (command ".undo" "e")
                 (setvar "clayer" ofe)
                      (exit)
             )
          )
          (setq fh (strcase fuhao))
          (setq m (itoa i))
          (setq nn(strcat fh m))
          (command ".text" "j" "m" p0 (getvar "textsize") "0" nn)
          (setq i (+ 1 i))
       )
   
   (prin1)   
)

lockmyeye

把变量定义为全局变量(其实你只要不把它定义为局部变量就可以了)，一个好的习惯在变量名前后加*，如*FUHAO*，易于识别。

在进行程序时先进行变量检查，检查时先判断符号类型。
具体如下：
(if (= 'STR (type *FUHAO*))
  (if (/= "" (setq TMP (getstring "\nplease input fuhao:")))
    (setq *FUHAO* TMP)
  )
  (while (/= "" (setq *FUHAO* (getstring "\nplease input fuhao:"))))
)

呆呆

首先谢谢lockmyeye 版主的解答 不过你的也好象不行呀  试不试我改的不对 请教你改的步骤

呆呆

请问具体需要怎么改？

meflying

应该学会自己多试试。。。

注：全局变量就是将变量从(defun xxx( / ...))的...的地方去掉

呆呆

请问我将程序做了以下调整为什么还是不行？ i回到次结束的状态 但是*fuhao*去怎么也传递不过去 这是为什么呢？

(defun wlayer(llay)
    (if (/= (tblobjname "layer" llay) nil)
      (setvar "clayer" llay)
     )
)
(defun c:ty (/ oce ofe fh p0 m nn i)
    (setq oce (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (setq ofe (getvar "clayer" ))
    (command ".undo" "be")
    (setq fh (strcase (getstring "\nplease input fuhao:")))
    (if (/= fh nil)
        (setq *fuhao* fh)
        (setq fh *fuhao*)
    )
   
    (setq i (getint "\nplease input number:"))
    (if (= i nil)
        (setq i *i*)
    )
    (cond
      ((= fh "w") (wlayer "0-w"))
      ((= fh "y") (wlayer "0-y"))
      ((= fh "j") (wlayer "0-j"))
      ((= fh "dl") (wlayer "2-电力"))
      ((= fh "ld") (wlayer "2-路灯"))
      ((= fh "dx") (wlayer "2-电信"))
    )
    (while  (/= p0 "")
       (setq p0 (getpoint "  pickpoint:"))
         (if (= p0 nil)
             (progn
                 (setq *i* i)
                 (setvar "cmdecho" oce)
                 (command ".undo" "e")
                 (setvar "clayer" ofe)
                      (exit)
             )
          )
          (setq m (rtos i))
          (setq nn(strcat fh m))
          (command ".text" "m" p0 (getvar "textsize") "0" nn)
          (setq i (+ 1 i))
       )
   
   (prin1)   
)

meflying

自己仔细理一遍程序的运行过程，再看看眼哥的提示，问题并不难。

应该学会自己找问题了，如果这个问题（仅只这个程序中你所提的功能）你还找不出来，就不应该了。。。

呆呆

飞哥我是第一次接触到类似的问题 问题的关键就是在FH传给*FUHAO* 的时候 它的TYPE B变了吗 我？？

meflying

(TYPE。。。)只是想证明这个东西有值，你可以直接用(if *fuhao*...),用type仅仅是为了更加准确判断这个变量是否被其它程序修改过。。。
这个问题根本不是问题，没有任何特殊性，除非你还不懂什么是全局变量，什么是局部变量。。。

meflying

我给你改好了，包括一些小问题，还是希望你自己明白后在看看我的程序

2. 
   
3. (defun wlayer (llay)
   
4.   (if (/= (tblobjname "layer" llay) nil)
   
5.     (setvar "clayer" llay)
   
6.   )
   
7. )
   
8. (defun c:ty (/ oce ofe fh p0 m nn i)
   
9.   (setq oce (getvar "cmdecho"))
   
10.   (setvar "cmdecho" 0)
    
11.   (setq ofe (getvar "clayer"))
    
12.   (command ".undo" "be")
    
13.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
14.   (if (not *fuhao*)
    
15.     (progn
    
16.       (initget 0)
    
17.       (setq *fuhao* (getstring "\nplease input fuhao:"))
    
18.     )
    
19.     (progn
    
20.       (setq fh (getstring (strcat "\nplease input fuhao<" *fuhao* ">:")))
    
21.       (if (/= fh "")
    
22.         (setq *fuhao* fh)
    
23.       )
    
24.     )
    
25.   )
    
26.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;注意此范围内的内容;;;;;;;;;;;;;;;;;;
    
27.   (if (not *i*)
    
28.     (progn
    
29.       (initget 3)
    
30.       (setq *i* (getint "\nplease input number:"))
    
31.     )
    
32.     (progn
    
33.       (setq i (getint (strcat "\nplease input number<" (itoa *i*) ">:")))
    
34.       (if i
    
35.         (setq *i* fh)
    
36.       )
    
37.     )
    
38.   )
    
39.   
    
40.   (setq i *i*)
    
41. 
    
42.   (setq *fuhao* (strcase *fuhao* 0))
    
43. 
    
44.   (cond
    
45.     ((= *fuhao* "w") (wlayer "0-w"))
    
46.     ((= *fuhao* "y") (wlayer "0-y"))
    
47.     ((= *fuhao* "j") (wlayer "0-j"))
    
48.     ((= *fuhao* "dl") (wlayer "2-电力"))
    
49.     ((= *fuhao* "ld") (wlayer "2-路灯"))
    
50.     ((= *fuhao* "dx") (wlayer "2-电信"))
    
51.   )
    
52.   
    
53.   (while (setq p0 (getpoint "\npick point:"))
    
54.     (setq m (rtos i))
    
55.     (setq nn (strcat *fuhao* m))
    
56.     (command ".text" "m" p0 (getvar "textsize") "0" nn)
    
57.     (setq i (+ 1 i))
    
58. 
    
59.   )
    
60.   (setvar "cmdecho" oce)
    
61.   (command ".undo" "e")
    
62.   (setvar "clayer" ofe)   
    
63.   (prin1)
    
64. )
    

<br /> (defun wlayer (llay)<br />   (if (/= (tblobjname "layer" llay) nil)<br />     (setvar "clayer" llay)<br />   )<br /> )<br /> (defun c:ty (/ oce ofe fh p0 m nn i)<br />   (setq oce (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq ofe (getvar "clayer"))<br />   (command ".undo" "be")<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (if (not *fuhao*)<br />     (progn<br />       (initget 0)<br />       (setq *fuhao* (getstring "\nplease input fuhao:"))<br />     )<br />     (progn<br />       (setq fh (getstring (strcat "\nplease input fuhao<" *fuhao* ">:")))<br />       (if (/= fh "")<br />         (setq *fuhao* fh)<br />       )<br />     )<br />   )<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;注意此范围内的内容;;;;;;;;;;;;;;;;;;<br />   (if (not *i*)<br />     (progn<br />       (initget 3)<br />       (setq *i* (getint "\nplease input number:"))<br />     )<br />     (progn<br />       (setq i (getint (strcat "\nplease input number<" (itoa *i*) ">:")))<br />       (if i<br />         (setq *i* fh)<br />       )<br />     )<br />   )<br />   <br />   (setq i *i*)<br /> <br />   (setq *fuhao* (strcase *fuhao* 0))<br /> <br />   (cond<br />     ((= *fuhao* "w") (wlayer "0-w"))<br />     ((= *fuhao* "y") (wlayer "0-y"))<br />     ((= *fuhao* "j") (wlayer "0-j"))<br />     ((= *fuhao* "dl") (wlayer "2-电力"))<br />     ((= *fuhao* "ld") (wlayer "2-路灯"))<br />     ((= *fuhao* "dx") (wlayer "2-电信"))<br />   )<br />   <br />   (while (setq p0 (getpoint "\npick point:"))<br />     (setq m (rtos i))<br />     (setq nn (strcat *fuhao* m))<br />     (command ".text" "m" p0 (getvar "textsize") "0" nn)<br />     (setq i (+ 1 i))<br /> <br />   )<br />   (setvar "cmdecho" oce)<br />   (command ".undo" "e")<br />   (setvar "clayer" ofe)    <br />   (prin1)<br /> )<br />