Парочка полезных макросов

Предлагаю вашему вниманию парочку полезных макросов.
Все мы пользуемся направляющими, обычно "вытягивая" их из "линейки". (Хм, прикольно прозвучало). Как правило, кроме как для этого "линейка" обычно больше и не нужна, хотя, наверняка, найдутся те кто со мной не согласится. Используя макрос CreateGuide, вы можете отключить отображение линеек, увеличив таким образом рабочую область, а направляющие вызывать одной/двумя клавишами.
Макрос работает следующим образом: если не выделен никакой объект, то нажатие клавиши макроса приводит к появлению вертикальной направляющей в месте "мышкиного" курсора (с нажатым шифтом - горизонтальной). Если выделен какой-либо объект, то вертикальная направляющая появляется, проходя через центр выделенного объекта (со шифтом соответственно горизонтальная). При включенном ScrollLock'е независимо от нажатия шифтa сразу появляются две перпендикулярные направляющие. Ну, и если в режиме редактирования узелков выделено два узла, то при вызове макроса направляющая появляется, проходя через эти узлы (не придумал альтернативный вариант для шифта :) ). ДЛя пользования макросом следует "привязать" на него две клавиши, например, "э" и shift+"э".
Второй макрос SwapShapes не столь многофункционален, хотя, уверен, кому-то может и пригодится. Он просто меняет два и более объекта местами, т.е. меняет их положение на листе (ABC-BCA-CAB-ABC), и их порядок относительно друг друга в списке объектов, даже через слои. Полезно, например, для быстрой подстановки в макет каких-то сходных элементов. Макросы писал для X3-го Корела, поэтому насчет совместимости с другими версиями ничего не могу сказать, не проверял. У меня этот макрос на клавишах "Shift-X" (от слова eXchange, обмен)