(defun ufb00007 ( u_p1  ;回転前の点
                  u_pc  ;回転中心
                  u_aa  ;回転角度（度）
                / p2    ;回転後の点
                  aa xl1 yl1 xl2 yl2 x2 y2 )
;回転した座標値を求める
  (setq aa (/ (* u_aa PI) 180.0))
  (setq xl1 (- (car  u_p1) (car  u_pc)))
  (setq yl1 (- (cadr u_p1) (cadr u_pc)))
  (setq xl2 (- (* (cos aa) xl1) (* (sin aa) yl1)))
  (setq yl2 (+ (* (sin aa) xl1) (* (cos aa) yl1)))
  (setq x2 (+ (car  u_pc) xl2))
  (setq y2 (+ (cadr u_pc) yl2))
  (setq p2 (list x2 y2 0.0))
  p2
)