(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))

(defun c:1 ()
  (setq 1_s (ssget(list (cons 0 "TEXT"))))
  (setq c 0)
  (setq d 1)
  (setq 1_ss  (sslength 1_s)
1_sss 1_ss
  )
  (while (< c 1_ss)
    (setq 1_t (ssname 1_s (- 1_sss 1)))
    (setq 1_ent (entget 1_t))
    (entmod (subst (cons 1 (rtos d 2 0)) (assoc 1 1_ent) 1_ent))
    (setq 1_sss (- 1_sss 1))
    (setq d (+ d 1))
    (setq c (+ c 1))
  )
  (princ)
)

;bu lisp nokta kordinatlarını masa üstünde nokta isimli bir dosyaya yazar
;not: * ile işaretlenmiş satırdaki xxx ile başlayan not yerine bilgisayar kullanıcı adı yazılmalıdır...
;hazırlayan: miyatu 10\10\2009 qatar
(defun c:atn()
  (setq nokta_num 0)
  (terpri)
  (prompt"noktaları seciniz:")
  (setq sset (ssget '((0 . "POINT"))))
  (setq nokta_sayısı (sslength sset))
  ;***********************************************************************
  (setq notpad (open "C:\\Users\\xxx buraya kullanıcı adını yazınız\\Desktop\\nokta.txt" "w"))
  ;***********************************************************************
  (while (/= nokta_num nokta_sayısı)
    (setq nokta_list (ssname sset nokta_num))
    (setq n_list (entget nokta_list))
    (setq nokta (cdr (assoc 10 n_list)))
     (entmake (list
     (cons 0 "TEXT")
     (cons 7 (getvar "textstyle"));(getvar "textstyle")yerıne kendı textstyle adını " " arasına yazınız...
     (cons 8 "ylayer");"ylayer"yerıne kendı layer adını " " arasına yazınız...
     (cons 10 nokta)
     (cons 1 (rtos nokta_num))
     (cons 50 0.0)
     (cons 40 (getvar "textsize"))));(getvar "textsize")yerıne kendı text yukseklıgını yazınız...
    (write-line (rtos nokta_num) notpad)
    (setq x (car nokta))
    (setq x_yaz (strcat "x - " (rtos x)))
    (setq y (cadr nokta))
    (setq y_yaz (strcat "y - " (rtos y)))
    (setq z (caddr nokta))
    (setq z_yaz (strcat "z - " (rtos z)))
    (write-line x_yaz notpad)
    (write-line y_yaz notpad)
    (write-line z_yaz notpad)
    (setq nokta_num (+ nokta_num 1)))
  (close notpad))