vplayer lisp

[Anonymous]

hello guys. have a good day

(defun c:vpf ()
 (setvar   "cmdecho" 0)
   (if (= (tblsearch "layer" "xr-aa"))     
    (command "vplayer" "f" "xr-aa" "c" "")
    )
    (if (= (tblsearch "layer" "xre-bb"))     
    (command "vplayer" "f" "xre-bb" "c" "")
    )  
(princ)
)

this lisp does not work. some help guys...

[Satish_Rajdev]

Try this:

(defun c:vpf (/ cm)
  (setq cm (getvar 'cmdecho))
  (setvar "cmdecho" 0)
  (foreach x '("xr-aa" "xre-bb")          ; <- Add your layer list here
    (if	(tblsearch "layer" x)
      (command-s "vplayer" "f" x "c" "")
    )
  )
  (setvar "cmdecho" cm)
  (princ)
)

[ВeekeeCZ · Accepted solution]

I would suggest to open the vplayer command, do all layers, then close the command. That way you'll create just one layer state for LAYERP.

(defun c:vpf (/ cm)
  (setq cm (getvar 'cmdecho))
  (setvar "cmdecho" 0)
  (command "vplayer")                     ; open the command
  (foreach x '("xr-aa" "xre-bb")          ; <- Add your layer list here
    (if	(tblsearch "layer" x)
      (command "f" x "c")))               ; process all layers
  (command "")                            ; close the command
  (setvar "cmdecho" cm)
  (princ)
  )

[dwattersAMXH5]

you could also just set the layer list to a setq 
so rather then 

 (foreach x '("xr-aa" "xre-bb")          ; <- Add your layer list here

you could add this 

(setq layers '(layer list here))
(foreach x '("xr-aa" "xre-bb") layers 

if you planned to do anything else to that group of layers. 

[Anonymous]

thank you all