ok...so if i understand...
can i modify the code like this..
(defun c:HTz ()
(if
(and (not var1) (CC_find_env)
);;detect if some variable is set
(progn
(SDC_readSfile);;read other variables
(setq BC1r T11r
BC1 T11
);;redefine some variables
(loadreactortype);;<---HERE LOAD REACTOR NOT WORKING
);;progn
);;if
(command "_DTEXT")
);;end HTz
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun loadreactortype ()
(setq var1 T) ;;(alert "Reactor loaded")
(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand)))
(vlr-command-reactor nil '((:vlr-commandCancelled . cancelCommand)))
(vlr-command-reactor nil '((:vlr-commandFailed . failedCommand)))
)
But not seam to work...