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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Добавить пути в toolpalettepath из файла txt и выборочно

Добавить пути в toolpalettepath из файла txt и выборочно

Ответ
Поиск в этой теме
Непрочитано 29.09.2020, 21:05 #1
Добавить пути в toolpalettepath из файла txt и выборочно
olga87
 
Регистрация: 28.05.2007
Сообщений: 142

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

Помогите исправить ошибки в коде ниже, который должен выполнить следующее:
1. Запомнить имеющиеся пути в "oldPath".
2. Из имеющихся путей (oldPath) удалить определенные пути "C:\\путь1" и "C:\\путь2" (если таковые или один из таких путей есть) и сохранить в "newPath" (как новое значение toolpalettepath).
3. К "newPath" (! с проверкой - без дублей, т.е. если есть путь то его не добавлять) добавить путь по умолчанию" (getvar "ROAMABLEROOTPREFIX")\Support\ToolPalette\", также добавить все пути из файла "Testfile.txt"(в котором, например, содержимое "C:\Share;C:\Temp" [без кавычек]) и сохранить в Автокаде.
Заранее спасибо за помощь!

Код:
[Выделить все]
(defun c:test()
(setq Files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
(setq oldPath (vla-get-toolPalettePath Files))

(setq newPath (vl-string-subst "" "C:\\путь1" "C:\\путь2" oldPath))
(vla-put-toolPalettePath Files newPath)

(if (and (setq fn (findfile "C:\\MyToolPalettePaths\\Testfile.txt")) 
         (setq fp (open fn "r"))
    )
  (progn (setq data (read-line fp))
  (close fp)
  )
)

(if (not (vl-string-search data newPath))
  (vlax-put-property (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'Preferences) 'Files) 'ToolPalettePath
    (strcat (vl-string-right-trim ";" newPath) ";" data)
  )
)
(setq newPath nil)
)
Просмотров: 758
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Добавить пути в toolpalettepath из файла txt и выборочно

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Lisp. Проблема после копирование стиля несущего элемента (ADT) из файла молодой человек LISP 1 02.05.2011 22:56
Как присоединить к одному чертежу (из 1ого файла) кусок продолжение (из 2ого)? star282 AutoCAD 13 17.03.2011 12:13
Фатальная ошибка при попытке мониторинга изменения файла настроек. hwd Программирование 7 24.03.2010 23:45
Частичное открытие файла - не активно при открытии файла ADik AutoCAD 4 22.06.2006 07:35
Как добавить в файл чертежа его имя (файла) ? Shura AutoCAD 7 02.12.2003 18:03