hytos / DTI_PID / AutoCAD_Utility / Setup / StartUp.scr @ 4e36aaf1
이력 | 보기 | 이력해설 | 다운로드 (738 Bytes)
| 1 | b8562da7 | esham21 | (defun AddToTrustedPaths (path / DELIMETER t_paths len i t_path found ch) |
|---|---|---|---|
| 2 | (setq DELIMETER ";") |
||
| 3 | (setq t_paths (vl-string-trim (strcat " " DELIMETER) (getvar "TRUSTEDPATHS"))) |
||
| 4 | (setq len (strlen t_paths) i 1 t_path "" found nil) |
||
| 5 | (while (and (< i len) (/= found T)) |
||
| 6 | (setq ch (substr t_paths i 1)) |
||
| 7 | (if (or (= ch DELIMETER) (= i len)) |
||
| 8 | (progn (if (= t_path path) (setq found T)) (setq t_path "")) |
||
| 9 | (progn (setq t_path (strcat t_path ch))) |
||
| 10 | ) |
||
| 11 | (setq i (+ i 1)) |
||
| 12 | ) |
||
| 13 | (if (/= found T) (setvar "TRUSTEDPATHS" (strcat t_paths DELIMETER path))) |
||
| 14 | ) |
||
| 15 | (AddToTrustedPaths "E:\\PROJECTS\\AUTOCAD_UTILITY\\SETUP") |
||
| 16 | (setq AddToTrustedPaths nil) |
||
| 17 | (command "netload" "E:\\Projects\\AutoCAD_Utility\\Setup\\CAD_Util.dll") |
