[ZeRG]

Здравствуйте! Помогите пожалуйста сделать макрос, делающий точное копирование выделенного объекта и перемещение его из координат (X;Y;Z) (Допустим базовая копирования) В координаты: (X,-Y,Z) Неплохо было б сразу иметь возможность поворачивать новый обьект не выходя из команды..Нашёл такое вот дело:

^C^C(Setq Om (Getvar "Orthomode"));_Ortho;_Of;_Select;\_Cp;_Pr;;@;@;_Move;_Pr;;\\_Ortho;_On;_Rotate;_Pr;;@;\(Setvar "Orthomode" Om)

Может чем-то поможет если модернизировать этот макрос..

[ытя]

^C^C(setq e(entsel)p(cadr e)e(car e));\_.move;!e;;!p;(list (car p)(-(cadr p))(caddr p));

[ZeRG]

ытя Спасибо! Возможно ли что б команда имела возможность поворота скопированного обьекта как в 1 команде.

[ытя]

^C^C(setq e(entsel)p(cadr e)e(car e));\_.copy;!e;;!p;(list (car p)(-(cadr p))(caddr p));_.rotate;_la;;

[ZeRG]

ытя Ещё раз спасибо! Всё работает!

А хотя нет.. рано радовался, координата Z копируемого обьекта становится 0.
Попытался добавить:

^C^C(setq e(entsel)p(cadr e)e(car e)t(caddr e));\_.copy;!e;;!p;(list (car p)(-(cadr p))(caddr p));_.rotate;_la;;

Копирует в туже сторону где и расположен обьект..что не так, подскажите плиз..

[ытя]

А что из себя представляет копируемый объект?

[ZeRG]

ытя солид

[ытя]

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

^C^C(setq p(getpoint "Точка на объекте :"));\_.copy;!p;;!p;(list(car p)(-(cadr p))(caddr p));

[ZeRG]

Работает, спасибо!!!