Выравнивание размеров в автокаде

Выравнивание выносных линий

Выберите размеры для выравнивания выносных линий:
Выбор размеров

Первая точка линии выравнивания:
Указать точку

Укажите вторую точку линии выравнивания:
Указать точку

Выравнивание размерных линий

Выберите размеры для выравнивания:
Выбор размеров

Первая точка линии выравнивания:
Указать точку

Укажите вторую точку линии выравнивания:
Указать точку

Выравнивание размеров по линии

Подскажите, пожалуйста, лисп для выравнивания точек привязки размеров по линии.

Просмотров: 12915
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702

Каких размеров: линейных (поворачиваемых или выравниваемых), угловых, ординатных?
Каких точек именно: выделите размер любой и посмотрите сколько «ручек» у него подсветится, о какой из них идет речь?
Рисунок или, еще лучше, пример в dwg будет нелишним.

Регистрация: 11.05.2005
Сообщений: 6,991
Посмотри тему Вертикальная выноска линейного размера может чего подберешь
__________________
Как использовать код на Лиспе читаем здесь
Последний раз редактировалось VVA, 20.07.2012 в 09:00 .
Регистрация: 14.10.2010
Пермский край
Сообщений: 1,557

Есть надстройка для автокада (бесплатная) ModPlus. В ней есть такая функция. Правда работает она начиная с 2010 версии автокада.

Регистрация: 12.06.2010
Липецк, Москва
Сообщений: 534
Сообщение от Alkor527

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

О ModPlus я знаю. но хотелось бы что то на Lisp.

ЗЫ. Спасибо за ответы. Не ожидал такой оперативности.

Регистрация: 12.06.2010
Липецк, Москва
Сообщений: 534
Сообщение от Yarch
О ModPlus я знаю. но хотелось бы что то на Lisp.

(vl-load-com) (defun mp-dim-justify ( / sel i dim pt1 pt2 newpt line oldpt ed space) (gc) (setq space (mp-get-activespace)) (princ "\nВыберите линейные размеры для выравнивания: ") (setq sel (ssget '((0 . "*DIMENSION"))) i 0) (if (not (null sel)) (progn (initget 1) (setq pt1 (trans (getpoint "\nУкажите первую точку линии выравнивания: ") 1 0)) (initget 1) (setq pt2 (trans (getpoint pt1 "\nУкажите вторую точку линии выравнивания: ") 1 0)) (setq line (vla-addLine space (vlax-3d-point pt1) (vlax-3d-point pt2))) (Repeat (sslength sel) (setq dim (vlax-ename->vla-object (ssname sel i))) (if (or (= (vla-get-ObjectName dim) "AcDbRotatedDimension") (= (vla-get-ObjectName dim) "AcDbAlignedDimension")) (progn (setq ed (entget (ssname sel i)) oldpt (trans (cdr (assoc 10 ed)) 1 0)) (setq newpt (trans (vlax-curve-getClosestPOintTo line oldpt t) 1 0)) (setq ed (subst (cons 10 newpt) (assoc 10 ed) ed)) (entmod ed) ); progn ); if (vla-Update dim) (setq i (1+ i)) ); repeat ); progn ); if (vla-Delete line) ); defun (defun mp-ExtensionLine-justify ( / sel i pt1 pt2 newpt1 newpt2 oldpt1 oldpt2 ed space) (gc) (setq space (mp-get-activespace)) (princ "\nВыберите линейные размеры для выравнивания выносных линий: ") (setq sel (ssget '((0 . "*DIMENSION"))) i 0) (if (not (null sel)) (progn (initget 1) (setq pt1 (trans (getpoint "\nУкажите первую точку линии выравнивания: ") 1 0)) (initget 1) (setq pt2 (trans (getpoint pt1 "\nУкажите вторую точку линии выравнивания: ") 1 0)) (setq line (vla-addLine space (vlax-3d-point pt1) (vlax-3d-point pt2))) (Repeat (sslength sel) (setq dim (vlax-ename->vla-object (ssname sel i))) (if (= (vla-get-ObjectName dim) "AcDbRotatedDimension") (progn (setq ed (entget (ssname sel i)) oldpt1 (trans (cdr (assoc 13 ed)) 1 0) oldpt2 (trans (cdr (assoc 14 ed)) 1 0)) (setq newpt1 (trans (vlax-curve-getClosestPOintTo line oldpt1 t) 1 0) newpt2 (trans (vlax-curve-getClosestPOintTo line oldpt2 t) 1 0) ed (subst (cons 13 newpt1) (assoc 13 ed) ed) ed (subst (cons 14 newpt2) (assoc 14 ed) ed)) (entmod ed) ); progn ); if (vla-Update dim) (setq i (1+ i)) ); repeat ); progn ); if (vla-Delete line) ); defun ; Функция получает значение текущего пространства (defun mp-get-activespace ( / space) (if (= (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))) 0) (setq space pspace) (setq space mspace)) space ); defun

