各位大哥帮我看看我这段程序错误在那里？谢谢

sbdnnl

各位大哥帮我看看我这段程序错误在那里？

程序如下：

    (setq N1 (getint "\n 输入角钢编号:"))
    (setq N2 345)
    (setq N3 (getint "\n 角钢肢宽:"))
    (setq N4 (getint "\n 角钢肢厚:"))
    (setq N5 (getint "\n 角钢长度:"))
    (setq N6 (getint "\n 角钢数量:")) 
    (setq N7 (getint "\n 备注(<1>切角<2>制弯<3>带脚钉<4>铲背<5>刨根<6>垫板<7>焊接<8>切背<9>火曲后焊接):"))       
       (if(= N7 "1")(setq A7 (strcat 切角)))
       (if (= N7 "2")(setq A7 (制弯)))
       (if (= N7 "3")(setq A7 (带脚钉)))
       (if (= N7 "4")(setq A7 (铲背)))
       (if (= N7 "5")(setq A7 (刨根)))
       (if (= N7 "6")(setq A7 (垫板)))
       (if (= N7 "7")(setq A7 (焊接)))
       (if (= N7 "8")(setq A7 (切背)))
       (if (= N7 "9")(setq A7 (火曲后焊接)))
    (setq A1 (itoa N1))
    (setq A2 (itoa N2))
    (setq A3 (itoa N3))
    (setq A4 (itoa N4))
    (setq A5 (itoa N5))
    (setq A6 (itoa N6))
 (setq pt (getpoint "\n选取文字插入点: "))
(COMMAND "TEXT" "m" pt 3 0 (strcat "\"" A1 "\",\"Q" A2 "L" A3 "X" A4 "\"," A5 "," A6 ",\""A7"\""))

xbkxbk

(setq A7 "  ")  ==&gt; 要用"",不能用()

ZZXXQQ

A7的内容应该是字串不是表。STRCAT 后的内容也要求是字串。
下面是改写的程序。

3.   (setq N1 (getint "\n 输入角钢编号:"))
4.   (setq N2 345)
5.   (setq N3 (getint "\n 角钢肢宽:"))
6.   (setq N4 (getint "\n 角钢肢厚:"))
7.   (setq N5 (getint "\n 角钢长度:"))
8.   (setq N6 (getint "\n 角钢数量:"))  
9.   (setq N7 (getint "\n 备注(1=切角2=制弯3=带脚钉4=铲背5=刨根6=垫板7=焊接8=切背9=火曲后焊接):"))        
10. ;       (if(= N7 "1")(setq A7 (strcat 切角)))
11. ;       (if (= N7 "2")(setq A7 (制弯)))
12. ;       (if (= N7 "3")(setq A7 (带脚钉)))
13. ;       (if (= N7 "4")(setq A7 (铲背)))
14. ;       (if (= N7 "5")(setq A7 (刨根)))
15. ;       (if (= N7 "6")(setq A7 (垫板)))
16. ;       (if (= N7 "7")(setq A7 (焊接)))
17. ;       (if (= N7 "8")(setq A7 (切背)))
18. ;       (if (= N7 "9")(setq A7 (火曲后焊接)))
19.   (setq A7 (nth (1- N7)
20.     (list "切角" "制弯" "带脚钉" "铲背" "刨根" "垫板" "焊接" "切背" "火曲后焊接")
21.    )
22.   )
23.     (setq A1 (itoa N1))
24.     (setq A2 (itoa N2))
25.     (setq A3 (itoa N3))
26.     (setq A4 (itoa N4))
27.     (setq A5 (itoa N5))
28.     (setq A6 (itoa N6))
29. (setq pt (getpoint "\n选取文字插入点: "))
30. (COMMAND "TEXT" "m" pt 3 0
31. (strcat """ A1 "","Q" A2 "L" A3 "X" A4 ""," A5 "," A6 ","" A7 """))

  (setq N1 (getint "\n 输入角钢编号:"))   (setq N2 345)   (setq N3 (getint "\n 角钢肢宽:"))   (setq N4 (getint "\n 角钢肢厚:"))   (setq N5 (getint "\n 角钢长度:"))   (setq N6 (getint "\n 角钢数量:"))     (setq N7 (getint "\n 备注(1=切角2=制弯3=带脚钉4=铲背5=刨根6=垫板7=焊接8=切背9=火曲后焊接):"))         ;       (if(= N7 "1")(setq A7 (strcat 切角))) ;       (if (= N7 "2")(setq A7 (制弯))) ;       (if (= N7 "3")(setq A7 (带脚钉))) ;       (if (= N7 "4")(setq A7 (铲背))) ;       (if (= N7 "5")(setq A7 (刨根))) ;       (if (= N7 "6")(setq A7 (垫板))) ;       (if (= N7 "7")(setq A7 (焊接))) ;       (if (= N7 "8")(setq A7 (切背))) ;       (if (= N7 "9")(setq A7 (火曲后焊接)))   (setq A7 (nth (1- N7)     (list "切角" "制弯" "带脚钉" "铲背" "刨根" "垫板" "焊接" "切背" "火曲后焊接")    )   )     (setq A1 (itoa N1))     (setq A2 (itoa N2))     (setq A3 (itoa N3))     (setq A4 (itoa N4))     (setq A5 (itoa N5))     (setq A6 (itoa N6)) (setq pt (getpoint "\n选取文字插入点: ")) (COMMAND "TEXT" "m" pt 3 0 (strcat """ A1 "","Q" A2 "L" A3 "X" A4 ""," A5 "," A6 ","" A7 """))

phoenixdjq

这样的程序

用cond也许能更好些吧

sbdnnl

谢谢各位，对我的帮助很大！