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