(defun C:face (/ x1y1 x1y2 x2y1 x2y2 cmdech)
  (setq cmdech (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq x1y1 (getpoint "\nFirst point : "))
  (setq x2y2 (getcorner x1y1 "\nSecond point : "))
  (setq x1y2 (cons (car x1y1)(cdr x2y2)))
  (setq x2y1 (cons (car x2y2)(cdr x1y1)))
  (command "3dface" x1y1 x2y1 x2y2 x1y2 "C")
  (setvar "cmdecho" cmdech)
  (princ)
)