When having AutoCAD and BricsCAD on the same machine, it would be nice to have a forum to work out any problems...etc.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Find ACAD.exe ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ARCH:FINDACAD#PATH (/ program)
(setq program (substr (getvar "acadver") 6 (- (strlen (getvar "acadver")) 1)))
(cond ((/= program "BricsCAD")
(progn (setq ACAD#PATH (findfile "acad.exe")
ROAM#ROOT (getvar "ROAMABLEROOTPREFIX")
ACAD#ENVR (getenv "ACAD")
ACAD#NAME (substr ACAD#PATH 1 (- (strlen ACAD#PATH)
))
))
((= program "BricsCAD")
(progn (setq ACAD#PATH (findfile "bricscad.exe")
ROAM#ROOT (getvar "ROAMABLEROOTPREFIX")
ACAD#ENVR (getenv "ACAD")
ACAD#NAME (substr ACAD#PATH 1 (- (strlen ACAD#PATH) 12)))
)))
(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ARCH Registry ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ARCH:PATH_REGISTRY ()
(ARCH:FINDACAD#PATH)
(ARCH:READKEYS)
(setq ARCH_AmendedSetup
(strcat (substr ARCH#SUPF 1 (- (strlen ARCH#SUPF) 1))
";"
(strcat (substr ARCH#SUPF 1 (- (strlen ARCH#SUPF) 1)) "/V_all")
";"
(substr ARCH#FONF 1 (- (strlen ARCH#FONF) 1))
";"
(substr ARCH#PATF 1 (- (strlen ARCH#PATF) 1))
";"
ACAD#ENVR))
(setenv "ACAD" ARCH_AmendedSetup)
(princ))