[Krieger]

Программная настройка AutoCAD, как это делается?
Этот пост переправлен из-за неактуальности.
В общем в итоге получилось следующее.
Функцию можно использовать для настройки как чужого компьютера так и своего. Для чужого компа профиль не импортируется, т.е. все прочие настройки кроме прописки адресов остаются на месте. Для своего компа логично импортировать таки профиль, что бы сохранить любые адаптированные под себя мелочи.
Если в файле настроек PathFile есть пункт Profile, то будет производится импорт профиля, тогда функция адреса прописывать не будет, т.к. они хранятся в профиле. Если этого пункта нет, то будут прописываться адреса.
Добавил также возможность копирования своего acad.pgp.

Код:

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

 ;|Kr_AutoSetup - функция для настройки AutoCAD.
FirstPath - начальная часть адреса к файлам настройки када и PathFile
PathFile - файл настроек с пунктами для настройки:
    Profile
    SupportPath
    PrinterConfigPath
    PrinterDescPath
    PrinterStyleSheetPath
    TemplateDwgPath
    SheetSetTemplatePath
    QNewTemplateFile
    PageSetupOverridesTemplateFile
    ToolPalettePath
    AutoSavePath
    ToolPaletteProfile
    MenuFile
    ACADPGP

Функция импортирует профиль если он указан, если нет - прописывает пути соответсвующих настроек. Копирует файлы Profile.aws и acad.pgp, подгружает меню.
Если какого либо пункта нет, он игнорируется. Если указанного пути не существует, он создается.

Пример:
(Kr_AutoSetup "D:" "\\Library\\Parameters\\Menu\\Kr_Paths.txt")
|;

;Kr_FindTextFileNextString - ищет строку по образцу и выдает следующую
(defun Kr_FindTextFileNextString (File String / key line NextString f promt FullProfileAdress FullPGPAdress)
  (setq f (open File "r") key T)
  (while (and key (setq line (read-line f)))
    (if (eq (strcase String) (strcase line))     (setq key nil NextString (read-line f) promt (strcat "\n" String " - found"))
                      (setq promt (strcat "\n" String " - not found"))
    );if
   );while
  (close f)
  (princ promt)
  (if (or (not NextString) (eq NextString "") (wcmatch NextString "* *")) (setq NextString nil))
  NextString
  );defun


(defun Kr_AutoSetup (FirstPath PathFile / files key f subpaths obj ActiveProfile temp_profile)
  (vl-load-com)
  (if (findfile (strcat FirstPath PathFile))
    (progn
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
;проверка наличия профиля
  (if (setq ProfileAdress (Kr_FindTextFileNextString (strcat FirstPath PathFile) "Profile"));есть ли файл профиля в файле настроек
    (if (setq FullProfileAdress (findfile (strcat FirstPath ProfileAdress)))
     (if (not (vl-string-search ".ARG" (strcase FullProfileAdress))) (setq FullProfileAdress nil) (princ "\nфайл с расширением *.arg найден"));if
      (princ "\nФайл " FullProfileAdress " не найден")
    );if
    (setq FullProfileAdress nil)
   );if
(if (not FullProfileAdress);если профиля нет прописываем настройки вручную
  (progn
;поддержка supportpath
  (if (Kr_FindTextFileNextString (strcat FirstPath PathFile) "SupportPath")
    (progn
      (setq f (open (strcat FirstPath PathFile) "r") paths "" subpaths nil key T)
      (while (and key (setq line (read-line f)))
        (if (eq (strcase "SupportPath") (strcase line))
          (progn
                (while (not (eq "" (setq subpaths (read-line f))))
                    (setq paths (strcat paths ";" FirstPath subpaths))
                  (if (not (vl-file-directory-p (strcat FirstPath subpaths))) (vl-mkdir (strcat FirstPath subpaths)))
                );while
                   (setq key nil)
            );progn
          );if
        );while
      (close f)
      (if (not (eq paths "")) (vla-put-supportpath files (strcat (vla-get-supportpath files) paths)) (princ "address SupportPath is not found"))
      );progn
    (princ "\nАдрес SupportPath не найден")
    );if
;стили печати PrinterStyleSheetPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterStyleSheetPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterStyleSheetPath files paths))
    (princ "\nАдрес PrinterStyleSheetPath не найден"));if
;папка шаблонов TemplateDwgPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "TemplateDwgPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-TemplateDwgPath files paths))
    (princ "\nАдрес TemplateDwgPath не найден"));if
;шаблон для новых файлов QNewTemplateFile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "QNewTemplateFile")))
    (vla-put-QNewTemplateFile files paths) (princ "\nАдрес QNewTemplateFile не найден"));if
