;Pseudo grip-stretch -- CAD Studio -- www.cadstudio.cz
(defun C:gSTRETCH ( / p1 pb box1 box2)
 (setvar "cmdecho" 0)
 (prompt "\nSelect line endpoint to stretch: ")
 (setq p1 (grread nil 14 2))
 (if (= (car p1) 3) (progn
  (setq p1 (cadr p1))
  (setq pb (* (/ (getvar "viewsize") (cadr (getvar "screensize"))) (getvar "pickbox"))  pb (list pb pb))
  (setq box1 (trans (mapcar '- p1 pb) 2 1))
  (setq box2 (trans (mapcar '+ p1 pb) 2 1))
  (command "_STRETCH" "_C"  box1 box2 "" p1)
 ));if p1
 (setvar "cmdecho" 1)
 (princ)
)
(princ "\nCommand gSTRETCH loaded (CAD Studio)")
(princ)