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

go-go · 发表于 2003-6-8 21:11:00

(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画图任务失败")
  )
   )
)
）
请帮助看看这段程序中循环部分是否有问题，这是本人所编程序的一部分，当出现三个条件时，这样做是否正确，我加载后，图形不正确，百思不得其解，希望能得到大家的帮助。