;шаблон для новых листов PageSetupOverridesTemplateFile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PageSetupOverridesTemplateFile")))
    (vla-put-PageSetupOverridesTemplateFile files paths) (princ "\naddress PageSetupOverridesTemplateFile не найден"));if
;папка с палитрами ToolPalettePath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "ToolPalettePath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-ToolPalettePath files paths))
    (princ "\nАдрес ToolPalettePath не найден"));if
;папка для файлов автосохранения AutoSavePath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "AutoSavePath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-AutoSavePath files paths))
    (princ "\nАдрес AutoSavePath не найден"));if
;папка для файлов кофигураций принтеров PrinterConfigPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterConfigPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterConfigPath files paths))
    (princ "\nАдрес PrinterConfigPath не найден"));if
;папка для PMP файлов (настройка границ печати) PrinterDescPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterDescPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterDescPath files paths))
    (princ "\nАдрес PrinterDescPath не найден"));if
  );progn
);if
  
;профиль палитры ToolPaletteProfile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "ToolPaletteProfile")))
    ;;копируем профиль палитры
    (progn
      ;;создаем временный профиль
    (vla-CopyProfile (setq obj (vla-get-Profiles (vla-get-preferences (vlax-get-acad-object))))
               (setq ActiveProfile (vla-get-ActiveProfile (vla-get-Profiles (vla-get-preferences (vlax-get-acad-object)))))
               (setq temp_profile (strcat "Prof_tmp_" (substr (rtos (getvar "CDATE") 2 8) 10 8))))
    (vla-put-ActiveProfile obj temp_profile)
      ;;импортируем профиль
      (if FullProfileAdress
    (progn
            (vla-ImportProfile obj (vl-filename-base FullProfileAdress)  FullProfileAdress :vlax-true)
        (setq ActiveProfile (vl-filename-base FullProfileAdress))
    );progn
      );if
      ;;удаляем старый профиль палитры
      (vl-file-delete
            (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
            "support\\Profiles\\" (vl-string-trim "<>" ActiveProfile) "\\Profile.aws")
        );vl-file-delete
      ;;копируем профиль палитры
        (if
      (vl-file-copy
            paths
            (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
          "support\\Profiles\\" (vl-string-trim "<>" ActiveProfile) "\\Profile.aws")
        );vl-file-copy
      (princ "\nProfile.aws - найден")
      (princ "\nProfile.aws - не найден")
      )
      ;;папка шаблонов для подшивок SheetSetTemplatePath
      (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "SheetSetTemplatePath")))
      (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths))
      (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" ActiveProfile "\\General")
                          "SheetSetTemplatePath" paths));;progn
      (princ "\nАдрес SheetSetTemplatePath не найден"));;if
      ;;возвращаем активный профиль и удаляем временный
      
          (vla-put-ActiveProfile obj ActiveProfile)
          (vla-DeleteProfile obj temp_profile)
        (vla-put-TextEditor files "");Текстовый редактор сбрасываем на встроенный
    );progn
    (princ "\nАдрес ToolPaletteProfile не найден"));if
;загрузка меню MenuFile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "MenuFile")))
    (if (vl-file-size paths)
      (if (menugroup (vl-filename-base paths))
        (progn
          (vla-unload (vla-Item (vla-get-MenuGroups (vlax-get-acad-object)) (vl-filename-base paths)))
          (vla-load (vla-get-MenuGroups (vlax-get-acad-object)) paths :vlax-false)
        );progn
          (vla-load (vla-get-MenuGroups (vlax-get-acad-object)) paths :vlax-false)
        );if
      (princ (strcat "\n" paths " - не найден"))
      );
       (princ "\nАдрес MenuFile не найден"));if
;копирование acad.pgp

  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "ACADPGP")))
    (if (setq FullPGPAdress (findfile paths))
     (if (vl-string-search "ACAD.PGP" (strcase FullPGPAdress))

       (progn
          ;;удаляем старый acad.pgp
          (vl-file-delete
                (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
                "support\\acad.pgp")
            );vl-file-delete
          ;;копируем acad.pgp
            (if
          (vl-file-copy
                FullPGPAdress
                (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
                "support\\acad.pgp")
              );vl-file-copy
          (princ "acad.pgp найден")
              (princ "acad.pgp не найден")
        );if
     );progn
       
       (princ (strcat "\nНеправильный формат файла" FullPGPAdress))
      );if
      (princ "\nФайл " FullPGPAdress " не найден")
    )
    (princ "\nАдрес ACADPGP не найден")
    );if

  (princ "\nНастройка завершена")
  (alert "Настройка завершена.\nДля сохранения настроек рекомендуется перезагрузить AutoCAD")
  );progn
    (princ (strcat "\nФайл настроек " FirstPath PathFile " не найден"));
    );if
  (princ)
);defun

