Выравнивание чертежа по базовым точкам

Здравствуйте, подскажите, пожалуйста, есть ли такая примочка в автокад, чтоб копировать объект на чертеж по НЕСКОЛЬКИМ базовым точкам? А то чертежи повернуты по-разному и очень сложно их совмещать!

 

команда align, только сначала желательно обнулить высоты))

 

Помогите пожалуйста настроить в автокаде необходимую систему координат. Файл не является топосъемкой, одноко известны некоторые координаты чертежа. Слышала, что это каким то образом можно сделать с помощью команды _align (выровнять). Опишите пожалуйста последовательность действий. Заранее благодарю.

 

Читаем справку ВЫРОВНЯТЬ, там даже слишком всё подробно.

 

В инструкции сказано с помощью каких команд осуществляется уравнивание, но не сказано куда вводить нужные координаты

 

А какая именно инструкция имелась ввиду? И о каком уравнивании идет речь?
Ваш вопрос совершенно не понятен.

 

DisneyЧитаем справку ВЫРОВНЯТЬ, там даже слишком всё подробно.
Спасибо за ссылку все получилось!!!

 

плохо работает, в 2006 автокаде, может не то что делаю, поворачивает но не до конца, не на весь угол

 

может что и не то делаешь...
почитай внимательно про эту команду в справке

 

спасибо разобрался,это я натупил

РАБОТАЕТ ВСЕ!!!!!

 

Есть для 2010 примочка что бы откосы рисовать автоматически?

 

Если двумерный откос, смотри в разделе форума CAD-системы ->Программы для AutoCad от ivsem, стр.4, сообщение 66
http://geodesist.ru/forum/index.php?threads/Программы-для-autocad-от-ivsem.4612/page-4

 

Копировать с исходного чертежа ---> 'вставить как блок' в необходимый чертеж ---> Крути верти ---> Взорвать блок ---> Очистить чертеж

 

X-Y-H, может быть! Кому как...

 

Добрый день всем! Скачал лисп - выравнивание отрезков l_align_xy, на отрезках работает, но на полилиниях нет... Така как все чертежи полилиниями начерчены, возникает вопрос, мог бы кто нибудь ссылочку скинуть или этот лисп переделать, чтобы все начало работать с полилиниями. Заранее благодарен!

 

Где скачал? что переделать? к автору Лиспа не пробовал обратится?

 

Честно говоря забыл уже на каком сайте по моему Сапр.. в общем хотелось бы чтобы прога не только отрезки воспринимала, но и полилинии и 3вд линии. Например проект отсканировал, затем через CorelTrace его в эл-й вид его загоняю и в автокад. Но некоторые линии например те же оси здания на плане не прямые линии а чуть чуть кривоватые (они собственно и есть полилинии), вот хотел этой прогой их быстренько повыпрямлять. Вот сам лисп:

;;----------------------------------------------------
;; Программа для выравнивания отрезков по осям X и Y
;; Если отрезки не будут лежать в плоскости МСК
;; результат работы не определен.
;; Автор Александр Ривилис.
;;----------------------------------------------------
(defun C:L_ALIGN_XY ( / ss en e p1 p2 i n dir d dr x y l dl)
(setvar "CMDECHO" 0)
(if (null L_ALIGN_XY_delta_ang) (progn
(setq L_ALIGN_XY_delta_ang 1.0)
)) ;; (if (progn
(setq d (getreal
(strcat "\nМаксимальный угол отклонения от оси в градусах <"
(rtos L_ALIGN_XY_delta_ang 2 3) ">: ")))
(if d (setq L_ALIGN_XY_delta_ang (abs d)))
(setq d (* PI (/ L_ALIGN_XY_delta_ang 180.0)))
(princ "\nВыберите отрезки для выравнивания: ")
(cond
((setq ss (ssget '((0 . "LINE"))))
(setq i 0 n (sslength ss))
(while (< i n)
(setq e (entget (ssname ss i)))
(setq p1 (cdr (assoc 10 e)) p2 (cdr (assoc 11 e)))
(setq l (distance p1 p2)) ;; Длина отрезка
(setq dir (angle p1 p2)) ;; Находим угол с осью X
;; Приводим угол в диапазон 0...2*PI
(if (< dir 0.0) (setq dir (+ (* 2.0 PI) dir)))
(cond
;; Отрезок условно параллелен оси X
((or (equal dir 0.0 d) (equal dir PI d) (equal dir (* 2.0 PI) d))
(setq y (* 0.5 (+ (cadr p1) (cadr p2))))
(setq p1 (list (car p1) y (caddr p1)))
(setq p2 (list (car p2) y (caddr p2)))
(setq dl (* 0.5 (- l (distance p1 p2))))
;; Восстанавливаем длину отрезка
(setq p1 (polar p1 (angle p2 p1) dl))
(setq p2 (polar p2 (angle p1 p2) dl))
(setq e (subst (cons 10 p1) (assoc 10 e) e))
(setq e (subst (cons 11 p2) (assoc 11 e) e))
(entmod e)
)
;; Отрезок условно параллелен оси Y
((or (equal dir (* PI 0.5) d) (equal dir (* PI 1.5) d))
(setq x (* 0.5 (+ (car p1) (car p2))))
(setq p1 (list x (cadr p1) (caddr p1)))
(setq p2 (list x (cadr p2) (caddr p2)))
(setq dl (* 0.5 (- l (distance p1 p2))))
;; Восстанавливаем длину отрезка
(setq p1 (polar p1 (angle p2 p1) dl))
(setq p2 (polar p2 (angle p1 p2) dl))
(setq e (subst (cons 10 p1) (assoc 10 e) e))
(setq e (subst (cons 11 p2) (assoc 11 e) e))
(entmod e)
)
) ;; (cond
(setq i (1+ i))
) ;; endof (while
)
(T
(princ "\nНичего не выбрано, или выбрано что-то не то!")
)
) ;; (cond
(princ)
)

 

А вот автор на DWG.ru
а вот и на Caduser.ru

 

Здесь было обсуждение и решение.