[编程交流] 我的pol有点问题

(setq pre_ang 0)
(setq ang (/ (* 3 pi) 2))
(setq int '(46.8854 43.1495 0.0))
(setq apt_int '(52.8854 49.1495 0.0))
(setq width 6)
(setq ptLst
(mapcar
   '(lambda(x)(trans x 0 1))
        (list
          (setq eli int)
          (setq el1 (polar eli (+ pi pre_ang) (/ width 3.)))
          (setq el2 (polar el1 (+ (/ pi 2) pre_ang) width))
          (setq el3 (polar eli ang (/ width 3.)))
          (setq el4 (polar el3 (+ (/ pi 2) ang) width))
          (setq ela apt_int)
         )
 )
)
(mapcar '(lambda (x)(command "point" x)) ptlst)

_$
(polar '(46.8854 43.1495 0.0) 3.14159 2.0) ;entered in console [el1]
(44.8854 43.1495 0.0) ; return

(setq ptLst (mapcar
              '(lambda(x)(trans x 0 1))
                 (list
                    int
                    (polar int (+ pi pre_ang) (/ width 3.))
                    (polar apt_int (+ pi pre_ang) (+ (/ width 3) width))
                    apt_int
                    (polar int ang (/ width 3.))
                    (polar apt_int ang (+ (/ width 3) width))
                    apt_int )))
(mapcar '(lambda (x)(command "point" x)) ptlst))

(mapcar '(lambda (x)(command "point" x)) ptlst))

(mapcar '(lambda (x)(command "_.point" "_non" x)) ptlst))