;;; ---------------------------------------------------------------------------
;;; tal_vpoint.lsp
;;; ---------------------------------------------------------------------------
;;; (c) 1994-2007 Talia Ltd.
;;; Erhan Toker

(defun c:TAL_VPOINT( / p1 p2 p3 a oom)
  (setq *error* tal_error)

  (setq p1 (getpoint "\nOrijin noktasını işaretleyin:"))
  (setq p2 (getpoint p1 "\nX ekseni için bir nokta işaretleyin:"))
  (initget 0)
  (setq p3 (getpoint p1 "\nY ekseni için bir nokta işaretleyin <2 boyut>:"))
  ;;; 2 boyut
  (if (null p3)
	 (progn
		(setq a (angle p1 p2))
		(setq a (+ a (/ pi 2.0)))
		(setq p3 (polar p1 a 1.0))
		)
	 )
  ;; UCS yi ayarla
  (setq oom (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (command "_.UCS" "3" p1 p2 p3)
  (command "_.PLAN" "")

  (command "_.UCS" "_P")

  (setvar "OSMODE" oom)
  (princ)
  )

(defun c:TVP()
  (c:tal_vpoint)
  )

(defun tal_error(msg)
  (princ "\nHatalı giriş yaptınız! Tekrar deneyin.")
  (princ)
  )

(princ "\nParalel VPOINT komutu yüklendi. (TAL_VPOINT ve ya TVP)")
(princ "\n(c)1994-2007 Talia Ltd. --- Erhan Toker")
(princ)