[求助]请帮我看看这段程序出了什么问题？

go-go

(setq H1 (/ (* d2 h) (- d2 d1)))
  (setq l1t (/ d2 2))
  (setq l2t (- (/ d2 2) (/(* h d2) (* 2 s H1))))
  (if (= d3 d4)
   (progn
    (setq a1t(- l1t (/ d3 2)))
    (setq l11t (/ d3 2))
    )
    (if (= (- d1 d3) (- d2 d4))
(progn
  (setq H2 (/ (* d4 h) (- d4 d3)))
  (setq l11t (/ d4 2))
  (setq a1t (- l1t l11t))
  (setq l22t (- (/ d4 2) (/(* h d4) (* 2 s H2))))
         )
   (if (= (/ d1 d2) (/ d3 d4))
  (progn
    (setq l11t (/ d4 2))
    (setq a1t (- l1t l11t))
    (setq l22t (- (/ d4 2) (/ (* h d4) (* 2 s H1))))
   )
                  (progn
             (alert "参数有问题!!!")
                     (princ "\n画图任务失败")
  )  
     )
   )
）
请帮助看看这段程序中循环部分是否有问题，这是本人所编程序的一部分，当出现三个条件时，这样做是否正确，我加载后，图形不正确，百思不得其解，希望能得到大家的帮助。
                                      


                                 

meflying

三个条件可以这样，用
(cond ...)比较好些，你最好给出整个函数，或者至少给出此段以前的给这些所有用到的变量付值的部分，否者无法看出问题

go-go

其中d1,d2,d,h,d3,d4,s均为已知数，由用户直接输入。



              

zhaojunxiao

幻灯片怎么制作？

aeo000000

cond的话,从上到下,只执行先满足条件的.

3个if,满足一个,执行一个,你的可能3个if都执行了.