Пример файла настроек для чужих компов:

Код:

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

SupportPath
\Library\Parameters\Blocks
\Library\Parameters\Font
\Library\Parameters\Icons
\Library\Parameters\Library_Type
\Library\Parameters\LibraryBlock
\Library\Parameters\Lisp
\Library\Parameters\Lisp\PlineModify
\Library\Parameters\Table

PrinterConfigPath
\Library\Parameters\PlotStyles

PrinterDescPath
\Library\Parameters\PlotStyles

PrinterStyleSheetPath
\Library\Parameters\PlotStyles

TemplateDwgPath
\Library\Parameters\Template\

SheetSetTemplatePath
\Library\Parameters\Template\

QNewTemplateFile
\Library\Parameters\Template\AutoCAD_Beginning_Black.dwt

PageSetupOverridesTemplateFile
\Library\Parameters\Template\AutoCAD_Beginning_Black.dwt

ToolPalettePath
\Library\Parameters\Palette\

AutoSavePath
\AutoSaveAutoCAD

ToolPaletteProfile
\Library\Parameters\Menu\Profile.aws

MenuFile
\Library\Parameters\Menu\Krieger.cui

Пример файла настроек для своего компа:

Код:

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

Profile
\Library\Parameters\Menu\Krieger.arg

AutoSavePath
\AutoSaveAutoCAD

ToolPaletteProfile
\Library\Parameters\Menu\Profile.aws

MenuFile
\Library\Parameters\Menu\Krieger.cui

ACADPGP

[acyxou]

Ребята, а вы пробовали открыть экспортированный профиль автокада в блокноте?

[Krieger]

shartal
Вроде дошло, посмотрю что можно сделать.

acyxou
Пробовал. А что?

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

Обычный reg-файл. Другой вопрос, что там могут быть не всегда очевидные моменты

[wetr]

Krieger, последний вариант лиспа у меня выдает ошибку где-то среди

Код:

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

;папка для файлов автосохранения AutoSavePath
   (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "AutoSavePath")))
     (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-AutoSavePath files paths))
     (princ "\nАдрес AutoSavePath не найден"));if
  
;папка для файлов кофигураций принтеров PrinterConfigPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterConfigPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterConfigPath files paths))
    (princ "\nАдрес PrinterConfigPath не найден"));if
;;;папка для PMP файлов (настройка границ печати) PrinterDescPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterDescPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterDescPath files paths))
    (princ "\nАдрес PrinterDescPath не найден"));if

Код:

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

Command: _appload START.lsp successfully loaded.


Command:
Profile - not found
SupportPath - found
PrinterStyleSheetPath - found
TemplateDwgPath - found
QNewTemplateFile - found
PageSetupOverridesTemplateFile - found
ToolPalettePath - found
PrinterConfigPath - found
PrinterDescPath - found; error: bad argument type: stringp nil

Command:

Если за комментировать приведенные строки - настройка проходит на ура
Я раньше этим не заморачивался, а сейчас захотелось на сети прописать настройки нестандартных форматов PDF/DWF. А не тут-то было. У тебя работает?

[Makswell]

Тоже спрошу, раз уж тема всплыла. Также пытаюсь осуществить программную настройку. От импорта профиля я в итоге отказался, т.к. это хоть и самое простое решение, но отнюдь не самое гибкое.

В итоге всё (что нужно) получилось настроить программно. Кроме групп инструментальных палитр. Как сгруппировать инструментальные палиты программно? Кто-нибудь пытался это сделать? Может непосредственной правкой файла профиля *.aws, может импортом файла *.xpg, в который заранее экспортирована группа, может ещё как-нибудь?

[Krieger]

Сообщение от wetr Если за комментировать приведенные строки - настройка проходит на ура Я раньше этим не заморачивался, а сейчас захотелось на сети прописать настройки нестандартных форматов PDF/DWF. А не тут-то было. У тебя работает?

У меня работает. Проверял на всех компьютерах которые я встречал на своем пути. Это все компы в моей организации и несколько домашних. Кстати, работает и на Windows7 и на AutoCAD2009. Покажи свой файл настроек.

