[Startrek]

Уважаемые коллеги!
Кто-нибудь пробовал с помощью VLISP-a устанавливать Enterprise CUI ??
У меня ничего не получилось.
Может кто делал что-то подобное?

[acyxou]

Всем привет!
Помогите с советом, пожалуйста.
Настроил машины пользователей на работу в корпоративной среде таким образом:

• AcadInstall прописывает папки в Support Files, устанавливает custom.cui пользователя в качестве Main CUI и создает корпоративный профайл.

• В самой верхней папке в списке папок Support Files есть папка с acad.lsp и acaddoc.lsp.

• В acad.lsp есть строка на запуск лиспа (load “CUI _load.lsp”), который устанавливает Enterprise.cui в качестве Enterprise CUI, а также подгружает несколько Partial CUI. Естественно, что partial cui подгружаются к custom.cui.

Вот код из CUI_load.lsp :

Код:

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

;;;===========================УСТАНОВКА КОРПОРАТИВНОГО CUI
;;;
(vl-load-com)
(defun whatAcadVer ()
  (if (= 17.2 (atof (substr (getvar "ACADVER") 1 4)))
    (vla-put-EnterpriseMenuFile
      (vla-get-files (vla-get-Preferences (vlax-get-acad-object)))
      (strcat #CADMAN# "\\CUI\\Enterprise172")
    )
    (vla-put-EnterpriseMenuFile
      (vla-get-files (vla-get-Preferences (vlax-get-acad-object)))
      (strcat #CADMAN# "\\CUI\\Enterprise")
    )
  )
)
;;;
(defun c:whatAcadVer ()
  (WhatAcadVer)
  (princ)
) ;_ end of defun
(whatAcadVer)
;;;
;;;
;;;
;;;
;;;
;;;===========================УСТАНОВКА ДОПОЛНИТЕЛЬНЫХ PARTIAL МЕНЮ
;;;
;;;
;;;
(and (not (menugroup "Partial_1"))
     (setq #fil_Partial_1 (findfile "Partial_1.cui"))
     (command "menuload"
	      #fil_Partial_1
     )
)
(and (not (menugroup "Partial_2"))
     (setq #fil_Partial_2 (findfile "Partial_2.cui"))
     (command "menuload"
	      #fil_Partial_2
     )
)
(and (not (menugroup "Partial_3"))
     (setq #fil_Partial_3 (findfile "Partial_3.mnu"))
     (command "menuload"
	      #fil_Partial_3
     )
)
(and (not (menugroup "EXPRESS"))
     (setq #fil_acetmain (findfile "acetmain.cui"))
     (command "menuload"
	      #fil_acetmain
     )
)

Переменная #CADMAN# назначается глобально в acad.lsp как путь к папке с файлами корпоративной кастомизации (О как!) на сервере.
Разные partial cui для разных отделов и в зависимости от того, какой отдел, подгружаются соответствтующие partial cui. Все понятно - все работает!
Однако меня смущает запись в командной строке AutoCAD'a следующего содержания:

Код:

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

Customization file loaded successfully. Customization Group: ACAD
Customization file loaded successfully. Customization Group: CUSTOM
Customization file loaded successfully. Customization Group: PARTIAL_1
Customization file loaded successfully. Customization Group: PARTIAL_2
Customization file loaded successfully. Customization Group: EXPRESS
Regenerating model.
AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

Command:
Customization file loaded successfully. Customization Group: ACAD
Customization file loaded successfully. Customization Group: CUSTOM
menuload
Enter name of customization file to load: 
\\Server\AutoCAD_Resources\CUI\Partial_1.cui
Customization file loaded successfully. Customization Group: PARTIAL_1
menuload
Enter name of customization file to load: 
\\Server\AutoCAD_Resources\CUI\Partial_2.cui
Customization file loaded successfully. Customization Group: PARTIAL_2
menuload
Enter name of customization file to load: 
\\Server\AutoCAD_Resources\CUI\acetmain.cui
Customization file loaded successfully. Customization Group: EXPRESS


AutoCAD menu utilities loaded.

Т.е. AutoCAD сначала загружает все что было загружено в предыдущей сессии, до закрытия программы т.е., а потом снова загружает тоже самое только принудительно.... Соответственно и скорость запуска Акада увеличилась....
Подскажите в чем проблема? Возможно ли оптимизировать как-нибудь мой код в файле CUI_load.lsp чтоб автокад не выполнял его если необходимые меню уже загружены?