小白提问：这个lisp为什么每次只能执行1次，再执行就提示函数错误？

wlq2004

请问我这个lisp为什么每次只能执行1次，再执行就提示函数错误？

1. ;;调入"建筑专业平面底图"
   
2. (defun C:JIANZHU ( )
   
3.   (setvar "cmdecho" 0)
   
4.   (setvar "filedia" 0)
   
5.     (if (= nil (tblsearch "layer" "JZDT_建筑底图")) (command "layer" "m" "JZDT_建筑底图" ""))
   
6.     (setvar "clayer" "JZDT_建筑底图")
   
7.     (setq cenghao (MYCENGHAO ""))
   
8.     (setq zuhe1 (strcat "..\\..\\建筑专业\\DWG图纸\\建筑" cenghao "层平面图.DWG"));;组合1
   
9.     (setq zuhe2 (strcat "建筑" cenghao "层平面图|*"));;组合2
   
10.     (setq zuhe3 (strcat "建筑" cenghao "层平面图|*_建筑底图"));;组合3
    
11.     (command "-xref" "O" zuhe1 "0,0,0" "1" "1" "0")
    
12.     (while (/= 0 (getvar "cmdactive"))(command pause))
    
13.     (setvar "clayer" "0")
    
14.     (setvar "filedia" 1)
    
15.        (command
    
16.           "-layer"
    
17.           "f"
    
18.           zuhe2
    
19.           ""
    
20.        )
    
21.        (command
    
22.           "-layer"
    
23.           "T"
    
24.           zuhe3
    
25.           ""
    
26.        )
    
27.      )
    
28. 
    
29. (defun MYCENGHAO (str)
    
30. (setq lal (getstring "请输入层号"))
    
31. (if (= lal "bzc")
    
32. (setq MYCENGHAO "标准")
    
33. (setq MYCENGHAO lal)
    
34. )
    
35. )

;;调入"建筑专业平面底图"<br /> (defun C:JIANZHU ( )<br />   (setvar "cmdecho" 0)<br />   (setvar "filedia" 0)<br />     (if (= nil (tblsearch "layer" "JZDT_建筑底图")) (command "layer" "m" "JZDT_建筑底图" ""))<br />     (setvar "clayer" "JZDT_建筑底图")<br />     (setq cenghao (MYCENGHAO ""))<br />     (setq zuhe1 (strcat "..\\..\\建筑专业\\DWG图纸\\建筑" cenghao "层平面图.DWG"));;组合1<br />     (setq zuhe2 (strcat "建筑" cenghao "层平面图|*"));;组合2<br />     (setq zuhe3 (strcat "建筑" cenghao "层平面图|*_建筑底图"));;组合3<br />     (command "-xref" "O" zuhe1 "0,0,0" "1" "1" "0")<br />     (while (/= 0 (getvar "cmdactive"))(command pause))<br />     (setvar "clayer" "0")<br />     (setvar "filedia" 1)<br />        (command<br />           "-layer"<br />           "f"<br />           zuhe2<br />           ""<br />        )<br />        (command<br />           "-layer"<br />           "T"<br />           zuhe3<br />           ""<br />        )<br />      )<br /> <br /> (defun MYCENGHAO (str)<br /> (setq lal (getstring "请输入层号"))<br /> (if (= lal "bzc")<br /> (setq MYCENGHAO "标准")<br /> (setq MYCENGHAO lal)<br /> )<br /> )

wlq2004

再次执行时，出错的行数是第7行“(setq cenghao (MYCENGHAO ""))”这句。
出错的原因是 子函数 MYCENGHAO 闹的。
可为什么第一次可以顺利执行，再执行就错误了呢？
出错提示：函数出错”-1“
-1是第一次顺利执行MYCENGHAO的返回值。

ZZXXQQ

你在子函数中已经将函数名重定义了。
(defun MYCENGHAO (str)
(setq lal (getstring "请输入层号"))
(if (= lal "bzc")
(setq MYCENGHAO "标准"))；这里重定义了
(setq MYCENGHAO lal)；这里重定义了
)
)
应改成
(defun MYCENGHAO (str)
(setq lal (getstring "请输入层号"))
(if (= lal "bzc")
"标准"
lal
)
)

wlq2004

ZZXXQQ 发表于 2013-9-19 08:40
你在子函数中已经将函数名重定义了。
(defun MYCENGHAO (str)
(setq lal (getstring "请输入层号"))

谢谢！！！问题解决了~~