;;;
;;;    acad.lsp
;;;
;;;*******************************************************************
;;;	STARTUP
;;;*******************************************************************
;;LCA - COMMENT: s::startup defun no longer evaluates as a list.
(defun-q s::startup( / cmdecho)

    (mnt_startup)

	(princ)
)


(defun mnt_startup ()

;; Temporary settings
;;LCA - WARNING: The BLIPMODE sysvar is now saved in the registry.
;;(setvar "blipmode" 0)
(setvar "pdmode" 66)
;(setvar "cmdecho" 0)

;;
;;  Load the ARX module
;;

   (if (and mnt_Installed (mnt_Installed))
       (progn
          ;;(princ "PLM 8 Integration is installed.\n")
          (bpdmInitialize)
       )
       (progn
           (princ "\nLoading the PLM 8 Integration ARX module...")

           (if (null (arxload "../../Ac2006.arx" nil))
               (princ "\nUnable to load Ac2006.arx\n")
	           (if (mnt_Installed)
                   (progn
	              (princ "Loading the PLM 8 menu.\n")
                      (BPDM_loadMenu)
                      (bpdmInitialize)
                   )
               )
           )
       )
   )
   ;;(if (load "aview") (C:AviewAddtoMenu))
)

(defun MNT_loadMenu ()
   (if (null (menucmd "GCFE.SSA=?"))
      (progn
         (setq filedia (getvar "filedia"))
         (setvar "filedia" 0)
         (command "_.menuunload" "PLM8")
         (command "_.menuload" "..\\SSA.MNS")
         (setvar "filedia" filedia)
      )
   )
   (menucmd "p10=+CFE.CFE99")
)

(defun BPDM_loadMenu ()
   (if (null (menugroup "PLM8"))
      (progn
         (setq filedia (getvar "filedia"))
         (setvar "filedia" 0)
         (command "_.menuload" "..\\SSA.MNS")
         (setvar "filedia" filedia)
      )
   )
   (menucmd "p10=+PLM8.POP99")
)

(princ)