Импорт стилей и настроек CIVIL3D LISP

[Александр Панькин]

Коллеги, приветствую всех.

Стоит задача автоматизировать импорт стилей и настроек из шаблона, для последующего использования в autodesk batch utility и вручную.
Написал лист с вызовом из командной строки и указал путь шаблона, но команда проскакивает импортируя 0 стилей и 0 настроек.
Lisp не знаю, но могу написать команды с вызовом через командную строку.
в сети искал, толком ничего не нашел. https://www.3dcadworld.com/aeccimportstyles-and-aeccimportstylesandsettings-undocumented-commands
Подскажите, пожалуйста,  есть ли возможность запустить команду или нет, если да то как?
Заранее благодарен за ответ.

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:AECCIMPORTSTYLESANDSETTINGS_RA()
2.  (command "_textscr")
3.    (setvar "CMDDIA" 0)
4.    (setvar "FILEDIA" 0)
5.    (command "_.qsave")
6.  (command "AECCIMPORTSTYLESANDSETTINGS" "S:\Standart\20181023.dwt" "_Y" " ")
7.  (command "'_.ZOOM" "_E")
8. (setvar "CMDDIA" 1)
9. (setvar "FILEDIA" 1)
10. )

Результат работы лиспа

Извините, вам запрещён просмотр содержимого спойлеров.

[trir]

попробуй IMPORTSTYLESANDSETTINGS
NET Api
StyleBase.ExportTo(Autodesk.AutoCAD.DatabaseServices.ObjectIdCollection styleIds, Autodesk.AutoCAD.DatabaseServices.Database destinationDatabase, Autodesk.Civil.StyleConflictResolverType conflictResolution)

[Александр Панькин]

Спасибо за ответ,
IMPORTSTYLESANDSETTINGS попробовал, ведет себя также.
а Net api еще пока не выучил

Извините, вам запрещён просмотр содержимого спойлеров.

[trir]

видимо нечего импортировать

[Александр Панькин]

ручной импорт с этого файла

Извините, вам запрещён просмотр содержимого спойлеров.

[trir]

укажи версию Civil'а
у меня в 2017 импортирует, но может это от файлов зависит...

[Александр Ривилис]

Александр Панькин,
Обрати внимание на правильное форматирование кода на форуме (у меня в подписи) и соблюдай его!
Замени в пути к файлу символы "\" (в лиспе они должны быть двойными) на "/".

[Александр Панькин]

Коллеги, благодарю, лисп стал работать.
причина была в том, что чертеж на который я ссылался был открыт, после закрытия все стили и настройки импортировались.

[Алексей Кулик]

Как вариант проверки "файл в режиме только чтение или нет" попробуй к файлу применить vl-file-systime. У открытого файла функция вернет nil.

[Александр Ривилис]

Коллеги, благодарю, лисп стал работать.
причина была в том, что чертеж на который я ссылался был открыт, после закрытия все стили и настройки импортировались.

И всё-так почувствуй разницу:

[Алексей Кулик]

В качестве улучшения кода (ну надоело мне работать!)

Код - Auto/Visual Lisp [Выбрать]

1. (vl-load-com)
2.  
3. (defun c:aeccimportstylesandsettings_ra (/ adoc sysvar file)
4.   (if (and (setq file "S:\\Standart\\20181023.dwt") (findfile file) (vl-file-systime file))
5.     (progn (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
6.            (setq sysvar (vl-remove-if-not (function cdr)
7.                                           (mapcar (function (lambda (x / tmp)
8.                                                               (if (setq tmp (getvar (car x)))
9.                                                                 (progn (setvar (car x) (cdr x)) (cons (car x) tmp))
10.                                                                 ) ;_ end of if
11.                                                               ) ;_ end of lambda
12.                                                             ) ;_ end of function
13.                                                   '(("sysmon" . 0) ("cmddia" . 0) ("filedia" . 0))
14.                                                   ) ;_ end of mapcar
15.                                           ) ;_ end of vl-remove-if-not
16.                  ) ;_ end of setq
17.            (vl-catch-all-apply
18.              (function (lambda ()
19.                          (command "_textscr")
20.                          (command "_.qsave")
21.                          (command "AECCIMPORTSTYLESANDSETTINGS" file "_Y" " ")
22.                          (command "'_.ZOOM" "_E")
23.                          ) ;_ end of lambda
24.                        ) ;_ end of function
25.              ) ;_ end of vl-catch-all-apply
26.            (foreach item sysvar (setvar (car item) (cdr item)))
27.            (vla-endundomark adoc)
28.            ) ;_ end of progn
29.     (princ (strcat "\nОшибка : файл \"" file "\" не обнаружен либо открыт!"))
30.     ) ;_ end of if
31.   (princ)
32.   ) ;_ end of defun

[Александр Панькин]

Благодарю, за ответ.
Я сделал топорно, но работает.
После импорта добавил purgestyles и purge по циклу 3 раза, после это qsave и ещё раз importstylesandsettings, только в таком случае стили, которые ранее были установлены по умолчанию для команд затираются.
Но осталась проблема, если стиль применён к объекту - его не удалить.
Как написать на лисп не знаю, поэтому перед запуском лисп переназначаю стиль объектам, и после лиспа на "ничего" ( он есть и в новом и старом шаблоне), а после обновления возвращаю нужный.
Завтра выложу код и отредактирую это сообщение.

[Алексей Кулик]

Сугубо ИМХО.
Работать с вертикальными приложениями из-под лиспа чертовски неудобно. Если есть возможность, переходи на .NET.
P.S. Редактировать пост не надо, зачем?