Автокад, выравнивание — align

Команда автокад выровнять (Align) – с её помощью можно перемещать, вращать и масштабировать объекты приводя их в соответствие с инженерными требованиями. Эту команду чаще используют при работе в 3D, но ее можно использовать и в 2D режиме. В этом случае команда будет выполнять те же действия – масштабирование, вращение и перемещение объекта. Её особенность в том, что она позволяет проектировщику одновременно выполнять три действия — переместить, повернуть, и масштабировать объект. Давайте разберемся немного подробнее.

Необходимо левую картинку с пазлами привести в соответствие с правой картинкой.

Для этого вызываем команду «Выровнять».

Это можно сделать с помощью набора ее в командной строке (_выровнять), либо на панели инструментов во вкладке «Редактировать» > «3D операции» > «Выровнять».

После чего, в командной строке, автокад предлагает нам «Выберите объекты», который необходимо выровнять.

Затем выбираем «Первую искомую точку» — ту, которую надо переместить.

После первой искомой точки, выбираем «Первую целевую точку» — ту, куда надо переместить первую искомую точку.

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

Третья точка нужна для 3D пространства, поэтому ее игнорируем нажав Enter.

Если объект не нуждается в масштабировании нажимаем «Н» и завершаем команду – Enter.

Если масштабирование требуется, то нажимаем «Д», и завершаем команду — Enter.

И получаем выровненный объект.

Другие материалы по теме:

Растягивание в автокаде
Настраиваем размеры
Аннотативные объекты в автокаде
Автокад копирование свойств объектов «Кисточка»
Автокад, файлы автосохранения

6 комментариев

Уведомление: Аннотативный объект, Автокад. — CadSupport
Уведомление: Программы А.Ривилиса. — CadSupport
Уведомление: Автокад размеры — CadSupport
Уведомление: Сумма длин линий и площадей в Автокаде — CadSupport
Уведомление: Автокад копирование свойств объектов «кисточка» — CadSupport
Уведомление: Горячие клавиши автокад — CadSupport

Добавить комментарий Отменить ответ

Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.

Выравнивание в Автокаде

Выравнивание в Автокаде выполняется с помощью команды ALIGN, позволяющей выполнить одновременно перемещение, поворот и масштабирование объекта.

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

Выравнивание объектов в AutoCAD

Выравнивание объектов выполняется в следующей последовательности:

1. Запустите команду выбрав в верхнем меню Редактировать → 3D-операции → Выровнять (Align) или введите в командную строку ВЫРОВНЯТЬ (_ALIGN).

Выравнивание в Автокаде

2. Далее выберите объект или объекты перемещения и нажмите Enter. В данной команде работает предварительный выбор, если объекты были выбраны этот шаг пропускаем.

3. На запрос «Первая исходная точка» указываем точку на объекте, а на запрос «Первая целевая точка» — точку на базисе относительно которого будет происходить выравнивание. Аналогично кликаем на вторую точку на выравниваемом объекте и указываем с чем ее совместить. При выравнивании объекта в пространстве необходимо будет указать третью точку, если же выравнивание происходит на плоскости нажимаем Enter.

4. Если необходимо масштабирование объекта относительно базиса в командную строку вводим ДА (YES) и нажимаем Enter или выбираем соответствующую опцию по клику правой клавиши мыши.

Координирование растровой подложки

Вот так команда ВЫРОВНЯТЬ (_ALIGN) сводит выравнивание объектов в Автокаде к нескольким кликам.

Она не заменима при загрузке растровых подложек с выравниванием по координатной сетке, или если вы подгружаете проектные решения от смежников. Для координирования подложки необходимо выполнить выравнивание по характерным точкам, например крестам координатной сетки.

Как правило растровые изображения при размножении и сканировании искажаются, поэтому при вставке растровых подложек (планшетов, карт и т. п.) указывайте крайние точки выравнивания для уменьшения смещения.

Полезно. О том как подгрузить планшеты имеющие файлы привязки координат подробно разобрано здесь.

Если вам придется часто пользоваться данной командой, найдите и выведите соответствующую кнопку на панель инструментов, как это сделать, можно прочитать здесь.

Команда Align в Автокаде. Видеоурок

Премьеру видеурока ускорят ваши коментарии…