[zamtmn]

Наверно подобное уже было, но я не нашел

Нужно расставить оборудование в "круглом" здании.
В одной комнате оборудование (блоки) расставлено, нужно его повернуть - скопировать относительно указаной точки.

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

зы. Блоки при этом поворачивать вокруг своей оси не обязательно, их я потом поверну отдельно (спасибо kpblc`у)

[Profan]

В Express Tools есть команда MOCORO (Move/Copy/Rotate). Может, сгодится?

[Nike]

DSTP_OBJCPYRT
в ToolPac

а "круговой массив" в _array не поможет?

[zamtmn]

MOCORO
Не, не подходит она

DSTP_OBJCPYRT
Тоже не совсем то

[Makswell]

Я пользуюсь вот этим:

Код:

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

(defun C:M_CopyRotate (/ *error* selset old_cmdecho)
;;; поворот с копированием
  ;;---------------
  ;;переопределение *error*
  (defun *error* (msg)
    (setvar "cmdecho" old_cmdecho)
    (vl-cmdf "_.undo" "_e")
    (vl-cmdf "_.undo" 1)
    (princ "\nВыполнение программы прервано пользователем!")
  )
  ;;---------------
  (setq old_cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (vl-cmdf "_.undo" "_be")
  (setq selset (ssget))
  (vl-cmdf "_.copy"
	   selset
	   ""
	   (getpoint "\nБазовая точка: ")
	   "@"
	   "_.rotate"
	   selset
	   ""
	   "@"
  )
  (while (= (getvar "cmdactive") 1) (command pause))
  (vl-cmdf "_.undo" "_e")
  (setvar "cmdecho" old_cmdecho)
  (princ)
)

[Nike]

Еще вариант:

Код:

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

;Tip1750:  COPYR.LSP        Copy and rotate        (C)2001, Ricardo Lopez

 ;*****************************************************
 ; COPYR.LSP    (Copy and rotate objects)
 ;*****************************************************
(defun C:COPYR (/ N POINT2 LAST1 LAST2 ROTATE_POINT)
  (setvar "osmode" 0)
  (setvar "orthomode" 0)
  (setq EN (ssget))
  (command "_undo" "_begin")
  (if EN
    (progn
      (setq N 0)
      (while (< N (sslength EN))
	(redraw (ssname EN N) 3)
	(setq N (+ N 1))
      )
      (initget "M")
      (setq POINT2 (getpoint "\nBase point or displacement/Multiple:"))
      (if (= POINT2 "M")
	(progn (setq POINT2 (getpoint "\nBase point:"))
	       (while POINT2
		 (command "_.move" EN "" POINT2)
		 (setq LAST1 (getvar "lastpoint"))
		 (command PAUSE)
		 (setq LAST2 (getvar "lastpoint"))
		 (setq ROTATE_POINT (getvar "lastpoint"))
		 (command "_.copy" EN "" ROTATE_POINT POINT2)
		 (command "_.rotate")
		 (command "_p" "" ROTATE_POINT PAUSE)
		 (setq POINT2 ROTATE_POINT)
	       )
	)
	(progn (if POINT2
		 (progn	(command "_.move" EN "" POINT2 PAUSE)
			(setq BASE (getvar "lastpoint"))
			(command "_.copy" EN "" BASE POINT2)
			(command "_.rotate" "_p" "" BASE PAUSE)
		 )
	       )
	)
      )
      (setq N 0)
      (while (< N (sslength EN))
	(redraw (ssname EN N) 4)
	(setq N (+ N 1))
      )
    )
  )
  (command "_undo" "_begin")
  (princ)
)

[zamtmn]

COPYR - не то, сначало копирует - потом поворачивает

M_CopyRotate - почти то, вот бы еще повторять операцию многократео

[Nike]

а так:

Код:

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

(defun c:COPYRM (/ mysset base_pt ref_ang new_ang loop_sw)
  (princ "select objects to rotate")
  (setq mysset (ssget))
  (setq base_pt (getpoint "\nselect basepoint"))
  (setq ref_ang (/ (* (getangle base_pt "\nselect reference angle") 180) pi))
  (setq loop_sw 1)
  (while (= loop_sw 1)
    (setq new_ang (getangle base_pt "\nselect new angle"))
    (if (boundp 'new_ang)
      (command "_rotate" mysset "" base_pt "_C" "_R" ref_ang (/ (* new_ang 180) pi))
      (setq loop_sw 0)
    ) ;_ end of if
  ) ;_ end of while
  princ
)

[zamtmn]

>>а так:
Самое то. Спасибо!

[Velik84]

А поворачивть например на угол +-8d07'48" можете подсказать неопытному юзеру как сделать?

[VVA]

Velik84, на запрос угла поворота так и вводи: 8d7'48"

[Velik84]

Сообщение от VVA Velik84, на запрос угла поворота так и вводи: 8d7'48"

Ха))) а на кнопку как поставить?)))

[skkkk]

Velik84, макрос на кнопку сделай
COPYRM;8d7'48";
вместо красного ставь свою команду

[Mek]

А команда Массив/круговой массив не канает здесь разве?
И Экспресс Тулз тоже...
Для чего ЛИСП изобретать, если оно в штатном порядке имеется...

[zamtmn]

объекты нужно было не скопировать потом повернуть,
а скопировать задавая угловое перемещение а не линейное

[Mek]

Сообщение от zamtmn объекты нужно было не скопировать потом повернуть, а скопировать задавая угловое перемещение а не линейное

Если это ответ на мой вопрос, тогда да, согласен. Когда нужно копировать/поворачивать на разные углы несколько раз подряд - круговой массив может быть неудобен..

[ezeff]

Ещё вариант, для ленивых типа меня
Поворачивает копию, вызывается командой CR

Код:

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

( Defun C:CR()
	(if (setq sset (ssget))  ;Определяем что выбрано
    	(progn
            (command "ROTATE" sset "" pause "copy" pause) ;вызываем команду ROTATE, и поворачиваем копию из всех выбранных элементов
	  )
  )
)
(princ "\n Утилита Rotate a Copy,\n")
(princ " Поворачивает копию объекта. Сделана на основе команды ROTATE,\n")
(princ " Работоспособность проверялась только на AC 2009,\n")
(princ " Для работы с утилитой введите в командной строке CR.\n")
;;(textscr) ;; чтобы не выскакивало текстовое окно
(princ)

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

ezeff, в официальных локализациях работать не будет, это раз. Отслеживания ошибок нет - это два. Будет "хамить" при некоторых условиях.

[ezeff]

Кулик Алексей aka kpblc Например при каких?

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

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