[求助]判断句的问题....

a170285

这是书上给的练习题..
我按照要求写出来了...但是为什么不管如入L还是R..都会跳过呢?
难道COND这个函数我用错了..还是怎么样呢?

(defun c:8()
   (setq pa (getpoint "\n请点取左下角的点"))
   (setq ww (getdist "\n输入楼梯宽"))
   (setq hh (getdist "\n输入楼梯高"))
   (setq n (getint "\n输入台阶数"))
   (initget 1 "Left Right")
   (setq zy (getkword "\n楼梯方向:[左(L)/右(R)]"))
   (setq hy (strcase zy));大写
   (cond ((= hy "L")
         (setq pb1 (polar pa 0 ww))
         (setq pc1 (polar pb1 (/ pi 2) hh))
         (command "_.line" pa pb1 pc1 "")
         (setq pw1 (/ ww n))
         (setq ph1 (/ hh n))
         (setq pp1 pa)
         (repeat n
             (setq pt11 (polar pp1 (/ pi 2) ph1))
             (setq pt21 (polar pt11 0 pw1))
             (setq pp1 pt21)
             (command "_.line" pp1 pt11 pt21 "")
  )
  )
         ((= hy "R")
         (setq pb2 (polar pa 0 ww))
         (setq pc2 (polar pa (/ pi 2) hh))
         (command "_.line" pc2 pa pb2 "")
         (setq pw2 (/ ww n))
         (setq ph2 (/ hh n))
         (setq pp2 pc2)
         (repeat n
              (setq pt12 (polar pp2 0 pw))
              (setq pt22 (polar pt12 (/ pi 2) ph2))
              (setq pp2 pt22)
              (command "_.line" pp2 tp12 pt22 "")
         )
  )

              ); end cond
              (princ "\n完成任务")
              (prin1)
              );end
              

各位在来看看...还是不行..为什么?

Andyhon

((= zy L)
-->
((= zy "L")

((= zy R)
-->
((= zy "R")

其他未验证 ....

黄荣忠

你的错误不只一处，应该将(= zy L)改成（= zy "l"），R的一样。当然了，你还有别的地方有错，可能是算法有错，我刚才没有认真看过程。你试试吧

黄荣忠

你不只一处有错，应该把(= zy L)改成(= zy "l"),R也一样，因为字符大小写不一样的吧。不只这里有错。

a170285

嗯..谢谢两位.现在我明白了..其他我就自己在改改..看能否达到练习题的要求

a170285

还是解决不了问题,..再次请教

Andyhon

条件式这样改 (check GetKword ....)

(= hy "LEFT")
(= hy "RIGHT")

其余算法得有专业知识....
程序内建议关闭捕捉

x_s_s_1

回复 a170285 的帖子

按这个改吧，也是画楼梯的你将左右向加进去就行了

2. (defun c:hlt()
   
3. (setvar "cmdecho" 0)
   
4.   (setvar "osmode" 0)
   
5. (setq p1 (getpoint "\n插入点:"))
   
6. (setq w (getreal "\n梯宽:"))
   
7. (setq h (getreal "\n梯高:"))
   
8. (setq n (getint "\n级数:"))
   
9. (setq p2 (polar p1 0 w))
   
10. (setq p3 (polar p2 (/ pi 2) h))
    
11. 
    
12. (command "line" p1 p2 p3 "")
    
13. 
    
14. (setq w1 (/ w n))
    
15. (setq h1 (/ h n))
    
16. (setq pa p1)
    
17. (repeat n
    
18. (setq pb (polar pa (/ pi 2) h1))
    
19. (setq pc (polar pb 0 w1))
    
20. (command "line" pa pb pc "")
    
21. (setq pa pc)
    
22. (prin1)))
    
23. (prompt "\n命令：hlt")
    
24. 
    

(defun c:hlt()<br /> (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br /> (setq p1 (getpoint "\n插入点:"))<br /> (setq w (getreal "\n梯宽:"))<br /> (setq h (getreal "\n梯高:"))<br /> (setq n (getint "\n级数:"))<br /> (setq p2 (polar p1 0 w))<br /> (setq p3 (polar p2 (/ pi 2) h))<br /> <br /> (command "line" p1 p2 p3 "")<br /> <br /> (setq w1 (/ w n))<br /> (setq h1 (/ h n))<br /> (setq pa p1)<br /> (repeat n<br /> (setq pb (polar pa (/ pi 2) h1))<br /> (setq pc (polar pb 0 w1))<br /> (command "line" pa pb pc "")<br /> (setq pa pc)<br /> (prin1)))<br /> (prompt "\n命令：hlt")<br /> <br />