;Polyline vertices select - www.cadstudio.cz - www.cadforum.cz
;(use the 'PLV inside a mask prompt)

(defun C:PLV ( / i elist at cmde)
 (setq cmde (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (setq i 0 elist (entget (car (entsel "\nPick a polyline: ")))) 
 (setvar "OSMODE" (boole 7 (getvar "OSMODE") 16384))
 (repeat (length elist) 
   (setq at (nth i elist) i (1+ i))
   (if (= (car at) 10) (command (trans (cdr at) 0 1)))
  )
 (command "")
 (setvar "OSMODE" (boole 2 (getvar "OSMODE") 16384))
 (setvar "cmdecho" cmde)
 (princ)
)