Lisp routine gone wrong in 2005

Hello,
I have successfully used this lisp routine in AutoCAD 2000-2002:

(defun C:VRC ()
(command "view" "restore" "P")
(setq c-cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq a (ssget))
(setq b (getpoint "\Pick base point: "))
(setvar "cmdecho" c-cmd)
(command "zoom" "previous")
(command "copy" a "" "m" b
))

However, when using it in 2005, it changes the layer state and I must use layerp or lman to reset the layer state.

Any help would be appreciated.

Thanks, Bob Mitchell

 

I am no expert on Views, but R2005 has several new options.
To see the options: (command "view")<enter>
I would think you could use 'A' and 'S'ave on the named view.
e.g. (command "_view" "A" "<viewname>" "S" "")
then,
(command "_view" "restore" "<viewname>")

Bob

 

Thanks for the insight.
I'll check and see if that is the source of the problem.
Bob

 

Bob,
If you find a 'cure' I'm sure that others may be interested.

Bob

 

Bob,

How are you creating the view? Views can _optionally_ save layers settings.

(command "._view" "_s" "P" "" "_A" "P" "_D" "")


--
R. Robert Bell


Hello,
I have successfully used this lisp routine in AutoCAD 2000-2002:

(defun C:VRC ()
(command "view" "restore" "P")
(setq c-cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq a (ssget))
(setq b (getpoint "\Pick base point: "))
(setvar "cmdecho" c-cmd)
(command "zoom" "previous")
(command "copy" a "" "m" b
))

However, when using it in 2005, it changes the layer state and I must use
layerp or lman to reset the layer state.

Any help would be appreciated.

Thanks, Bob Mitchell