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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Программная настройка AutoCAD, как это делается?

Программная настройка AutoCAD, как это делается?

Ответ
Поиск в этой теме
Непрочитано 23.01.2009, 16:34 2 |
Программная настройка AutoCAD, как это делается?
Krieger
 
инженер (КМ)
 
Красноярск
Регистрация: 30.10.2004
Сообщений: 3,825

Программная настройка 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
__________________
Делай хорошо, плохо само получится.

Последний раз редактировалось Krieger, 02.02.2012 в 14:35. Причина: Что в итоге получилось
Просмотров: 75261
 
Непрочитано 09.09.2009, 10:14
#41
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,535
<phrase 1= Отправить сообщение для wetr с помощью Skype™


Цитата:
Кстати, забыл сказать, в предыдущем коде еще копируется aws файл, в котором хранятся настройки для палитры инструментов. Т.е. чтобы создать свою палитру достаточно куда надо прописать адреса в настройках, что делается загрузкой профиля, а вот чтобы создать свою группу в палитрах, сделать её текущей и настроить расположение кнопок, нужно еще скопировать в папку профиля еще и этот файлец aws.
kr_Load - это мультизагрузчик лисп-файлов?
Блин, где взять .aws?
После чтения справки, нашел только в архиве, после экспорта настроек автокада (Migrate Custom Settings).
Про палитры - самое главное. У меня там почти все сидит.

Как я понял порядок действий:
1. Копируем все *.lsp файлы, картинки кнопок в сетевую папку (допустим \\server\cad\profile)
2. Сохраняем *.arg файл профиля туда же
3. Сохраняем *.cui файл туда же (кстати, где взять чистый cui)
4. Сохраняем *.xtp файлы экспорта палитр и *.xpg файлы экспорта групп (?)
5. Сохраняем *.aws с настройками палитр туда же (кстати, в справке сказано, что он подойдет только для экспорта на комп с аналогичным автокадом - предварительно нужно всем одинаковый кад ставить)
6. Закидываем в кад kr_Load.lsp
7. Перегружаем кад.
8. Идем за ящиком пива для Krieger
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Непрочитано 09.09.2009, 10:24
#42
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,204


Цитата:
Сообщение от Krieger Посмотреть сообщение
Ну да. Собственно все настройки, вплоть до настройки правой кнопки мышки, цвета фона или даже программы для текста (internal или встроенный) все храниться в файле профиля. Ну и разумеется все адреса путей поддержки.
Здесь присутствует небольшой косяк. Если переносишь свои настройки с русского на английский Автокад или наоборот, то в профиле-то остаётся название редактора на чуждом языке. И как следствие этот редактор не запускается.

Поэтому в аналогичном лисп-файле для переноса настроек у меня просто прописано:
Код:
[Выделить все]
;;;текствый редактор - встроенный. Специально для локализованного Автокада
(setvar "MTEXTED" ".")
Так срабатывает для любого Автокада
Makswell вне форума  
 
Автор темы   Непрочитано 09.09.2009, 10:42
#43
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Цитата:
Сообщение от wetr Посмотреть сообщение
kr_Load - это мультизагрузчик лисп-файлов?
Ну мульти не мульти, просто аналог функции load, можно и без неё обойтись.
Код:
[Выделить все]
(defun kr_Load (lsp)
(if (setq full_name_lsp (findfile lsp)) 
      (if 
        (equal (load full_name_lsp "Failed") "Failed") 
         (princ 
           (strcat 
             "\nПрограмма \n" 
             full_name_lsp 
             "\nне может быть загружена! Возможно она испорчена!" 
           ) ;_ end of strcat 
         ) ;_ end of princ 
        ;;Это сообщение для отладки. Можно закомментировать 
         (princ 
           (strcat 
             "\nПрограмма \n" 
             full_name_lsp 
             "\nзагружена" 
           ) ;_ end of strcat 
         ) 
      ) ;_ end of IF 
              (princ 
           (strcat 
             "\nПрограмма \n" 
             lsp 
             "\nне найдена!" 
           ) ;_ end of strcat 
         ) ;_ end of princ 

    ) ;_ end of if
  )
Цитата:
Блин, где взять .aws?
Вот тут он сидит:
C:\Documents and Settings\<имя юзера>\Application Data\Autodesk\AutoCAD 2008\R17.1\enu\Support\Profiles\<название профиля в каде>\Profile.aws
Т.е. настраиваем кад как надо, потом его от туда и возьмешь уже готовенький. Потом остается только на остальных компах его туда подкидывать.

