 ; Yet another pattern drawer.
 ; Copyright 2003, 2005 by Rocket Software Ltd.
 ; Why it is still not possible to purchase snakeskin textured floppies?
 (DEFUN C:NEPO (/ ss num enam plist num)
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq ss (ssget "X" (list (cons 0 "point"))))
  (setq num 0)
  (while (setq enam (ssname ss num))
         (setq plist (cons (cdr (assoc 10 (entget enam))) plist))
         (setq num (1+ num)))
  (setq cycles (length plist))
  (setq plist (append (list ()) plist))
  (repeat cycles
         (setq plist (cdr plist))
         (setq num 1)
         (setq pa (car plist))
         (while (setq aa (nth num plist))
                (command "line" pa aa "")
                (setq num (1+ num))))
  (command "undo" "end")
 (princ))