В итоге всё (что нужно) получилось настроить программно. Кроме групп инструментальных палитр. Как сгруппировать инструментальные палиты программно? Кто-нибудь пытался это сделать? Может непосредственной правкой файла профиля *.aws, может импортом файла *.xpg, в который заранее экспортирована группа, может ещё как-нибудь?

Ну я же реализовал это. У меня все настраивается. В файле настроек есть такая строка:

Код:

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

ToolPaletteProfile
\Library\Parameters\Menu\Profile.aws

А в коде это:

Код:

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

      ;;копируем профиль палитры
        (if
      (vl-file-copy
            paths
            (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
          "support\\Profiles\\" (vl-string-trim "<>" ActiveProfile) "\\Profile.aws")
        );vl-file-copy
      (princ "\nProfile.aws - найден")
      (princ "\nProfile.aws - не найден")
      )

Т.е. сначала настраиваешь палитры как тебе угодно вручную. Потом копируешь себе готовенький файл aws и прописываешь его адрес в файле настроек. На другом компе соответственно код после установки путей доступа скопирует этот aws куда надо. И все заработает.

[Makswell]

Krieger, спасибо!

[acyxou]

Сообщение от Makswell В итоге всё (что нужно) получилось настроить программно. Кроме групп инструментальных палитр. Как сгруппировать инструментальные палиты программно? Кто-нибудь пытался это сделать? Может непосредственной правкой файла профиля *.aws, может импортом файла *.xpg, в который заранее экспортирована группа, может ещё как-нибудь?

Я бы не рекомендовал заморачиваться с файлом AWS. Группировать палитры очень удобно самым простым способом:
1. создать каталог ToolPalettes, в нем подкаталоги (это будут ваши подгруппы), например "ОВ", "ВК", "ГП", "АР" и т.д.;
2. далее идем в OPTIONS -> вкладка Files -> Tool Palettes Search Path, устанавливаем там один единственный путь "ваш\путь\ToolPalettes\ОВ", применяем закрываем options;
3. открываем Tool Palettes в акаде, настраиваем их в соответствии с подгруппой (ОВ), можно воспользоваться экспортом/импортом из выших уже существующих палеток;
4. затем, создаете кнопочку для данной группы палеток с макросом: ^C^CToolPalettesClose;*_toolpalettepath;"ваш\\путь\\ToolPalettes\\ОВ";ToolPalettes
5. далее повторяете пункты 2-4 для остальных папок(подгрупп) в каталоге ToolPalettes;
6. можно немножко заморочитmся и переключать палетки лиспом подобного содержания:

Код:

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

(defun C:TP_OV (/ path)
(command "_ToolPalettesClose")
(setq path
  (strcat
  ваш\\путь\\ToolPalettes\\ОВ"
 )
)
(vla-put-ToolPalettePath
(vla-get-files (vla-get-preferences (vlax-get-acad-object)))
path
)
(command "_ToolPalettes")
)

Плюс данного метода еще и в том, что разместив этот каталог с палетками в локальной сети, ваши коллеги смогут также как и вы иметь к ним доступ. Главное чтоб у них были права только на чтние данного каталога ,)

[Krieger]

Ты наверное немного не в теме, так все и делают обычно. Файл aws сохраняет группы, вид и расположение кнопок на палитре.

[acyxou]

Сообщение от Krieger Файл aws сохраняет группы, вид и расположение кнопок на палитре.

и че?

[wetr]

Сообщение от Krieger У меня работает. Проверял на всех компьютерах которые я встречал на своем пути. Это все компы в моей организации и несколько домашних. Кстати, работает и на Windows7 и на AutoCAD2009. Покажи свой файл настроек.

path.txt

Код:

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

SupportPath
\AutoCAD\2010\settings\arx
\AutoCAD\2010\settings\cfg
\AutoCAD\2010\settings\cuix
\AutoCAD\2010\settings\lisp
\AutoCAD\2010\settings\shx
\AutoCAD\2010\settings\pltools
\AutoCAD\2010\settings\files
\AutoCAD\2010\settings\Kr_Weld
\AutoCAD\2010\settings\lin
\AutoCAD\2010\settings\app\aweld


PrinterConfigPath
\AutoCAD\2010\settings\Plotters

PrinterDescPath
\AutoCAD\2010\settings\Plotters\PMP Files

PrinterStyleSheetPath
\AutoCAD\2010\settings\PlotStyles

TemplateDwgPath
\autocad\2010\templates\sheet

SheetSetTemplatePath
\autocad\2010\templates\sheetset

QNewTemplateFile
\autocad\2010\templates\sheet\шаблон_листа.dwt