Цитата:
1. Копируем все *.lsp файлы, картинки кнопок в сетевую папку (допустим \\server\cad\profile)
Ну не знаю, стоит ли все в кучу валить, у меня все по папочкам раскидано
Цитата:
2. Сохраняем *.arg файл профиля туда же
3. Сохраняем *.cui файл туда же (кстати, где взять чистый cui)
Эти у меня тоже в отдельной папке menu.
Цитата:
4. Сохраняем *.xtp файлы экспорта палитр и *.xpg файлы экспорта групп (?)
Нафиг не надо. Я их ни куда не импортирую. Просто копирую в сотаве моей библиотеки папку с палитрами, эта папка прописывается в настройках када и он напрямую с ней работает.
Цитата:
5. Сохраняем *.aws с настройками палитр туда же (кстати, в справке сказано, что он подойдет только для экспорта на комп с аналогичным автокадом - предварительно нужно всем одинаковый кад ставить)
Ну да. Этот файл я взял с 2008-го, ставился он благополучно и на 2009, на 2010-м не пробовал. Ну не встанет поменяешь на новый.
Цитата:
6. Закидываем в кад kr_Load.lsp
Нафига?
Цитата:
7. Перегружаем кад.
Тоже нафига?
Цитата:
8. Идем за ящиком пива для Krieger
А это всегда пожалуйста.

Цитата:
Сообщение от Makswell
Поэтому в аналогичном лисп-файле для переноса настроек у меня просто прописано:
Спасибо, попробую.
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 09.09.2009, 11:13
#44
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,204


К №42. Забыл добавить.
Это прописано естественно после действий по импорту профиля. Иначе при импорте эта настройка опять перепишется.
Makswell вне форума  
 
Непрочитано 09.09.2009, 11:38
#45
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


В Inno Setup компилим инсталяху, юзер ее запускает сам, она производит кастом акада (-ов) в зависимости от установленной версии. Почти весь кастом, кроме библиотеки блоков и стилей для АСА, а также *.pc3 файлов хранится на компе пользователя. Обновления происходят политикой домена при очередном включении компутера юзера... Идет проверка версий файлов на компах юзеров и на моем компе, ну и обновляется то что устарело
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Автор темы   Непрочитано 09.09.2009, 12:09
#46
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


И как в Inno Setup импортировать профиль в кад?
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 09.09.2009, 13:01
#47
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Никак
При установке, прога удаляет все автокадовские ярлыки с рабочего стола пользователя, а вместо них помещает точно такие же, но свои, в которых прописано "C:\Program Files\AutoCAD 2009\acad.exe" /p "C:\AmcCAD\AutoCAD2009\Standards\AmcCAD2009.arg"
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 10.09.2009, 02:34
#48
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,535
<phrase 1= Отправить сообщение для wetr с помощью Skype™


Цитата:
Просто копирую в сотаве моей библиотеки папку с палитрами, эта папка прописывается в настройках када и он напрямую с ней работает
А что такое папка с палитрами? Картинки кнопок, которые появляются после экспорта? Или что то другое?

Цитата:
6. Закидываем в кад kr_Load.lsp

Нафига?
Тьфу ты! Уже запутался. Нужно Kr_AutoSetup забрасывать?
А потом перезагружать...?
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Непрочитано 10.09.2009, 02:40
#49
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Подозреваю, что "нафига" относилось к перезагрузке AutoCAD'a...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 10.09.2009, 07:37
#50
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,535
<phrase 1= Отправить сообщение для wetr с помощью Skype™


Цитата:
Сообщение от acyxou Посмотреть сообщение
В Inno Setup компилим инсталяху, юзер ее запускает сам, она производит кастом акада (-ов) в зависимости от установленной версии. Почти весь кастом, кроме библиотеки блоков и стилей для АСА, а также *.pc3 файлов хранится на компе пользователя. Обновления происходят политикой домена при очередном включении компутера юзера... Идет проверка версий файлов на компах юзеров и на моем компе, ну и обновляется то что устарело
Это совет, или так делается у вас в конторе?
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Автор темы   Непрочитано 10.09.2009, 09:33
#51
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Цитата:
Сообщение от wetr Посмотреть сообщение
А что такое папка с палитрами? Картинки кнопок, которые появляются после экспорта? Или что то другое?
Я имею ввиду папку прописанную в настройках када в строке Tool Palettes File Locations (см. картинку). Чтобы сделать такую же свою и не разбираться чего выдрать из старой папки, сделай все таки один раз экспорт своих палеток; назначь в настройках свою папку, хоть и пока пустую; все палетки исчезнут с палитры; сделай импорт своих, они пропишутся во вновь указанной тобой папке. В дальнейшем именно эту папку и будешь таскать с собой, в ней есть все что необходимо для функционирования палитры, без всяких экспортов/импортов.
Цитата:
Сообщение от wetr Посмотреть сообщение
Тьфу ты! Уже запутался. Нужно Kr_AutoSetup забрасывать? А потом перезагружать...?
Нужно запустить код который производит настройку, а именно импортирует профиль. Настройки применяются сразу без перезагрузок. Перезагружать надо чтоб кад это все запомнил, т.к. если перезагрузку не сделать и продолжить работать и вдруг будет фатал эрор, хрен знает что сохраниться.
Миниатюры
Нажмите на изображение для увеличения
Название: ScreenShot001.jpg
Просмотров: 223
Размер:	65.2 Кб
ID:	25724  
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 10.09.2009, 14:03
#52
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Цитата:
Сообщение от wetr Посмотреть сообщение
Это совет, или так делается у вас в конторе?
Так я делаю у нас в конторе...
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 15.09.2009, 17:40
#53
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,335


