[snk]

В ACAD2005 у меня была команда "копировать и повернуть". Ее макрос ^C^C$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate;_copy, ^C^C_select;_auto;\_copy;_p;;"0,0";;_rotate;_p;.
А при переходе на 2007-й AutoCAD он не работает.
Подскажите, пожалуйста, что можно сделать. Достаточно часто приходится пользоваться.

[T-Yoke]

Сообщение от snk В ACAD2005 у меня была команда "копировать и повернуть". Ее макрос ^C^C$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate;_copy, ^C^C_select;_auto;\_copy;_p;;"0,0";;_rotate;_p;;). А при переходе на 2007-й AutoCAD он не работает. Подскажите, пожалуйста, что можно сделать. Достаточно часто приходится пользоваться.

А мне в 2005 проще было пользоваться командой "Выровнить". Она и правда теперь не работает в 2007. Почему ее убрали? Теперь приходиться использовать 3D-поворот, который теперь не работает в плоских проекциях, надо обязательно какую-нибудь изометрическую проекцию брать.

[ASLYS]

команда _.MOCORO не подойдет?

[snk]

_.MOCORO удаляет старый объект, а мне надо чтобы остался и старый и создался новый на оределенный угол относительно какой-то точки

[Vova]

SNK> Твой макрос не должен работать в любом автокаде. Там ведь не прописана точка, относительно которой осуществляется поворот. Не вокруг-же 0,0 ? Вот это работает во всех автокадах. Здесь поворот осуществляется вокруг той точки (@) в которой оставили скопированный в первой части макроса объект

Код:

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

^C^C(setq OM (GETVAR "ORTHOMODE"));_ORTHO;_off;_SELECT;\_COPY;P;;@;@;_m;_p;;\\_rotate;_p;;@;\(SETVAR "ORTHOMODE" OM)

T-Yoke> а разве конанда Align это альтернатива комбинации Copy-Rotate? Команда Align прекрасно работает в 2007.
А вот комбинация Copy и Align

^C^C_Select;\_Copy;_Previous;;@;@;_Align;_Previous;;\\\\

[T-Yoke]

Сообщение от Vova T-Yoke> а разве конанда Align это альтернатива комбинации Copy-Rotate? Команда Align прекрасно работает в 2007. А вот комбинация Copy и Align ^C^C_Select;\_Copy;_Previous;;@;@;_Align;_Previous;;\\\\

В общем ты прав, это совсем разные команды. Просто часто поворот приходилось делать не на определенный угол, а по отношению к какому либо объекту. Тут то вместо Rotate Align и используеся.

[snk]

Сообщение от Vova SNK> Твой макрос не должен работать в любом автокаде. Там ведь не прописана точка, относительно которой осуществляется поворот. Не вокруг-же 0,0 ? Вот это работает во всех автокадах. Здесь поворот осуществляется вокруг той точки (@) в которой оставили скопированный в первой части макроса объект Код: [Выделить все] ^C^C(setq OM (GETVAR "ORTHOMODE"));_ORTHO;_off;_SELECT;\_COPY;P;;@;@;_m;_p;;\\_rotate;_p;;@;\(SETVAR "ORTHOMODE" OM)

В 2005 автокаде работает, а в 2007 - нет.
В 2007 предлагает выбрать объекты, странно, что 2 раза (после первого раза сбрасывает и говорит, что неверный выбор), потом просит базовую точку и далее как копирование, а повор не работает (нет запроса на поворот).
Может это из-за того, что у меня оффициальная русская версия?
Мой макрос тоже работал в 2005, только чуть по другому. Базовая точка выбиралась 1 раз при копированиии, поворачивалось относительно нее же.

[ASLYS]

есть еще вариант из G-Tools, у меня работает
[ATTACH]1177878826.rar[/ATTACH]

[Vova]

Сообщение от snk В 2005 автокаде работает, а в 2007 - нет. .

Сделай поворот с копированием в 2005 и нажми F2. То, что появится на белом фоне, выложи сюда, вот так:

Код:

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

Command:
Command:
Command: $M=
Command:
Command: _select

Select objects: _auto

Select objects: 1 found

Select objects:

Command: _copy

Select objects: _p
1 found

Select objects:
Specify base point or displacement, or [Multiple]: "0,0"

Point or option keyword required.
Specify base point or displacement, or [Multiple]: Specify second point of 
displacement or <use first point as displacement>:

[ATTACH]1177885457.JPG[/ATTACH]
Это из моего 2005, а на картинке твой код. Сверь его с выложенным тобой, чтобы убедится, что я не сделал ошибку. Как видно из протокола, ничего не работает, и не должно. Не просматривается логика.

[Krieger]

snk
Попробуй так:

Код:

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

(defun _RotateCopy (ss)
       (if ss
	 (progn
	    (if (setq pt1 (getpoint "\n укажите базовую точку: "))
	      (progn
		  (vl-cmdf "_copy" ss "" pt1 pt1)
		  (command "_move" ss "" pt1 pause)
		  (setq pt2 (getvar "lastpoint"))
		);end progn
	      );end if
		  (vl-cmdf "_rotate" ss "" pt2)
			      (while
				(= (getvar 'cmdactive) 1)
				(vl-cmdf pause)
				);end while
      	);end progn
       );end if
  );end defun

(defun c:RotateCopy (/ *error* ss pt1 pt2)
  (setq pt2 nil)
  
  (defun *error* (msg)
    (if (not pt2)
      (vl-cmdf "_erase" ss "")
      (princ "Функция отменена")
      );end if
    );end defun
  
  (if (setq ss (ssget "_I"))
    (_RotateCopy ss)
    (progn
      (if (setq ss (ssget))
	(_RotateCopy ss)
      );end if
    );end progn
  );end if
  
 );end defun

Эту прогу надо выкинуть в автозагрузку и запускать команду "RotateCopy", соответственно макрос на кнопку:

Код:

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

^C^CRotateCopy

[snk]

Vova
После использования получается

Код:

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

Command:
Command: _select

Select objects: _auto

Select objects: Specify opposite corner: 3 found

Select objects:

Command: _copy

Select objects: _p
3 found

Select objects:
Specify base point or displacement, or [Multiple]: 0,0
Specify second point of displacement or <use first point as displacement>:

Command: _rotate

Current positive angle in UCS:  ANGDIR=counterclockwise  ANGBASE=0

Select objects: _p
3 found

Select objects:

Specify base point:

Invalid point.

Specify base point:
Specify rotation angle or [Reference]:
Command:

Ты не правильно макрос ввел. Должен быть ^C^C$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate;_copy, ^C^C_select;_auto;\_copy;_p;;"0,0";;_rotate;_p; ; )
Только последнии символы без пробелов, а то смайлик автоматически ставится

[snk]

Krieger
Спасибо, работает