[snb]

Здравствуйте, друзья.

Пришёл работать в организацию, использующую AutoCAD 2002 (ранее я с AutoCAD не работал). В процессе работы возникла следующая проблема: запускаю Автокад, расставляю панели инструментов как мне удобно, закрываю программу, запускаю снова - панели расположены совершенно иначе. Естественно, копия программы запущена только одна, причина не в этом.

Обратился к старожилам, говорят, так и живём, мол, глюк Автокада и ничего с этим не поделать.

Подскажите, это действительно такой непобедимый баг или есть способ борьбы с ним?

P.S. Установил в виртуалке чистый AutoCAD 2002. Попробовал поиграться с панелями. Обнаружил, что после перезапуска панели в одной "строке" компануются ближе друг к другу (если между ними было пустое пространство, то оно исчезает), однако в остальном их расположение не слетает. Х-ммм...

[snb]

Алекс, а Вас не затруднит проверить, значения в реестр сохраняются именно при закрытии программы или же при любом изменении во время работы? У меня-то реестр не меняется никак, самостоятельно проверить не могу.

[Alan]

Сообщение от snb Так как же мне проблему-то победить?

А не проще задать этот вопрос тому специалисту, который делает ваши программки?
Иначе мы пытаемся предвосхитить его действия

[getr]

Можно попробувать пройти по пути C:\Documents and Settings\user2\Application Data\Autodesk\AutoCAD 2005\R16.1\enu\Support (это у меня для 2005-го) и там удалить файлы acad.mns , acad.mnr , acad.mnc (ну или перенести временно в другое место)..при перезапуске автокада они создаются заново.
Можно попробувать так-расставить панели как надо,создать профиль по пути options-> profiles-> Add to list и установить его текущим.

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

mns можно удалять только если рядышком лежит mnu, насколько я помню

[getr]

Всё верно...так он там и лежит рядом.

[snb]

Проделав пару экспериментов, подведу [предварительный] итог.

Сохранение расположения панелей через Tools > Options > Profiles работает! Профиль сохраняется в ветке реестра HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-1:409\Profiles, а расположение панелей для данного профиля - в подразделе Toolbars той же ветки.

На данный момент меня вариант с выбором профиля полностью устраивает. Пусть он не подгружается автоматически (вероятно, стартовый профиль прописан в шаблоне, который я обязан выбрать при начале работы с программой - требования работодателя), но пара кликов меня не утянет.

Искренне благодарю всех участников дискуссии!

[kp+]

Первый вариант кода для затравки:

Код:

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

 (defun c:tbread (/ MG_LIST MG1_LIST  TB1_LIST)
(vl-load-com)
(setq mgs (vla-get-MenuGroups (vlax-get-acad-object)))
  (setq mg_list (list))
  (vlax-for mg mgs
    (progn
      (setq tbs (vla-get-Toolbars mg))
      (setq mg1_list (list (vla-get-name mg)))
      (vlax-for tb tbs
	(progn
	  (setq tb1_list (list
			  (vla-get-name tb)
			  (vla-get-top tb)
			  (vla-get-left tb)			  
			  (vla-get-DockStatus tb)
			  (vla-get-FloatingRows tb)
			  ;(vla-get-Height tb)
			  ;(vla-get-width tb)
			 ) 
	  );eo setq tb1_list
          (setq mg1_list (append mg1_list (list tb1_list)))
        ); eo progn
      );eo vlax-for tb
      (setq mg_list (append mg_list (list mg1_list)))
    );eo progn
  ); eo vlax-for mg
  mg_list
  (vlax-ldata-put "kp" "panels" MG_LIST)
)

(defun c:tbrest (/ MG_LIST MG2_LIST TB2_LIST)
  (vl-load-com)
  (setq mgs (vla-get-MenuGroups (vlax-get-acad-object)))
  (setq MG_LIST (vlax-ldata-get "kp" "panels" nil))
  (if MG_LIST
    (progn
      (vlax-for mg mgs
	(progn
	  (setq MG2_LIST (assoc (vla-get-name mg) MG_LIST))
	  (if MG2_LIST
	    (progn
	      (setq tbs (vla-get-Toolbars mg))
	      (vlax-for tb tbs
		(progn
		  (setq TB2_LIST (assoc (vla-get-name tb) (cdr MG2_LIST)))
		  (if (and TB2_LIST (= (vla-get-visible tb) :vlax-true))
		    (progn
		      (vla-float tb (nth 1 TB2_LIST) (nth 2 TB2_LIST) (nth 4 TB2_LIST))
		      (if (and (/= (nth 3 tb2_list) (vla-get-DockStatus tb))(/= (nth 3 tb2_list) acToolbarFloating))
			(vla-dock tb (nth 3 tb2_list))
		      )
		      (vla-put-top tb (nth 1 TB2_LIST))			
		      (vla-put-left tb (nth 2 TB2_LIST))
		    )
		    ;);eo if and  
		  );eo if TB2_LIST
		);eo progn
	      );eo vlax-for tb tbs
	    );eo progn
	  );eo uf mg2_list
	);eo progn
      );eo vlax-for mg mgs
    );eo progn
  );eo if MG_LIST
)

