Альбомы технических решений и чертежи
VetCAD

Диспетчер переменных

    0 оценок

Alexei_Spirit

размещено: 21 Февраля 2007
Просмотр и редактирование системных переменных и переменных окружения.
Выполнена на Object DCL. ARX файл в архиве.
Список переменных и их описаний в текстовых файлах.
Если какие-то переменных пропущены - можно добавить строку с переменной в файл переменных и соответствующую строку в файл описаний.
Программа должна находиться по путям поиска AutoCAD.

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 1-2 из 2
Alexei_Spirit. , 22 февраля 2007 в 12:36
#1
Прошу прощения за косяки. В начале файла надо изменить имеющиеся строки на следующие:
; СПИСОК ПЕРЕМЕННЫХ И ИХ ОПИСАНИЙ
(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))
)
Alex-R , 07 мая 2008 в 21:43
#2
Лаконично написано, в каком файле менять?
zip

0.49 МБ