[mkung]

Добрый день.
В пути поиска вспомогательных файлов печати надо ДОБАВИТЬ еще пути.
Столкнулся с проблемой.
Через окно параметров можно добавить путей сколько угодно и vla-get- выдаст список путей, разделенных точкой с запятой.
Но если попробовать записать такое значение через vla-put-, то вылазит "ошибка Automation: неверный аргумент".
Для чистоты эксперимента набросал маленький лиспик:

Код:

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

 (vl-load-com)
(setq pref_obj (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
(setq pc3 (vla-get-PrinterConfigPath pref_obj))
(princ pc3) (princ "\n")
(vla-put-PrinterConfigPath pref_obj pc3)

Если путей 2 и больше, то vla-put не воспринимает значение, возвращаемое vla-get!!!
Подскажите - как побороть эту напасть.
Заранее благодарен.

P.S. AutoCAD 2014 RUS, Win8 x64

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

mkung, ради интересу: версия AutoCAD?

[mkung]

AutoCAD 2014 RUS, Win8 x64

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

Попробуй работать через (getenv "PrinterConfigDir") и (setenv "PrinterConfigDir")

----- добавлено через ~3 мин. -----
Я попробовал так:

Код:

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

 (vl-load-com)

(defun tt (/ pc3 pref value1 value2 err)
  (setq pc3    (vla-get-printerconfigpath
                 (setq pref (vla-get-files
                              (vla-get-preferences (vlax-get-acad-object))
                              ) ;_ end of vla-get-files
                       ) ;_ end of setq
                 ) ;_ end of vla-get-PrinterConfigPath
        value1 "C:\\Users\\a.kulik\\appdata\\roaming\\autodesk\\autocad 2014\\r19.1\\rus\\plotters"
        value2 "d:\\001"
        ) ;_ end of setq

  (foreach item (list pc3 value2 value1 (strcat value1 ";" value2))
    (if (vl-catch-all-error-p
          (setq err (vl-catch-all-apply
                      (function
                        (lambda ()
                          (vla-put-printerconfigpath pref item)
                          ) ;_ end of lambda
                        ) ;_ end of function
                      ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
          ) ;_ end of vl-catch-all-error-p
      (progn
        (princ (strcat "\nError setting to value \"" item "\" : " (vl-catch-all-error-message err)))
        (if (vl-catch-all-error-p
              (setq err (vl-catch-all-apply
                          (function
                            (lambda ()
                              (setenv "PrinterConfigDir" item)
                              ) ;_ end of lambda
                            ) ;_ end of function
                          ) ;_ end of vl-catch-all-apply
                    ) ;_ end of setq
              ) ;_ end of vl-catch-all-error-p
          (princ (strcat "\nError setting (SETENV) to value \"" item "\" : " (vl-catch-all-error-message err))
                 ) ;_ end of princ
          (princ (strcat "\nSuccess setting (SETENV) to value \"" item "\""))
          ) ;_ end of if
        ) ;_ end of progn
      (princ (strcat "\nSuccess setting to value \"" item "\""))
      ) ;_ end of if
    ) ;_ end of foreach
  (princ)
  ) ;_ end of defun

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

Причина, по которой не работает описана здесь: Как установить путь к двум и более каталогам конфигурации принтеров (PrinterConfigPath) при помощи AutoCAD .NET API?
Там есть пример кода, но на C#/VB.NET. Смысл тот же, что и у Кулик Алексей aka kpblc, т.е. использование (getenv ...) и (setenv ...)

О! Нашел аналогичную тему с кодом на lisp: Простая альтернатива использованию COM-объекта Preferences в AutoCAD

[mkung]

Спасибо.
Удачно я решил переходить на работу с объектной моделью...