(defun nm_inlist (lst str / ct tmpstr ret)
  (setq ct 0)
  (repeat (length lst)
    (setq tmpstr (nth ct lst))
    (if (wcmatch (strcase tmpstr) (strcat "*" str "*"))
      (setq ret T)
    )
    (setq ct (1+ ct))
  )
  ret
)

(defun elsoarx_load ( / l_arx arxld snm )
	(setq l_arx (arx))
	(if (nm_inlist l_arx "WinElso_NR22_x64_2022.nrx")
	(progn (setq arxld T))
	(progn
		(setq snm "WinElso_NR22_x64_2022.nrx")
		(if (findfile snm)
			(progn ;; if OK
				(setq arxld (arxload snm nil))

				(princ "\nФайл WinElso_NR22_x64_2022.nrx загружен\n")

;				(if (arxld) 
;					(princ "\nФайл WinElso_NR22_x64_2022.nrx загружен")
;				)

				(if (not arxld) 
					(setq ELSOGLB_LOADERR (strcat "\nОшибка загрузки файла " snm))
				)
			)

			(progn	;; if error
				(setq ELSOGLB_LOADERR (strcat "\nНе найден файл " snm))
			)
		)

	)
	)

	(if (not arxld)	(progn 	(princ "\n") (princ ELSOGLB_LOADERR) ) )
)

(defun C:lwe() 
	(setq command "lwe")
;	(elsoarx_load ) 
    	(arxload "WinElso_NR22_x64_2022.nrx" nil) 
	(princ "\nФайл WinElso_NR22_x64_2022.nrx загружен\n")


)

(defun C:uwe() 
    	(setq command "uwe")
    	(arxunload "WinElso_NR22_x64_2022.nrx" nil) 
	(princ "\nФайл WinElso_NR22_x64_2022.nrx выгружен\n")
 )


(elsoarx_load)