Просмотр и редактирование системных переменных и переменных окружения.
Выполнена на Object DCL. ARX файл в архиве.
Список переменных и их описаний в текстовых файлах.
Если какие-то переменных пропущены - можно добавить строку с переменной в файл переменных и соответствующую строку в файл описаний.
Программа должна находиться по путям поиска AutoCAD.
Комментарии
Комментарии могут оставлять только зарегистрированные
участники Авторизоваться
Комментарии
Авторизоваться
; СПИСОК ПЕРЕМЕННЫХ И ИХ ОПИСАНИЙ
(setq error_num 0)
(if (setq find_file (findfile "var_list.txt"))
(progn
(setq opened_file (open find_file "R"))
(setq var_st nil)
(while (setq read_line (read-line opened_file))
(setq var_st (append var_st (list read_line)))
)
(close opened_file)
)
(setq error_num (1+ error_num))
)
(if (setq find_file (findfile "env_list.txt"))
(progn
(setq opened_file (open find_file "R"))
(setq env_st nil)
(while (setq read_line (read-line opened_file))
(setq env_st (append env_st (list read_line)))
)
(close opened_file)
)
(setq error_num (1+ error_num))
)
(if (setq find_file (findfile "var_descript.txt"))
(progn
(setq opened_file (open find_file "R"))
(setq var_end nil)
(while (setq read_line (read-line opened_file))
(setq var_end (append var_end (list read_line)))
)
(close opened_file)
)
(setq error_num (1+ error_num))
)
(if (setq find_file (findfile "env_descript.txt"))
(progn
(setq opened_file (open find_file "R"))
(setq env_end nil)
(while (setq read_line (read-line opened_file))
(setq env_end (append env_end (list read_line)))
)
(close opened_file)
)
(setq error_num (1+ error_num))
)