Schöck
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Создать вложенный каталог

Создать вложенный каталог

Ответ
Поиск в этой теме
Непрочитано 20.10.2020, 20:45 #1
Создать вложенный каталог
olga87
 
Регистрация: 28.05.2007
Сообщений: 132

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста, как исправить код ниже, чтобы он работал с подкаталогом "C:\\Folder1\\Folder" (т.е. вместо "C:\\Folder1" работало "C:\\Folder1\\Folder")?
Заранее спасибо!

Код:
[Выделить все]
  (setq my_tool_path "C:\\Folder1")
  (setq my_tool_path_filename "1.txt")
  (setq my_tool_path_filename_full (strcat my_tool_path "\\" my_tool_path_filename))

  (setq file_paths_read_list nil)
  (if (null (vl-file-directory-p my_tool_path))
    (vl-mkdir my_tool_path)
      (cond
        (
          (findfile my_tool_path_filename_full)
            (setq file (open (princ my_tool_path_filename_full) "r"))
            (while (setq path_line_read (read-line file))
              (setq file_paths_read_list (append file_paths_read_list (list path_line_read)))
              (princ path_line_read)
            )
            (close file)
        )
        (
          t
        )
      )
  )
Просмотров: 373
 
Непрочитано 20.10.2020, 20:54
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 37,700


Код:
[Выделить все]
 (defun _kpblc-dir-create (path / tmp) ;|
*    Гарантированное создание каталога.
*    Параметры вызова:
  path  создаваемый каталог
|;
  (cond ((vl-file-directory-p path) path)
        ((setq tmp (_kpblc-dir-create (vl-filename-directory path)))
         (vl-mkdir (strcat tmp
                           "\\"
                           (vl-filename-base path)
                           (cond ((vl-filename-extension path))
                                 (t "")
                                 ) ;_ end of cond
                           ) ;_ end of strcat
                   ) ;_ end of vl-mkdir
         (if (vl-file-directory-p path)
           path
           ) ;_ end of if
         )
        ) ;_ end of cond
  ) ;_ end of defun
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 21.10.2020, 06:21
#3
olga87


 
Регистрация: 28.05.2007
Сообщений: 132


Спасибо!
olga87 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Создать вложенный каталог

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Revit: как создать сварной арматурный каркас? extraneous Revit 42 28.12.2016 05:52
Solidworks 2014. Как создать выпадающий список? voverrr SolidWorks 1 18.02.2016 16:27
Каталог GraphicsCache автоматом создаются файлы rtyu AutoCAD 3 17.08.2015 09:55
Как в SCAD создать группу нагружений из загружений? МишаИнженер SCAD 1 21.08.2011 05:30
Как создать каталог в Лиспе nik_mb LISP 5 23.03.2009 23:05