layout switch - rejected: "clayer" "0"

[cadtank]

i have a layoutswitch reactor which modifies modemacro & psltscale.
can't get the cad manager to use defun-q for his startup so using a
workaround.

seems like when i switch layouts & use cad managers functions i get
something like this:
Error: AutoCAD variable setting rejected: "clayer" "0"

the variable is always 'clayer'

think he is using a 'one fits all' error handler routine

any ideas or suggestions??

cad manager not to open about mine.

my code below.

----------------------------------------------------------------------------
-------
; thanks to Vladimir Nesterovsky & newsgroup
----------------------------------------------------------------------------
-------

(DEFUN-Q cjrstartup
() ;begin cjrstartup

(IF (NOT cdtk:docmanagerreactor)
(SETQ cdtk:docmanagerreactor
(VLR-DOCMANAGER-REACTOR
nil
'((:VLR-DOCUMENTTOBEDESTROYED . cdtk:closehandling))
)
)
)

(IF (NOT (VLR-REACTORS :VLR-MISCELLANEOUS-REACTOR))
(VLR-MISCELLANEOUS-REACTOR
nil
'((:VLR-LAYOUTSWITCHED
.
cdtk:modemacroreactor
)
)
)
)
(cdtk:modemacro)

(PRINC)

) ;end cjrstartup

;;;(defun-q CJRSTARTUP
;;; () ;begin cjrstartup
;;; (cjr_dflts)
;;;) ;end cjrstartup

;;;(setq S::STARTUP (append S::STARTUP CJRSTARTUP))

