[求助]：怎么总是报告变量个数错误

xzg_hello

2. 
   
3. (defun c:bzh(\ id p1 p2 x1 y1 x2 y2 dt_x dt_y
   
4.         code1 code2 code3 code4 code h_real)
   
5. ;配合cx.shx标注室外和室内标高、坐标、坡度
   
6. ;以后将id设置为公共变量，加入当前字体识别程序
   
7. (princ "本程序主要配合cx.shx开发，如果使用其他字体，请修改相应字符代码")
   
8. (setq id (getint "\n室内标高1/室外标高2/坐标3/坡度4 <1>"))
   
9. ;加入循环
   
10. (cond
    
11.         ((= id 1);室内标高
    
12.                 (setq code1 "%%156" code2 "%%158" code3 "%%159" code4 "%%157")
    
13.                 (setq p1 (getpoint "\n请输入标高标注位置:"))
    
14.                 (setq p2 (getdist p1 "\n        请示意数值位置:"))
    
15.                 (setq x1 (car p1) y1 (cadr p1)
    
16.                           x2 (car p2) y2 (cadr p2))
    
17.                 (princ (strcat "\n请输入标高数值<" (rtos y1 2 3) ">"))
    
18.                 (setq h_real (getreal))
    
19.                 (if (= h_real nil)
    
20.                         (setq h_real y1)
    
21.                         )
    
22.                 (setq dt_x (- x2 x1) dt_y (- y2 y1))
    
23.                 (if (and (> dt_x 0) (> dt_y 0));第一像限
    
24.                         (setq code code1)
    
25.                         )
    
26.                 (if (and (> dt_x 0) (< dt_y 0));第二像限
    
27.                         (setq code code2)
    
28.                         )
    
29.                 (if (and (< dt_x 0) (< dt_y 0));第三像限
    
30.                         (setq code code3)
    
31.                         )
    
32.                 (if (and (< dt_x 0) (> dt_y 0));第四像限
    
33.                         (setq  code code4)
    
34.                         )
    
35.                 (command "text" p1 "" "" (strcat code (rtos h_real 2 3)))
    
36.                 )
    
37.         ((= id 2);室外标高
    
38.                 )
    
39.         ((= id 3);坐标
    
40.                 )
    
41.         ((= id 3);坡度
    
42.                 )
    
43.         (t nil);其余
    
44.         )
    
45. (princ "/n感谢使用!")
    
46. )
    

<br /> (defun c:bzh(\ id p1 p2 x1 y1 x2 y2 dt_x dt_y<br />         code1 code2 code3 code4 code h_real)<br /> ;配合cx.shx标注室外和室内标高、坐标、坡度<br /> ;以后将id设置为公共变量，加入当前字体识别程序<br /> (princ "本程序主要配合cx.shx开发，如果使用其他字体，请修改相应字符代码")<br /> (setq id (getint "\n室内标高1/室外标高2/坐标3/坡度4 <1>"))<br /> ;加入循环<br /> (cond<br />         ((= id 1);室内标高<br />                 (setq code1 "%%156" code2 "%%158" code3 "%%159" code4 "%%157")<br />                 (setq p1 (getpoint "\n请输入标高标注位置:"))<br />                 (setq p2 (getdist p1 "\n        请示意数值位置:"))<br />                 (setq x1 (car p1) y1 (cadr p1)<br />                           x2 (car p2) y2 (cadr p2))<br />                 (princ (strcat "\n请输入标高数值<" (rtos y1 2 3) ">"))<br />                 (setq h_real (getreal))<br />                 (if (= h_real nil)<br />                         (setq h_real y1)<br />                         )<br />                 (setq dt_x (- x2 x1) dt_y (- y2 y1))<br />                 (if (and (> dt_x 0) (> dt_y 0));第一像限<br />                         (setq code code1)<br />                         )<br />                 (if (and (> dt_x 0) (< dt_y 0));第二像限<br />                         (setq code code2)<br />                         )<br />                 (if (and (< dt_x 0) (< dt_y 0));第三像限<br />                         (setq code code3)<br />                         )<br />                 (if (and (< dt_x 0) (> dt_y 0));第四像限<br />                         (setq  code code4)<br />                         )<br />                 (command "text" p1 "" "" (strcat code (rtos h_real 2 3)))<br />                 )<br />         ((= id 2);室外标高<br />                 )<br />         ((= id 3);坐标<br />                 )<br />         ((= id 3);坡度<br />                 )<br />         (t nil);其余<br />         )<br /> (princ "/n感谢使用!")<br /> )<br />

ll_j

最初由 xzg_hello 发布
[code]
(defun c:bzh(\ id p1 p2 x1 y1 x2 y2 dt_x dt_y
        code1 code2 code3 code4 code h_real)
;配合cx.shx标注室外和室内标高、坐标、坡度
;以后将id设置为公共变量，加入当前字体识别程序
(princ "本程序?..

(defun c:bzh(\ id p1 ....
应为：
(defun c:bzh(/[/COLOR]  id p1 ...

xzg_hello

呵呵，原来是这啊～～～～～～～～谢谢！！！