
(menucmd "p10=+AC_LXY.pop1")

(defun add_path(/ a b c)
  (setq b (findfile "acad.exe"))
  (if b 
    (setq b (substr b 1 (- (strlen b) 8))
          b (strcase b)
	  b (strcat b "NTools4")
    )
  )
  (if (and b
	   (setq c (getenv "ACAD")) 
      )              
    (progn
      (setq a (strcase c))
      (if (not (equal ";" (substr a 1 1)))
        (setq a (strcat ";" a))
      )
      (if (not (equal ";" (substr a (strlen a) 1)))
        (setq a (strcat a ";")
              c (strcat c ";")
        )
      )
      (if (not (wcmatch a (strcat "*;" (strcase b) ";*")))
        (progn 
          (setq c (strcat c b))
          (setenv "ACAD" c)
          )
        (setq c nil)
      )
    )
    (setq c nil)
  )
  c
)

(add_path)

(defun c:enew()
  (load "epin")
  (epin)
)
(defun c:eedit()
  (load "epin_mod")
  (ep_edit)
)
(setq CUDAT (/ (getvar "cdate") 19741213))
(defun c:pnew()
  (load "pin")
  (pin)
)
(defun c:pinedit()
  (load "pin_edit")
  (p_edit)
)
(defun c:bnew()
  (load "btl_new")
  (btl_create)
)
(defun c:bedit()
  (load "btl_edit")
  (btl_edit)
)
(defun c:mnew()
  (load "mxb_new")
  (mxb)
)
(defun c:madd()
  (load "mxb_ins")
  (mxb_insert)
)
(defun c:medit()
  (load "mxb_edit")
  (mxb_edit)
)
(defun c:plt()
  (load "pl_time")
  (plot_time)
)
(defun c:snew()
  (load "screw")
  (snew)
)
(defun c:sedit()
  (load "scr_mod")
  (sedit)
)
(defun c:ssort()
  (load "std_sort")
  (ssort)
)
(defun c:spnew()
  (load "spring")
  (spring)
)
(defun c:spedit()
  (load "sp_edit")
  (sp_edit)
)
(defun c:apnew()
  (load "apn_new")
  (apn_create)
)
(defun c:mxbout()
  (load "output")
  (out_put)
)
(defun c:layman()
  (load "layman")
  (layman)
)
(defun c:mould()
  (load "MoldBase")
  (MoldSys)
)
(defun c:Sld()
  (load "Sldnew")
  (Sldnew)
)

(defun c:lxyabout ( / DCL_IDX FIL FP LIN X Y LST)

  (if (> (setq DCL_IDX (load_dialog "LXYABOUT")) 0)
    (progn
      (if (new_dialog "lxyAbout" DCL_IDX)

        (progn

          (if (setq FIL (findfile "LXYABOUT.TXT"))
            (progn
              (setq FP (open FIL "r"))
              (start_list "lstAbout")
              (while (setq LIN (read-line FP))
                (add_list LIN)
              )
              (end_list)
              (close FP)
            )
          )

          (setq X (dimx_tile "lxyAbout")
                Y (dimy_tile "lxyAbout")
          )
          (start_image "lxyAbout")
          (slide_image 0 0 X Y "ac_lxy(lxyabout)")
          (end_image)


          (action_tile "accept" "(done_dialog 1)")
          (action_tile "help" "(done_dialog 2)")


          (setq RETURN (start_dialog))

        ) ; end progn
        (alert "Unable to display dialog box")
      ) ; end if new dialog
      (unload_dialog DCL_IDX)
    )
    (alert "Unable to load LXYABOUT.DCL")
  )
  
  
  (princ)
);defun

(setq GVDAT 0.01311)
(setvar "gripblock" 1)

(if (< GVDAT CUDAT)
  (progn
    (load "ac_lxy")
    (prompt "\nAutoCAD LXY New Tools loaded!")
  )
  (prompt "\nAutoCAD LXY New Tools loaded failed! \nPlease contact the developer of this software!")
)

(if (/= 0 (getvar "angdir"))
  (setvar "angdir" 0)
)
(if (> (abs (getvar "angbase")) 0)
  (setvar "angbase" 0)
)

(princ)
