[求助]：高手指点错误在哪？

jinsong-liao

请问以下的程序片段有错误吗？错在哪里？（为何给angle-fwj 赋的值不起作用）
;转换方位角
(defun zhffwj(a)
     (if (<=  a  (* 0.5 pi))
         (setq xs 0)
         (setq xs 1.0)
     )
      (+ (* xs 2 pi ) (- (* 0.5 pi) a) )  
);end of defun
(if (and (angtos (>= (zhffwj (angle jdpt1 jdpt2)) 0) 0 5 )     ; jdpt1 jdpt2为多义线两顶点，已赋值
                    (angtos (<= (zhffwj (angle jdpt1 jdpt2)) 90) 0 5 )
               )
           )
           (setq angle-fwj (angtos (zhffwj (angle jdpt1 jdpt2)) 0 5))      ;NE
           (if (and (angtos (> (zhffwj (angle jdpt1 jdpt2)) 90) 0 5 )
                    (angtos (<= (zhffwj (angle jdpt1 jdpt2)) 180) 0 5)
               )
           )
           (setq angle-fwj (angtos (- 180 (zhffwj (angle jdpt1 jdpt2)) ) 0 5) )   ;NW
         。。。。。。
    (command "text" "j" "r" pt1 "3" "0" angle-fwj)

aidraft

(angtos (>= (zhffwj (angle jdpt1 jdpt2)) 0) 0 5 )
其中(>= (zhffwj (angle jdpt1 jdpt2)) 0)的值为t或nil,肯定出错！

xumaling

楼上的说得对 前面是判断 只能是t或者nil

jinsong-liao

让大家见笑了，我是初学者，改为如下为何仍不行？
      (if (and (> (zhffwj (angle jdpt1 jdpt2)) 90)
                  (<= (zhffwj (angle jdpt1 jdpt2)) 180)
          )
      )
           (setq angle-fwj (angtos (- 180 (zhffwj (angle jdpt1 jdpt2)) ) 0 5) )

xyp1964

[php]
;;看了半天，原来就是要标两点的角度。
;;楼主的错误在于一会儿用角度单位，一会儿又用弧度单位，两者直接进行四则运算肯定出问题，看下面是否行？
(defun c:test ()
  (setq        pt1 (getpoint "\n1点 : ")
        pt2 (getpoint pt1 "\n2点 : ")
  )
  (setq ang (angle pt1 pt2))
  (if (and  (>= ang 0)
           (<= ang pi)
      )
    (setq angle-fwj (angtos ang 0 5))
  )
  (if (and  (> ang pi)
           (<= ang (* pi 2))
      )
    (setq angle-fwj (angtos (- ang pi) 0 5))
  )
  (command "text" "j" "r" pt1 "3" "0" angle-fwj "")
)[/php]