[sathalex]

Привет, нужно написать функцию на Lisp, которая будет добавлять/удалять папку в/из доверенные местоположения AutoCAD.
Например как это реализовано у Lee Mac, вот только его функция добавляет папку для поиска вспомогательных файлов, код:

Код:

[Выделить все]

 
;Функция добавляет пути доступа к вспомогательным файлам;
(vl-load-com)
(defun LM:sfsp+ ( lst )
    (   (lambda ( str lst )
            (if (setq lst
                    (vl-remove-if
                       '(lambda ( x )
                            (or (vl-string-search (strcase x) (strcase str))
                                (not (findfile x))
                            )
                        )
                        lst
                    )
                )
                (setenv "ACAD" (strcat str ";" (apply 'strcat (mapcar '(lambda ( x ) (strcat x ";")) lst))))
            )
        )
        (vl-string-right-trim ";" (getenv "ACAD"))
        (mapcar '(lambda ( x ) (vl-string-right-trim "\\" (vl-string-translate "/" "\\" x))) lst)
    )
)
;;;вызов функции;;;
(LM:sfsp+ '("путь к папке"))

Кто заинтересовался прошу связаться со мной по эл. почте sathalex"собака"mail"точка"ru для уточнения сроков и оплаты!!!

[sathalex]

Вопрос снят!!!