[求助]：LISP程序，是循环错了还是变量问题

mogm127

(defun c:bili ()
   (setvar "cmdecho" 0)
   (setq re 1)
   (while (= re 1)
    (princ "\n本程序用于钻孔分层<For 2004>")
    (SETQ jq (GETreal "\n请输入钻孔分层深度:"))
    (setq jq2 (GETdist"\n请输入钻孔最后一层深度:"))
    (if (= jq2 nil)(print"未输入最大孔深"))
    (if (/= jq nil)
    (progn


    (if (<= jq2 43);小于等43米比例尺为1：200
    (progn
    　(command "text" "37.667,242.086,0" "2.5" "0d" "1:200" "" )
    　(setq ks1 (* jq 5))
     )
    )
         (if (> jq2 43);大于43米比例尺为1：500
        (progn
          (command "text" "37.667,242.086,0" "2.5" "0d" "1:500" "")   
          (setq ks1 (* jq 2))
         )
        )
      
    (setq pa1 (polar '(0 238) 4.712389 ks1))
    (setq pa2 (polar '(36 238) (* pi 1.5) ks1))
    (setq pa3 (polar '(46 238) (* pi 1.5) ks1))
    (command "pline" pa1 pa2 "")
    (command "pline" pa2 pa3 "")   
    )
  
  (princ "\n没有输入分层深度！")
  )
  (setq Re (getvar "useri1"))
  )
  (prompt "*************** << C:bili >> *****************")
  (prin1)
)
改了一下程序，现在可以用了，只是出现提示，说命令未定义。可有高人帮指出问题？

rpgkkk2003

看不懂，高人啊

edusa

我需要这个，谢谢

Underway

(command "text" "37.667,242.086,0" "2.5" "0d" "1:500" "")
===>
(command "text" "37.667,242.086,0" "2.5" "0d" "1:500")

gysjy

将(command "text" "37.667,242.086,0" "2.5" "0d" "1:200" "" )和(command "text" "37.667,242.086,0" "2.5" "0d" "1:500" "") 最后的 "" 去掉。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:bili ()
   
5.   (setvar "cmdecho" 0)
   
6.   (princ "\n本程序用于钻孔分层")
   
7.   (while (SETQ jq (GETreal "\n请输入钻孔分层深度:"))
   
8.     (setq jq2 (GETdist"\n请输入钻孔最后一层深度:"))
   
9.     (if jq2
   
10.       (progn
    
11.         (if (<= jq2 43);小于等43米比例尺为1：200
    
12.           (progn
    
13. 　          (command "text" "37.667,242.086,0" "2.5" "0d" "1:200")
    
14. 　          (setq ks1 (* jq 5))
    
15.           )
    
16.         )
    
17.         (if (> jq2 43);大于43米比例尺为1：500
    
18.           (progn
    
19.             (command "text" "37.667,242.086,0" "2.5" "0d" "1:500")
    
20.             (setq ks1 (* jq 2))
    
21.           )
    
22.         )
    
23.         (setq pa1 (polar '(0 238) 4.712389 ks1))
    
24.         (setq pa2 (polar '(36 238) (* pi 1.5) ks1))
    
25.         (setq pa3 (polar '(46 238) (* pi 1.5) ks1))
    
26.         (command "pline" pa1 pa2 "")
    
27.         (command "pline" pa2 pa3 "")   
    
28.       )
    
29.     )  
    
30.     (setq Re (getvar "userr1"))
    
31.   )
    
32.   (prompt "*************** << C:bili >> *****************")
    
33.   (prin1)
    
34. )
    
35.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:bili ()<br />   (setvar "cmdecho" 0)<br />   (princ "\n本程序用于钻孔分层") <br />   (while (SETQ jq (GETreal "\n请输入钻孔分层深度:"))<br />     (setq jq2 (GETdist"\n请输入钻孔最后一层深度:"))<br />     (if jq2 <br />       (progn<br />         (if (<= jq2 43);小于等43米比例尺为1：200<br />           (progn<br /> 　          (command "text" "37.667,242.086,0" "2.5" "0d" "1:200")<br /> 　          (setq ks1 (* jq 5))<br />           )<br />         )<br />         (if (> jq2 43);大于43米比例尺为1：500<br />           (progn<br />             (command "text" "37.667,242.086,0" "2.5" "0d" "1:500") <br />             (setq ks1 (* jq 2))<br />           )<br />         )<br />         (setq pa1 (polar '(0 238) 4.712389 ks1))<br />         (setq pa2 (polar '(36 238) (* pi 1.5) ks1))<br />         (setq pa3 (polar '(46 238) (* pi 1.5) ks1))<br />         (command "pline" pa1 pa2 "")<br />         (command "pline" pa2 pa3 "")   <br />       )<br />     )  <br />     (setq Re (getvar "userr1"))<br />   )<br />   (prompt "*************** << C:bili >> *****************")<br />   (prin1)<br /> )<br />   [/FONT]<br />

mogm127

谢谢，果然如楼上所说，去掉""就可以了。