(defun c:rs ()
  (setq rs_1n (getpoint "
Birinci nokta:"))
  (if (= rs_1n nil)
    (progn
      (princ)
    )
    (progn
      (setq rs_2n (getcorner rs_1n "
İkinci Nokta:"))
      (if (= rs_2n nil)
(progn
  (princ)
)
(progn
  (setq solid_1n rs_1n
solid_2n (list (car rs_1n) (cadr rs_2n))
solid_3n rs_2n
solid_4n (list (car rs_2n) (cadr rs_1n))
  )
          (setq rs_os (getvar "osmode"))
          (setvar "osmode" 0)
  (command "solid" solid_1n solid_2n solid_4n solid_3n "")
)
      )
    )
  )
(setvar "osmode" rs_os)
  (princ)
)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")