[olga87]

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

Помогите исправить ошибки в коде ниже, который должен выполнить следующее:
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)
)