save reactor

I have a save drawing reactor that worked fine untill i added:
(command "-layer" "ps" "solid" "*" "")
is there are reason that i cant use "command" and if so is there another way
to do this?



Thanks alot for your help
below is my entire code:


(vl-load-com) ;load activeX fcns

(setq MyReactor1 ;name of fcn
(vlr-dwg-reactor ;type of reactor
nil
'(vlr-SaveComplete . DoThisAfterSave) ;on save complete reactor
)
)
)

(defun DoThisafterSave (Caller CmdSet) ;after save is finished do this
(setq dname (menucmd "M=($(getvar, dwgname))"));get filename
(if (= (wcmatch dname "*-week??-??-??.dwg*") nil);does file name match
this criteria
(progn
(vlr-beep-reaction)
(alert "Your file name does NOT match the class standard of:\n
lastname-week##-##-##.dwg \nYou will have to resave the file with the
correct naming syntax \nPlease see your TA if you have questions");if not
set this alert
(command "-layer" "ps" "solid" "*" "")
)
)
(princ)
)

 

You have to use VisualLip/ActiveX in reactor callbacks...
(vlax-for Layer Layers ...) where Layers would be the document's layer
collection object.