Цитата:
Так я делаю у нас в конторе...
У тебе домены есть - счастливый!
Sleekka вне форума  
 
Непрочитано 15.09.2009, 18:44
#54
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Sleekka
Если знаком с vbscript, то можно обновлять файлы на пользовательских компах посредством него
__________________
Users are not stupid, they are busy.
acyxou вне форума  
 
Непрочитано 15.09.2009, 18:48
#55
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


acyxou, хорош томить, покажи пример
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.09.2009, 07:24
#56
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,535
<phrase 1= Отправить сообщение для wetr с помощью Skype™


Krieger, до меня наконец дошло - вариант с импортом профиля подходит только, если настраиваешь компьютер для себя и твой профиль тебя устраивает. Если я настраиваю автокад другим людям, менять профиль не желательно. Т.е. такой вариант не совсем подходит. Тут нужно менять именно пути поддержки на сетевые, где лежат все настройки. Подгружать необходимые лиспы и делать активной нужную палетку.
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)

Последний раз редактировалось wetr, 16.09.2009 в 07:51.
wetr вне форума  
 
Автор темы   Непрочитано 16.09.2009, 07:43
#57
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Ну, у меня всего 2 профиля которые всех устраивают на 90%. В одном профиле цветовая схема с белым экраном в другом с черным. При импорте кнопок все панели инструментов исчезают за ненадобностью, т.к. все они продублированы на палитре инструментов. Единственное что люди иногда подстраивают под себя это настройки правой кнопки мыши, что не долго сделать. Потом я ставлю обычно при первой же настройке када, после его установки.
Импорт профиля - самое простое что можно придумать, причем это самое простое учитывает любые мелочи. Можешь попробовать совместно с профилем поиграться с рабочим пространством.
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 16.09.2009, 11:08
#58
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Кулик Алексей aka kpblc, я просто знаю что так делают и что его админы используют очень широко, сам же я vbscript'ом не владею, но как понимаю должно быть что-то вроде этого:
Код:
[Выделить все]
Dim objFSO, WSHNetwork
Const OverWriteExisting = True
Set objFSO = Createobject("Scripting.FileSystemObject")
Set WSHNetwork = Createobject("Wscript.Network")
strComputer = WSHNetwork.Computername
wsLocation = "\\"& strComputer & "\c$\Temp\"
objFSO.CopyFile "\\server\share\file.txt", wsLocation, OverWriteExisting
Krieger, а как же третий профиль для серого цвета фона )))
Глянь лучше это
Я тоже столкнулся с проблемой подстройки профиля под нужды юзера. Вот что они себе меняют:
  1. Цвет фона
  2. Настройки правой кнопки миши
  3. Некоторые хотят чтоб в заголовке окна выводилось полное имя файла включая путь
  4. Размеры перекрестия (некоторые любят чтоб крестик был на весь экран)
  5. Некоторые настраивают перекрестие так чтоб он не менял свой вид во время активирования какой-либо команды
Считаю что надо ограничиться одним профилем, но создать небольшую программку (желательно с диалоговым окном) в которой бы все эти параметры можно было быстро изменить под себя. А если будет функция экспорта настроек (именно тех что в списке выше) то будет вообще кайф...
__________________
Users are not stupid, they are busy.

Последний раз редактировалось acyxou, 16.09.2009 в 11:30.
acyxou вне форума  
 
Автор темы   Непрочитано 16.09.2009, 12:22
#59
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Наверное можно попробовать считывать и запоминать подобные критические настройки с установленного и раньше настроенного када, потом импортировать профиль и устанавливать по новой то что запомнили.
Только я уже полконторы на черный фон пересадил , только потому что я на черном работаю, а остальным до лампочки. Так что потихоньку переходим на единый стиль
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 16.09.2009, 15:26
#60
acyxou


 
Регистрация: 12.07.2008
Сообщений: 211


Offtop: Krieger, а вообще надо уважать пользователей!
Представь если тебя кто-то завтра жестко заставит чертить на белом фоне... естественно от тебя пойдет негатив в ответ и в следующий раз когда этот человек тебе предложит какую-то новую функциональность или метод работы, то от тебя снова будет идти негатив к принятию чего то нового...
Я сперва тоже был жесток к юзерам, но сейчас всегда стараюсь учитывать их интересы и желания
__________________
Users are not stupid, they are busy.
acyxou вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Программная настройка AutoCAD, как это делается?

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рифмоплетство. Kryaker Разное 554 14.11.2023 11:59
запуск программы из AutoCADа kminas Программирование 19 15.06.2012 13:42
Предложение: Готовые функции Apelsinov Библиотека функций 170 27.06.2010 23:51
Новый драйвер для Phantom AutoCAD OLE/ADI Printer. Как? CyberMan AutoCAD 4 26.04.2009 10:19
Электромагнитная пушка T-Yoke Машиностроение 112 06.08.2008 18:48