[koui]

имеется множество объектов (не блоки), в т.ч. таблицы. они расположены вдоль горизонтальной оси. нужно расположить их вдоль вертикальной оси, но поворачивать их нельзя - у таблицы нет свойства "Угол поворота", потому таблицы быстро повернуть на угол 0 не выйдет. у кого какие идеи есть?

[v.psk]

вооружиться нужными привязками, запастись терпением

[koui]

Сообщение от v.psk вооружиться нужными привязками, запастись терпением

вообще, решение есть, но оно корявое, мне не нравится. да и требует плагина Arrage.
мы всё поворачиваем на угол -10, затем плагином развигаем и поворачиваем обратно на угол 10. выравниваем по вертикальной оси и раздвигаем на нужное расстояние.
такое решение больше напоминает костыль. есть же способ проще? или нет?

ну и бывают случаи, когда всё это нужно перевернуть. тогда все эти действия придётся делать дважды.

[v.psk]

выравнивание строго по-вертикали?
может всё повернуть и потом каждую крутить обратно....но проще наверное просто перемещать

[Дмитррр]

Ничего не понял.

Сообщение от koui но поворачивать их нельзя - у таблицы нет свойства "Угол поворота"

От того, что у таблицы нет такого свойства, почему её нельзя повернуть командой поворота? У меня таблицы отлично поворачиваются.

Сообщение от koui потому таблицы быстро повернуть на угол 0 не выйдет

Поворот на 0 градусов - это отсутствие поворота.

[koMon]

Сообщение от koui у кого какие идеи есть?

использовать лисп

Код:

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

 (defun c:gyro_rotate_90 (/ ss ss_index all_center_list entity)
	(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
	(defun get_bounding_center (entity / left_lower_corner right_upper_corner bb_width bb_center_x bb_center_y)
		(vla-getboundingbox (vlax-ename->vla-object entity) 'left_lower_corner 'right_upper_corner)
		(setq left_lower_corner (vlax-safearray->list left_lower_corner)
			  right_upper_corner (vlax-safearray->list right_upper_corner)
			  bb_center_x (* 0.5 (+ (car right_upper_corner) (car left_lower_corner)))
			  bb_center_y (* 0.5 (+ (cadr right_upper_corner) (cadr left_lower_corner)))
		)
		(list bb_center_x bb_center_y)
	)
	(setq ss (ssget) ss_index -1)
	(repeat (sslength ss)
		(vla-rotate (vlax-ename->vla-object (setq entity (ssname ss (setq ss_index (1+ ss_index)))))
					(vlax-3d-point (last (setq all_center_list (append all_center_list (list (get_bounding_center entity))))))
					(* -1 (* 0.5 pi))
		)
	)
	(command "._rotate" ss "" (list (/ (apply '+ (mapcar 'car all_center_list)) (length all_center_list))  
									(/ (apply '+ (mapcar 'cadr all_center_list)) (length all_center_list))
							  )
							  "90"
	)
	(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
)

[koui]

Сообщение от Дмитррр Ничего не понял. От того, что у таблицы нет такого свойства, почему её нельзя повернуть командой поворота? У меня таблицы отлично поворачиваются. Поворот на 0 градусов - это отсутствие поворота.

сможешь быстро повернуть 50 таблиц что б они остались на прежнем месте?
Поворот на 0 - имел ввиду свойство "Поворот" приравнять "0".

----- добавлено через ~1 мин. -----

Сообщение от koMon использовать лисп Код: [Выделить все] (defun c:gyro_rotate_90 (/ ss ss_index all_center_list entity) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (defun get_bounding_center (entity / left_lower_corner right_upper_corner bb_width bb_center_x bb_center_y) (vla-getboundingbox (vlax-ename->vla-object entity) 'left_lower_corner 'right_upper_corner) (setq left_lower_corner (vlax-safearray->list left_lower_corner) right_upper_corner (vlax-safearray->list right_upper_corner) bb_center_x (* 0.5 (+ (car right_upper_corner) (car left_lower_corner))) bb_center_y (* 0.5 (+ (cadr right_upper_corner) (cadr left_lower_corner))) ) (list bb_center_x bb_center_y) ) (setq ss (ssget) ss_index -1) (repeat (sslength ss) (vla-rotate (vlax-ename->vla-object (setq entity (ssname ss (setq ss_index (1+ ss_index))))) (vlax-3d-point (last (setq all_center_list (append all_center_list (list (get_bounding_center entity)))))) (* -1 (* 0.5 pi)) ) ) (command "._rotate" ss "" (list (/ (apply '+ (mapcar 'car all_center_list)) (length all_center_list)) (/ (apply '+ (mapcar 'cadr all_center_list)) (length all_center_list)) ) "90" ) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) )

позже попробую