[markseder]

В лиспе я полный ноль, ну может быть 0.000001.
Решил я сделать такую команду чтобы она автоматически передвигала и разворачивала все объекты чертежа на определенную величину.
С начало продумал ход действий: Запуск команды move-выделение всех объектов(ctrl+a)-указание базовой точки-перемещение объекта на заданные величины-поворот с помощью rotate-ctrl+a-указание базовой точки-поворот на нужный угол. Итак мне необходимо сместить план по X=-7497301,197 и по Y=-432553,259, повернуть на 2,82177 градуса с базовой точкой смещения и вращения x=7499111, y=427946 и чтобы все это делалось одной командой ибо очень много планов надо перемещать по таким параметрам.Теперь я хочу доказать что в лиспе я не полный ноль, где то на 0.000001 уровне. Вот пока до чего я додумался, но мне кажется в этом коде чего то не хватает

Код:

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

 (defun C:DVIG ()
(command "_move"))

Спасибо за будущую оказанную помощь.

[Do$]

Сообщение от markseder но мне кажется в этом коде чего то не хватает

да вроде все нормально должно работать

[markseder]

спасибо за помощь.

Тупо методом проб и ошибок, методом тыка, а так же с помощью интуиции вот что у меня вышло

Код:

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

 (defun C:DVIG ()
  (command "move" "all" "" "427946,7499111" "-4607.3,1809.8")
  (command "rotate" "all" "" "-4607.3,1809.8" "2.82177")
)

Спасибо всем за поддержку и помощь. Ваш форум мне очень помог в этом.

[VVA]

markseder,
У любой команды редактирования есть запрос на выбор объектов, а в этом запросе есть много всяких опций. Для примера, вызови команду _move и на запрос "Выберите объекты" ("Select objects") введи ?, нажми enter и посмотри в командную строчку. Это я к тому, что вместо Ctrl+A можно использовать "_ALL", для последующего вращения (после команды _move) можно использовать так же опцию "_ALL", а можно (по моему мнению правильнее) "_p", базовую точку, угол поворота, смещение задай как переменные.
что-то типа такого

Код:

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

(defun C:DVIG ( )
  (setq base_point '(7499111.0 427946.0 0))
  (setq delta '(-7497301.197 -432553.259 0))
  (setq ang 2.82177)
  (command "_.MOVE"
	   "_ALL" ;_выбираем ВСЕ объекты
	   ""     ;_подтверждаем выбор, аналог нажатия ENTER
	   ""     ;_см в командную строчку, выбираем не базовую точку, а опцию перемещение
	   delta
	   )
  (command "_.ROTATE"
	   "_P"
	   ""
	   base_point
	   ang
	   )
  )

[markseder]

Спасибо большое, вы мне многое прояснили. А почему лучше задавать переменные, мой код мне кажется более прост и примитивно понятен. И почему вы пишите команду
"_.MOVE" не достаточно ли просто "move"?

[Кулик Алексей aka kpblc]

Сообщение от markseder не достаточно ли просто "move"?

Недостаточно: http://autolisp.ru/2010/03/04/localization/

[markseder]

Спасибо за ответ

[KSI]

А если базовая точка, смещение или угол могут быть разными, то в программе можно делать запрос на введение параметров.
Например для запроса угла поворота:

Код:

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

 (setq ang (getreal "Введите угол поворота: "))

[markseder]

Спасибо, сделаю программу более гибкой, еще разберусь как сделать окно ввода и будет вообще супер.