[编程交流] 调试问题

(setq *operator* (list + -))
(setq [color="red"][b]*jump*[/b][/color] (list 20.0 0.0))
(defun main (/ p ps rp ty hdr)
 (setq ps (cons (getpoint "\nPick first point") ps))
 (setq ps (cons (getpoint (car ps) "\nPick second point") ps))
;;;---------------CREATE LOWER HEADER REBAR----------------------;;;
 (setq ty (reB (cadr ps)
         (car ps)
        (+ (angle (car ps) (cadr ps)) pi)
        50.0
         (- (angle (car ps) (cadr ps)) (/ pi 2))
         30.0)
    )
 (command "_point" (car ty))
 (command "_point" (cadr ty))
 (command "_point" (caddr ty))
 (command "_pline" (caddr ty)(car ty)(cadr ty) "")
 
;;;---------------END OF LOWER HEADER REBAR----------------------;;;
 (while (setq p (getpoint (car ps) "\nPick next point"))
 (setq ps (cons p ps))
;;;---------------CREATE LOWER SEQ REBAR----------------------;;;
   (setq rp (reA (car ps) (cadr ps) 50.0))
   (entmakex  
     (list (cons 0 "LINE")
    (cons 10 (car rp))
    (cons 11 (cadr rp))
     )
   )
;;;---------------CREATE UPPER SEQ REBAR----------------------;;;
;;;--------------END OF UPPER SEQ REBAR----------------------;;;
 )
)
(defun reA (p1 p2 e / wr wl mid)
 (setq        mid (polar mid ((car *operator*) (angle p1 p2) (/ pi 2))(car [b][color="red"]*jump*[/color][/b]))
           
           
     ;_ end of polar
 )
 (setq        wr (polar mid
          (+ (angle p1 p2) pi)
          (+ (/ (distance p1 p2) 2.0) e)
   )
 ) ;_polar helf distance + 50
 (setq wl (polar mid (angle p1 p2) (+ (/ (distance p1 p2) 2.0) e))) ;_polar helf distance + 50
 (setq *operator* (reverse *operator*))
 (setq [color="red"][b]*jump*[/b][/color] (reverse *jump*))
 (list wl wr)
)
(defun reB(p1 p2 eang e hang hlen  )
 (list
   p1                                 ;;; start point
   (polar p2 eang e)                   ;;; extention point
   (polar p1 hang hlen)         ;;; header 
   )
 )
 
 
(defun getmid (p1 p2)
 (list ;_get mid point
   (/ (+ (car p1) (car p2)) 2.0)
   (/ (+ (cadr p1) (cadr p2)) 2.0)
 ) ;_ end of list
)

2