Допустим у Вас возникла необходимость повернуть сразу несколько объектов в AutoCAD, да так чтоб они вращались вокруг собственного центра, т. е. по сути остались на своем месте и развернулись либо вверх тормашками на 180° ну или на любой другой угол.
Примечание. Как выполнить простой поворот объекта в AutoCAD читайте здесь.
Стандартный способ вращения объектов в Автокаде позволяет развернуть их лишь вокруг одного центра, ну или если дело касается блоков или текстов, то можно указать определенный угол поворота всему множеству объектов, при этом вращение будет происходить вокруг точки вставки. Эта ситуация в частности хорошо наблюдается при работе с топографическими планами, когда скажем Вы работаете в CREDO, а затем импортируете планы в Автокад. После того как Вы растащили все надписи, подписи коммуникаций, отметки рельефа в модели и стали разбивать чертеж на листы выясняется, что отметки или подписи проектных горизонталей повернуты вверх тормашками, и при повороте текста через окно свойств, все подписи опять накладываются друг на друга и приходиться разносить их заново ну или оставлять так как есть.
Дак как же выйти из такой ситуации? Все очень просто! Берем и устанавливаем данный Лисп.
1. Качаем архив с lisp для суммирования длин в AutoCAD здесь.
2. Распаковываем архив и сохраняем lisp файлы в папочку где хранятся все наши приложения, а если такой еще нет например в D:\MyLisp. В архиве будут находится два файла MRot.lsp и srot.lsp, оба Лисп рабочие, только в MRot.lsp не работает опция Point, и на запрос Select Rotation Mode (Выберите способ вращения) нажимаем Enter, тем самым выбираем метод "Center" вокруг собственного центра объекта.
3. Запускаем AutoCAD и устанавливаем любой понравившийся Lisp стандартным способом. Если не знаем как, читаем здесь.
4. Ну все Лиспом можно пользоваться, набираем в командной строке MRot или srot в соответствии с тем файлом, что устанавливали и следуем запросам (работает предварительный выбор).
5. Ну и на последок для вывода команды с кнопки, создаем ее стандартным способом и в поле макрос пишем следующее в соответствии с тем файлом, что устанавливали:
^C^C(if (null C:MRot)(load "MRot"));MRot; - для MRot.lsp.
^C^C(if (null C:srot)(load "srot"));srot; - для srot.lsp.
Полезно. Если не знаем как создать свою кнопку читаем здесь.
Смотрите уже скоро тут…
Если информация была полезной