;;; 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)) ) ) )