出错循环

Comming

这个出错了两次就要重新执行命令,怎么设置成无限出错循环?

2. (defun c:tt()
   
3. (setvar "cmdecho"0)
   
4.   (defun *error*(msg)
   
5.       (setq txt(getint "\n加工数量<1>:"))
   
6.   (if(= txt nil)
   
7.     (setq txt 1))
   
8.     (xh))
   
9. 
   
10.   (setq txt(getint "\n加工数量<1>:"))
    
11.   (if(= txt nil)
    
12.     (setq txt 1))
    
13.   (setq s(getreal "\n文字高度:"))
    
14.   (if (= s nil)
    
15.     (setq s 3.5)
    
16.     )
    
17.   (xh)
    
18.   )
    
19. 
    
20.   (defun xh()
    
21.   (while txt
    
22.     (setq pt(getpoint "\n文字位置:"))
    
23.   (command "text" "j" "mc" pt s 0 (strcat "数量:" (itoa txt) "Pcs"))
    
24.     )
    
25.   )
    
26.   

(defun c:tt()<br /> (setvar "cmdecho"0)<br />   (defun *error*(msg)<br />       (setq txt(getint "\n加工数量<1>:"))<br />   (if(= txt nil)<br />     (setq txt 1))<br />     (xh))<br /> <br />   (setq txt(getint "\n加工数量<1>:"))<br />   (if(= txt nil)<br />     (setq txt 1))<br />   (setq s(getreal "\n文字高度:"))<br />   (if (= s nil)<br />     (setq s 3.5)<br />     )<br />   (xh)<br />   )<br /> <br />   (defun xh()<br />   (while txt<br />     (setq pt(getpoint "\n文字位置:"))<br />   (command "text" "j" "mc" pt s 0 (strcat "数量:" (itoa txt) "Pcs"))<br />     )<br />   )<br />   

英雄无敌

你用捕获函数试试
Passes a list of arguments to a specified function and traps any exceptions

(vl-catch-all-apply 'function list)

Arguments

'function

A function. The function argument can be either a symbol identifying a defun, or a lambda expression.

list

A list containing arguments to be passed to the function.

仲文玉

不知道你要什么效果，猜摸着改下，也不知道是不是这个意思？自己加下出错处理

2. (defun c:ttt ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq txt (getint "\n加工数量<1>:"))
   
5.   (if (= txt nil)(setq txt 1))
   
6.   (setq s (getreal "\n文字高度:"))
   
7.   (if (= s nil)(setq s 3.5))
   
8.   (while (setq pt(getpoint "\n文字位置:"))
   
9.     (command "text" "j" "mc" pt s 0 (strcat "数量:" (itoa txt) "Pcs"))
   
10.     (setq  txt (1+ txt))
    
11.   )
    
12. )

(defun c:ttt ()<br />   (setvar "cmdecho" 0)<br />   (setq txt (getint "\n加工数量<1>:"))<br />   (if (= txt nil)(setq txt 1))<br />   (setq s (getreal "\n文字高度:"))<br />   (if (= s nil)(setq s 3.5))<br />   (while (setq pt(getpoint "\n文字位置:"))<br />     (command "text" "j" "mc" pt s 0 (strcat "数量:" (itoa txt) "Pcs"))<br />     (setq  txt (1+ txt))<br />   )<br /> )

Comming

英雄无敌 发表于 2013-5-8 16:52
你用捕获函数试试
Passes a list of arguments to a specified function and traps any exceptions

怎么捕获?我想在插入文字那里右键可以重新输入加工数量.

Comming

仲文玉 发表于 2013-5-8 18:09
不知道你要什么效果，猜摸着改下，也不知道是不是这个意思？自己加下出错处理

我想将这个程式改为循环插入加工件数,而且中途可以改加工数量,我加了出错处理目的是按了ESC键后程式跳到出错处理那里重新输入加工数量的,但是只可以运行两次之后就要重新执行命令了

英雄无敌

如果无限出错循环，那你还怎么退出啊？
lsp不是别的高级语言，可以有GOTO语句，如果你要点右键再回到输入数量，可以加一个while循环
（while （= 写好文字 nil）
（输入数量）
...
...
(if 写文字
（setq 写好文字 t）
（setq 写好文字 nil）
）
）
具体自己慢慢去体会，只是一个思路