HYTOS

(defun AddToTrustedPaths (path / DELIMETER t_paths len i t_path found ch)

  (setq DELIMETER ";")

  (setq t_paths (vl-string-trim (strcat " " DELIMETER) (getvar "TRUSTEDPATHS")))

  (setq len (strlen t_paths)    i 1    t_path ""    found nil)

  (while (and (< i len) (/= found T))

    (setq ch (substr t_paths i 1))

    (if (or (= ch DELIMETER) (= i len))

      (progn (if (= t_path path) (setq found T)) (setq t_path ""))

      (progn (setq t_path (strcat t_path ch)))

    )

    (setq i (+ i 1))

  )

  (if (/= found T) (setvar "TRUSTEDPATHS" (strcat t_paths DELIMETER path)))

)

(AddToTrustedPaths "E:\\PROJECTS\\AUTOCAD_UTILITY\\SETUP")

(setq AddToTrustedPaths nil)

(command "netload" "E:\\Projects\\AutoCAD_Utility\\Setup\\CAD_Util.dll")