(defun ufb00011 ( u_p1  ;ローカル座標系の原点
                  u_p2  ;ローカル座標系のＸ軸の方向を決定するための点
                  u_pl  ;世界座標系に変換したい点（ローカル座標系）
                  u_eps ;許容誤差
                / pp    ;世界座標系での点
                        ; nil:点の座標が求まらない
                        ;     原点とＸ軸の方向を決定するための点が同一点
                  vv xl yl xv yv xw yw )
;座標変換（ローカル座標系⇒世界座標系）をする
  (setq pp nil)
  (setq vv (ufb00001 u_p1 u_p2 u_eps))
  (if (/= vv nil)
    (progn
      (setq xl (car  u_pl))
      (setq yl (cadr u_pl))
      (setq xv (car  vv))
      (setq yv (cadr vv))
      (setq xw (+ (- (* xv xl) (* yv yl)) (car  u_p1)))
      (setq yw (+ (+ (* yv xl) (* xv yl)) (cadr u_p1)))
      (setq pp (list xw yw 0.0))
    )
  )
  pp
)