tbread считывает информацию о панелях и записывает в словарь чертежа, который потом можно сохранить как "шаблон панелей".
tbrest восстанавливает расположение панелей на основе записанной информации.
С "плавающими" панелями работает нормально, т.к. их координаты можно задавать принудительно.
С закрепленными - пока полная ерунда, т.к. там координаты задаются не относительно экрана, а в порядке очередности подачи команды закрепления. Надо будет добавить сортировку перед применением vla-dock ...если получится...и будет не влом...

Если кто захочет протестировать - undo для панелей не работает. Поэтому tbrest желательно запускать в отдельном профиле, не в том, где обычно работаете. Чтобы не восстанавливать с трудом настроенные панели. Можно заранее сохранить копию раздела реестра, указанного в №15. У кого перемешаются закрепленные панели - я предупреждал

[snb]

В общем, рано я обрадовался. Если глобально включать/отключать/перемещать панели, то их новое положение сохраняется, а если перемесить лишь одну - съезжает обратно, словно бы и не переставлял. Ничего не понимаю...

[Alan]

Сообщение от snb стартовый профиль прописан в шаблоне, который я обязан выбрать при начале работы с программой

Профиль в шаблоне НЕ хранится. ИМХО

[Oleg T]

Так-то кроме mnu mns mnl там еще и mnr mnc
https://vunivere.ru/work11667

[snb]

Alan: 1) я же сказал: "возможно"; 2) Так точно не хранится или всё же IMHO?

Oleg T: Спасибо, ознакомлюсь.

[Alan]

Сообщение от snb 2) Так точно не хранится или всё же IMHO?

Убираю ИМХО, вставлял на всякий случай.
Вот что говорит Autodesk https://knowledge.autodesk.com/ru/su...8F729-htm.html
И сопутствующая ссылка https://knowledge.autodesk.com/ru/su...A188C-htm.html
В п.13 я дал вам решение запуска Автокада, которое я использую начиная с Автокад 2000. И оно работает.
Я не вижу всю картину, поэтому написал п.22
Я не вижу файлов автозапуска acad.lsp, acaddoc.lsp, *.mnl
Не вижу вашего шаблона, думаю что это файл *,dwt
Получается мы лечим по фотографии...

[snb]

Alan, я же без "наездов", Вы не сердитесь. Я ведь только начинаю работать с Автокадом, ещё не знаю назначения всех файлов.

Хочу поиграться с сохранением настроек дома, на виртуалке. Для этого проделал следующее:
- утащил с работы "Program Files (x86)\AutoCad 2002", "Program Files (x86)\Common Files\Autodesk Shared\";
- в "%user_profile%\AppData\Roaming\Autodesk\AutoCAD\" вроде как ничего ценного нет, одни ярлыки на недавние файлы, так что брать не стал;
- установил на виртуалку чистый AutoCAD 2002, переименовал новые папаки, на их место скопировал те, что с работы;
- правда, забыл экспортировать и забрать профиль.

Однако, "самописные" панели не появились, хотя в "Program Files (x86)\AutoCad 2002" директории с самописными панелями присутствуют. Что я забыл скопировать? Какие-то ветки реестра?

[Alan]

Я не могу лечить по фотографии!

Сообщение от snb Однако, "самописные" панели не появились, хотя в "Program Files (x86)\AutoCad 2002" директории с самописными панелями присутствуют.

Скорее всего они хранятся в файлах меню, но их надо перекомпилировать.
Запусти на работе команду _menuload и посмотри какие меню подгружаются.

Сообщение от snb Какие-то ветки реестра?

- Что-то меня Гондурас беспокоит!
- А ты его не трогай!!!
-------------
Без обид?

[snb]

Да какие могут быть обиды?! Всё нормально!

_menuload смогу запустить только в понедельник, тогда и сообщу результат. Но хотелось бы знать, что ещё нужно "забрать", чтобы время не терять понапрасну.


P.S. В личку ответил.