(defun c:pslay (/ vp01 vp02 vp03 vp04 vp05 vp06 vp07 vp08)
  (command "_vplayer" "f" "*vi0*" "all")
  (setq vp01
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI01*")
          (-4 . "and>"))
    );ssget
  );setq
  (setq vp02
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI02*")
          (-4 . "and>"))
    );ssget
  );setq
  (setq vp03
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI03*")
          (-4 . "and>"))
    );ssget
  );setq
  (setq vp04
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI04*")
          (-4 . "and>"))
    );ssget
  );setq
  (setq vp05
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI05*")
          (-4 . "and>"))
    );ssget
  );setq
  (setq vp06
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI06*")
          (-4 . "and>"))
    );ssget
  );setq
  (setq vp07
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI07*")
          (-4 . "and>"))
    );ssget
  );setq
  (setq vp08
    (ssget "x"
      '((-4 . "<and")
          (0 . "VIEWPORT")
          (8 . "*VI08*")
          (-4 . "and>"))
    );ssget
  );setq
  (command)
  (if vp01
    (command "vplayer" "T" "*vi01*" "S" vp01 "" ""))
  (if vp02
    (command "vplayer" "T" "*vi02*" "S" vp02 "" ""))
  (if vp03
    (command "vplayer" "T" "*vi03*" "S" vp03 "" ""))
  (if vp04
    (command "vplayer" "T" "*vi04*" "S" vp04 "" ""))
  (if vp05
    (command "vplayer" "T" "*vi05*" "S" vp05 "" ""))
  (if vp06
    (command "vplayer" "T" "*vi06*" "S" vp06 "" ""))
  (if vp07
    (command "vplayer" "T" "*vi07*" "S" vp07 "" ""))
  (if vp08
    (command "vplayer" "T" "*vi08*" "S" vp08 "" ""))
  (command "vplayer" "T" "*vi0?7" "All" "")
  (princ)
)
(defun c:vpf ( / )
  (if vpfv
    (progn
      (command "layer" "off" "*vi0?7" "")
      (setq vpfv nil)
    )
    (progn
      (command "layer" "on" "*vi0?7" "")
      (setq vpfv "T")
    )
  )
  (princ)
)