C:LENGTHEN

;;; Lengthen a line or an arc until no entity or an invalid entity is picked.

;;; Because (getvar "SNAPUNIT") always returns a list of reals we may use

;;; std-deftype and not only std-default

(std-default-type 'my:def-lengthen-dist (car (getvar "SNAPUNIT")))
(setq dist (std-getdist 0 "" "Lengthen factor" 
              my:def-lengthen-dist nil)
      my:def-lengthen-dist dist)
(while (setq pick (std-entsel "lengthen which line"))
  (cond
    ((= (setq typ (std-gettype pick)) "LINE")
      (my-length-line pick dist))
    ((= typ "ARC")
      (my-length-arc pick dist))
    )
  )
)