运行出错了，怎么修改，

邹锋

1. (defun c:a4 (/ v1 v2 v3 ljmch cl shl bl)
   
2.   (setq v1 (getvar "osmode"))
   
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "blipmode" 0)
   
8.   (setq ljmch (getstring "\n输入零件名称:"))
   
9.   (setq cl (getstring "\n输入零件材料:"))
   
10.   (setq shl (getint "\n输入零件数量:"))
    
11.   (setq shl (itoa shl))
    
12.   (setq bl (getstring "\n输入绘图比例:"))
    
13.   (command "style" "hz" "gbcbig" "" "" "" "" "" "")
    
14.   (command "layer" "m" "xixian" "c" "l" "" "")
    
15.   (command "limits" "0,0" "210,297")
    
16.   (command "zoom" "a")
    
17.   (command "line" "0,0" "210,0" "210,297" "0,297" "c")
    
18.   (command "layer" "m" "cuxian" "c" "7" "" "lw" 0.6 "" "")
    
19.   (command "line" "25,5" "205,5" "205,292" "25,292" "c")
    
20.   (command "line" "85,5" "85,27" "205,27" "")
    
21.   (command "line" "85,13" "205,13" "")
    
22.   (command "line" "100,13" "100,27" "")
    
23.   (command "line" "120,13" "120,27" "")
    
24.   (command "line" "132,5" "132,27" "")
    
25.   (command "line" "162,5" "162,13" "")
    
26.   (command "line" "180,5" "180,27" "")
    
27.   (command "layer" "m" "xixian" "")
    
28.   (command "line" "85,20" "132,20" "")
    
29.   (command "layer" "m" "wenzi" "c" "5" "" "")
    
30.   (command "text" "m" (list 108.5 9) 5 0 "******有限公司")
    
31.   (command "text" "m" (list 147 9) 5 0 (strcat "材料" cl))
    
32.   (command "text" "m" (list 171 9) 5 0 (strcat "数量" shl))
    
33.   (command "text" "m" (list 147 9) 5 0 (strcat "材料" cl))
    
34.   (command "text" "m" (list 92.5 23.5) 5 0 "制图")
    
35.   (command "text" "m" (list 92.5 16.5) 5 0 "校核")
    
36.   (command "text" "m" (list 156 20) 10 0 ljmch)
    
37.   (setvar "osmode")
    
38.   (setvar "cmdecho" v2)
    
39.   (setvar "blipmode" v3)
    
40.   (princ)
    
41.   )
    
42. 
    
43. 
    

(defun c:a4 (/ v1 v2 v3 ljmch cl shl bl)<br />   (setq v1 (getvar "osmode"))<br />   (setq v2 (getvar "cmdecho"))<br />   (setq v3 (getvar "blipmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setq ljmch (getstring "\n输入零件名称:"))<br />   (setq cl (getstring "\n输入零件材料:"))<br />   (setq shl (getint "\n输入零件数量:"))<br />   (setq shl (itoa shl))<br />   (setq bl (getstring "\n输入绘图比例:"))<br />   (command "style" "hz" "gbcbig" "" "" "" "" "" "")<br />   (command "layer" "m" "xixian" "c" "l" "" "")<br />   (command "limits" "0,0" "210,297")<br />   (command "zoom" "a")<br />   (command "line" "0,0" "210,0" "210,297" "0,297" "c")<br />   (command "layer" "m" "cuxian" "c" "7" "" "lw" 0.6 "" "")<br />   (command "line" "25,5" "205,5" "205,292" "25,292" "c")<br />   (command "line" "85,5" "85,27" "205,27" "")<br />   (command "line" "85,13" "205,13" "")<br />   (command "line" "100,13" "100,27" "")<br />   (command "line" "120,13" "120,27" "")<br />   (command "line" "132,5" "132,27" "")<br />   (command "line" "162,5" "162,13" "")<br />   (command "line" "180,5" "180,27" "")<br />   (command "layer" "m" "xixian" "")<br />   (command "line" "85,20" "132,20" "")<br />   (command "layer" "m" "wenzi" "c" "5" "" "")<br />   (command "text" "m" (list 108.5 9) 5 0 "******有限公司")<br />   (command "text" "m" (list 147 9) 5 0 (strcat "材料" cl))<br />   (command "text" "m" (list 171 9) 5 0 (strcat "数量" shl))<br />   (command "text" "m" (list 147 9) 5 0 (strcat "材料" cl))<br />   (command "text" "m" (list 92.5 23.5) 5 0 "制图")<br />   (command "text" "m" (list 92.5 16.5) 5 0 "校核")<br />   (command "text" "m" (list 156 20) 10 0 ljmch)<br />   (setvar "osmode")<br />   (setvar "cmdecho" v2)<br />   (setvar "blipmode" v3)<br />   (princ)<br />   )<br /> <br /> <br />

哪出错了？

ljpnb

(command "layer" "m" "xixian" "c" 1 "" "")和(setvar "osmode" v1)