; dortgen.lsp
; dikdörtgen çizer
;
; Orhan Toker 2006

(setq oldCmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)

(defun c:dortgen (/ pt1 pt2 pt3 pt4)
  
  ; Önce kullanıcıdan köşe noktalarını isteyelim
  (setq pt1 (getpoint "\nDörtgenin 1.köşesini tıklayın:")
	pt3 (getcorner pt1 "\nDiğer köşeyi tıklayın:")
	)
  
  ; Şimdi diğer iki noktayı biz hesaplayalım
  (setq pt2 (list (car pt3) (cadr pt1) 0.0))
  (setq pt4 (list (car pt1) (cadr pt3) 0.0))

  ; artık çizdirebiliriz
  (command "._pline" pt1 pt2 pt3 pt4 "_c")
  )
(setvar "cmdecho" oldCmdecho)
(princ)