(DEFUN plugintostartup (myfuncsym) ;by Vladimir Nesterovsky
; ©2000 MENZI ENGINEERING GmbH, Switzerland
;"to be called with quoted function name"
(EVAL (LIST
'DEFUN
's::startup
()
(IF s::startup
(LIST (LIST 'QUOTE s::startup))
)
(LIST myfuncsym)
)
)
)

(plugintostartup 'cjrstartup)

(DEFUN cdtk:closehandling (rea arg)
(IF *vl-cjr-acadobject*
(VLAX-RELEASE-OBJECT *vl-cjr-acadobject*)
)
(IF *vl-cjr-activedocument*
(VLAX-RELEASE-OBJECT *vl-cjr-activedocument*)
)
(IF *vl-cjr-modelspace*
(VLAX-RELEASE-OBJECT *vl-cjr-modelspace*)
)
(IF *vl-cjr-paperspace*
(VLAX-RELEASE-OBJECT *vl-cjr-paperspace*)
)
(IF *vl-cjr-acadprefs*
(VLAX-RELEASE-OBJECT *vl-cjr-acadprefs*)
)

(VLR-REMOVE-ALL :VLR-DOCMANAGER-REACTOR)
(VLR-REMOVE-ALL :VLR-MISCELLANEOUS-REACTOR)

(SETQ *vl-cjr-acadobject* nil)
(SETQ *vl-cjr-activedocument* nil)
(SETQ *vl-cjr-modelspace* nil)
(SETQ *vl-cjr-paperspace* nil)
(SETQ *vl-cjr-acadprefs* nil)

(SETQ cdtk:docmanagerreactor nil)

(PRINC)
)

(DEFUN cdtk:modemacroupdater (/ dms psl)
(SETQ dms (GETVAR "dimscale"))

(SETVAR "modemacro"
(STRCAT
"Dimscale: "
(IF (>= dms 1)
(RTOS dms 2 0)
(RTOS dms 2)
)
" · "
"Psltscale: "
"$(getvar,psltscale)"
;(ITOA psl)
" · "
"Tab: "
"$(getvar,ctab)"
" ·"
)
)
(PRINC)
)

(DEFUN cdtk:modemacroreactor (reactor layout /)
(IF (= (NTH 0 layout) "Model")
(PROGN
(VLA-SETVARIABLE (vl-cjr-activedocument) "psltscale" 0)
;(vl-cjr-regen)
)
)
(cdtk:modemacroupdater)
)

(DEFUN cdtk:modemacro ()
(cdtk:modemacroupdater)
)

[R. Robert Bell]

(setvar "CLayer" "0") would fail if layer 0 is frozen.

--
R. Robert Bell, MCSE
www.AcadX.com

"cadtank" <cadtank&#64;cadtank.com> wrote in message
news:DF04313CAE303070...@in.WebX.maYIadrTaRb...

[cadtank]

i have taken care of that situation with a routine that runs when a dwg is
opened.

the "0" is an example, it returns whatever the current layer is, 'mylayer'
etc.

any other ideas?

"R. Robert Bell" <NOT.r...@acadx.com> wrote in message
news:8BA6D5C5BC5F761E...@in.WebX.maYIadrTaRb...

[Jason Piercey]

Is the error handler restoring a variable? (setvar "clayer"
SomeVariableAssiggnedToALayerName) Perhaps this variable is not set?

--

-Jason
Member of the Autodesk Discussion Forum Moderator Program

[cadtank]

ok, let me clarify

-in paperspace use 'ora13_ce' from a button
-complete command
-switch to model, layout switch reactors does it stuff
-use 'ora13_ce' from button
-get this on command line: Error: AutoCAD variable setting rejected:
"clayer" "keynote_tag"
-try command again & it works

seems to only do it from paper to model, not model to paper

the code below is what i found.

seems like cad manager is doing redudant stuff with (errorsetup) &
(ora_getvars) & (ora_setvars) & (errorrestore)

thanks

----------------------------------------------------------------------------
---

(defun ora13_ce (/ olderr dims o13att arp1 arp3 cen oldsn oldor clyr oldos)
(errorsetup)
(ora_getvars)
(setlyr_c "keynote_tag" "cyan")
(if (tblsearch "block" "ora13")
(setq _ora13 "ora13")
(setq _ora13 "k:\\orablock\\ora13")
)
(setq dims (getvar "dimscale"))
(setvar "attdia" 0)
(if (not _o13att)
(princ "\nx/#: ")
(princ (strcat "\nx/# <" _o13att ">: "))
)
(setq o13att (getstring))
(if (= "" o13att)(setq o13att _o13att))
(princ "\nInsertion point: ")
(command ".insert" _ora13 "s" dims "r" 0.0 pause o13att)
(setvar "osmode" 512)
(initget 1)
(setq arp1 (getpoint (setq cen (getvar "lastpoint")) "\nTarget: "))
(setvar "osmode" 0)
(setlyr_c "annobj" "2")
(setq arp3 (polar cen (angle cen arp1) (* dims 0.1328125))
_o13att o13att
)
(pline_leader arp1 arp3 dims)
(ora_setvars)
(errorrestore)
)

(defun ora_getvars ()
(setq oldsn (getvar "snapmode")
oldor (getvar "orthomode")
oldos (getvar "osmode")
clyr (getvar "clayer")
)
(setvar "snapmode" 0)
(setvar "orthomode" 0)
(setvar "osmode" 0)
)

(defun ora_setvars ()
(setvar "attdia" 1)
(setvar "snapmode" oldsn)
(setvar "orthomode" oldor)
(setvar "clayer" clyr)
(setvar "osmode" oldos)
)

(defun ErrorSetup ()
(GetSysvars)
(graphscr)
(if (= (getvar "dimscale") 0.0)
(setvar "dimscale" 1)
)
(if (not *error*)
(defun *error* (msg)
(ORAErrorDisp msg)
(foreach n '("cmdecho" "highlight")(setvar n 1))
(princ)
)
)
(defun newerr (msg)
(setq *error* olderr)
(ORAErrorDisp msg)
(ResetSysvars syslist varlist)
(if (not (zerop (getvar "cmdecho")))
(setvar "cmdecho" 0)
)
(command ".undo" "e" ".u")
(foreach n '("highlight" "cmdecho")(setvar n 1))
(princ)
)
(setq olderr *error* *error* newerr)
(update_modemacro)
(setvar "cmdecho" 0)
(command ".undo" "g")
)

(defun GetSysvars ()
(setq syslist
'("SNAPMODE"
"GRIDMODE"
"ORTHOMODE"
"OSMODE"
"LUPREC"
"PLINEWID"
; "REGENMODE"
"ATTMODE"
"POLARMODE"
"AUTOSNAP"
"EXPERT"
"UCSICON"
"AUPREC"
"APERTURE"
; "PICKFIRST"
)
)
(setq varlist '())
(foreach n syslist
(setq varlist (cons (getvar n) varlist))
)
(setq varlist (reverse varlist))
)

(defun ResetSysvars (slst vlst / i)
(setq i 0)
(foreach n slst
(setvar n (nth i vlst))
(setq i (1+ i))
)
)

"Jason Piercey" <Jason@AtrEngDotCom> wrote in message
news:F326D279DD09C1A8...@in.WebX.maYIadrTaRb...

[cadtank]

i'll will check it out

thanks for the time

"R. Robert Bell" <NOT.r...@acadx.com> wrote in message

news:5E75AB980F98178D...@in.WebX.maYIadrTaRb...
> I'm willing to bet that it boils back to that "It's either All or Nothing"
> thread from 1-2 years ago.

>
> --
> R. Robert Bell, MCSE
> www.AcadX.com
>
>
> "cadtank" <cadtank&#64;cadtank.com> wrote in message

> news:F15D27C04565EB93...@in.WebX.maYIadrTaRb...

[R. Robert Bell]

I'm willing to bet that it boils back to that "It's either All or Nothing"
thread from 1-2 years ago.

--

R. Robert Bell, MCSE
www.AcadX.com

"cadtank" <cadtank&#64;cadtank.com> wrote in message

news:F15D27C04565EB93...@in.WebX.maYIadrTaRb...

[Robert Ibarra]

"R. Robert Bell" wrote:
> I'm willing to bet . . .

How much?

jb

[Miguel Angel Espinosa Torres]

hi,

i read about your reactor and would like to know how you solved the reactor problem. since a few month i'm trying to make my layoutSwitched-reactor
work, but it doesn't. can you show me your codes to know how to manage this?

thanx

miguel

[cadtank]

from the first post, using it to display layout tab name & change psltscale
var.

----------------------------------------------------------------------------
--

any ideas or suggestions??

my code below.

(PRINC)

) ;end cjrstartup

(plugintostartup 'cjrstartup)

(VLR-REMOVE-ALL :VLR-DOCMANAGER-REACTOR)
(VLR-REMOVE-ALL :VLR-MISCELLANEOUS-REACTOR)

(SETQ cdtk:docmanagerreactor nil)

(PRINC)
)

"Miguel Angel Espinosa Torres" <maesp...@gencat.net> wrote in message
news:3E22948A...@gencat.net...