(defun c:rts ()
  (setvar "errno" 0)
  (setq rts_os (getvar "osmode"))
(setq trsnil nil)
  (while (= trsnil nil)
    (setq trs_ent (entsel "\nReferans çizgiyi seçin:"))
    (if (= trs_ent nil)
      (progn
    (if (= (getvar "errno") 7)
      (progn
(princ "\nÇizgi seçilmedi...")
(setq trsnil nil)))
    (if (= (getvar "errno") 52)
      (progn
(setq trsnil t))))
      (progn
(setq rts_tan (cdr (assoc 0 (entget (car trs_ent)))))
(if (/= rts_tan "LINE")
(progn
  (princ "\nSeçilen nesne LINE değil...!")
  (setq trsnil nil))
  (progn
    (redraw (car trs_ent) 3)
    (setq trsnil t)
    (setq trsnilnil nil)
(while (= trsnilnil nil)
    (setq trs_ent1 (entsel "\nReferans çizgiyi seçin:"))
    (if (= trs_ent1 nil)
      (progn
    (if (= (getvar "errno") 7)
      (progn
(princ "\nÇizgi seçilmedi...")
(setq trsnilnil nil)))
    (if (= (getvar "errno") 52)
      (progn
(setq trsnilnil t))))
      (progn
(setq rts_tan1 (cdr (assoc 0 (entget (car trs_ent1)))))
(if (/= rts_tan1 "LINE")
(progn
  (princ "\nSeçilen nesne LINE değil...!")
  (setq trsnilnil nil))
    (progn
      (setq trsnilnil t)
      (setq rts_1_10 (cdr (assoc 10 (entget (car trs_ent))))
    rts_1_11 (cdr (assoc 11 (entget (car trs_ent))))
    rts_2_10 (cdr (assoc 10 (entget (car trs_ent1))))
    rts_2_11 (cdr (assoc 11 (entget (car trs_ent1))))
    rts_1_aci (angle rts_1_10 rts_1_11)
    rts_2_aci (angle rts_2_10 rts_2_11))
      (command "osmode" 0)
      (command "rotate" (car trs_ent1) "" rts_2_10 "r" rts_2_10 rts_2_11 (angtos (- rts_1_aci (/ pi 2))))
      ))))))))))
(setvar "osmode" rts_os)
  (redraw (car trs_ent) 4)
  (princ))