PageSetupOverridesTemplateFile
\autocad\2010\templates\sheet\шаблон_листа.dwt

ToolPalettePath
\AutoCAD\2010\settings\ToolPalette

ToolPaletteProfile
\AutoCAD\2010\settings\ToolPaletteProfile

MenuFile
\AutoCAD\2010\settings\cuix\corp_01.cuix

START.lsp

Код:

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

(load "t:\\autocad\\2010\\settings\\lisp\\kr_autosetup.lsp")
(Kr_AutoSetup "T:" "\\autocad\\2010\\settings\\cfg\\paths.txt")

[Makswell]

acyxou, интересное и простое решение, не знал о таком и сам вот не додумался никак. Мне это нравится. Пожалуй, всё же возьму именно его на вооружение. Спасибо.

[Krieger]

Сообщение от acyxou и че?

А то, что твой способ решает проблему только с группировкой палеток, а с остальным нет.

Wetr

PrinterDescPath \AutoCAD\2010\settings\Plotters\PMP Files

Убери пробел в наименовании каталога. Например:

Код:

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

\AutoCAD\2010\settings\Plotters\PMP_Files

[acyxou]

Сообщение от Krieger А то, что твой способ решает проблему только с группировкой палеток, а с остальным нет.

Разве это настолко принципиально!?
Не проверял лично, но полагаю, что настроив одну "группу" палеток по своему вкусу и нормально закрыв автокад, настройки палеток сохранятся в AWS файле и в следующий раз при открытии этой же группы палеток, настройки ее отображения будут восстановлены (если, конечно, создатель палеток не изменит guid).
Makswell, если будете тестировать мою теорию, то сообщите о результатах...

[wetr]

Krieger, спасибо! Второй раз на те же грабли)))

[Krieger]

Сообщение от acyxou Разве это настолко принципиально!? Не проверял лично, но полагаю, что настроив одну "группу" палеток по своему вкусу и нормально закрыв автокад, настройки палеток сохранятся в AWS файле и в следующий раз при открытии этой же группы палеток, настройки ее отображения будут восстановлены (если, конечно, создатель палеток не изменит guid).

Протестировал на 10 рядов уже давно. Да, если ты настроишь палетку по своему вкусу, выключишь её, перезапустишь кад и включишь вновь эту палетку, то конечно все останется на своих местах, т.к. aws файл уже модифицирован так как надо и более не менялся.
Я говорю про немного другую ситуацию. Создал палетку, настроил отображение кнопок, настроил порядок кнопочек слил её в какую нибудь группу. А теперь её же, уже настроенную, нужно установить еще на 50 компов. А потом она отредактируется, в неё добавится новые кнопки, которые должны быть где то в середине общей массы кнопок и нужно будет её снова установить на уже переустановленные кады 50-ти компов. Вручную гонять все кнопки на всех палетках, чтобы расставить их по порядку на каждом компе ну очень муторно может быть. Хотя можно скопировать aws и не париться.
Для справки. Если aws файл утерян, то порядок кнопок устанавливается в порядке их создания. Т.е. если с нуля её сделать правильно, то для этого aws будет не нужен.

Сообщение от wetr Krieger, спасибо! Второй раз на те же грабли)))

А ты с aws разобрался? Судя по этому:

Код:

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

ToolPaletteProfile
\AutoCAD\2010\settings\ToolPaletteProfile

не разобрался.
В группе ToolPaletteProfile должен быть твой файл профиля палитры "Profile.aws" который будет копироваться в папку типа:

Код:

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

C:\Documents and Settings\Admin\Application Data\Autodesk\AutoCAD 2008\R17.1\enu\Support\Profiles\Unnamed Profile

См. пост №106

[wetr]

Krieger, спасибо! Действительно, так группы сохраняются. Теперь совсем ничего делать не надо будет вручную

[Pavel23]

Makswell: Вот функция импорта профиля. Как она сделана у меня.
===================================================
Приветствую всех категорически!
У меня эта функция импорта профия arg. не фурычит че-то...

Команда: (load "profile_import")
PROFILE_IMPORT

Команда: (profile_import "2011.arg" "N:\\Prof_arg\\2011.arg" :vlax-true) ; ошибка: no function definition: VLAX-GET-ACAD-OBJECT

Может я чего-то не правильно делаю?
Лисп положил в Support, CAD у меня правда 2011, как бороться с этим "no function definition: VLAX-GET-ACAD-OBJECT", подскажите плиз.

[TararykovDG]

Сообщение от Pavel23 Может просветите, че делать то.

Ответ здесь

[Pavel23]

Большое спасибо TararykovDG, все заработало