[gizmo_zx]

Добрый день.
Все чаще назревает необходимость отзеркалить динамический блок с атрибутами.
Если зеркалить стандартной командой, вроде бы ничего, но сделав _Attsink_attsync вижу, что текст атрибутов тоже перевернулся, а этого не хотелось бы.
Приложил файл что есть и как хотелось бы...
Буду благодарен за любые идеи по этому поводу.

[AlexV]

MIRRTEXT в 0?

[Do$]

но сделав _Attsink вижу

Код:

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

Command: _attsink
Unknown command "ATTSINK".  Press F1 for help.

MIRRTEXT в 0?

Не особо спасет.

[TararykovDG]

gizmo_zx, а зачем зеркалировать дин. блок? Если можно используя дин. параметры самого блока задать ему нужную конфигурацию, во всяком случае в том примере блока, что Ты выложил, задать конфигурацию "Как хотелось бы" можно только поменяв значения динамических параметров (хоть в ручную, хоть программно) без использования команды зеркалирования (_mirror) и синхронизации атрибутов (_attsync)

[gizmo_zx]

TararykovDG,проблемма в том что количество блоков несколько десятков, причем разных, (имя разное, графика разная, но атрибуты одинаковые)
И иногда очень хочется отзеркалить их сразу все, а не расстовлять по одному.

[TararykovDG]

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

И иногда очень хочется отзеркалить их сразу все, а не расстовлять по одному.

Так я и говорил о программном способе расстановки. Например в том фйле что Ты выложил, для того чтобы отзеркалить блок относительно оси X, достаточно значение дин. параметров "Угол" и "Угол1" умножить на -1 (можешь сам попробывать, выбрав какое-нибудь вхождение блока открыть окно свойств и менять "Угол" и "Угол1" дописывая знак "-" перед значением)
Так вот все это можно и программно реализовать. Понятно, что если у Тебя каждый блок совершенно не похож на другой, то универсального способа не получиться.

[gizmo_zx]

Как нижние помещение отзеркалить вверх?
А сли там два десятка блоков?

[TararykovDG]

Для конкретно этих блоков и для зеркалирования оносительно оси Х и относительно точки вставки каждого блока так

Код:

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

; Пример вызова (mirror_blk)
(defun mirror_blk( / )
  ((lambda(nbr)
     (if nbr
       (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
         (if (= (vla-get-EffectiveName (vlax-ename->vla-object item)) "_gr_r2x_ip23o")
           (foreach dyn (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties (vlax-ename->vla-object item))))
             (if (wcmatch (vla-get-PropertyName dyn) "Угол*")
               (vla-put-Value dyn (vlax-make-variant (- 0 (vlax-variant-value (vla-get-Value dyn))) vlax-vbDouble))
               )
             )
           )
         )
       )
     )
    (ssget (list (cons 0 "INSERT")))
    )
  ); end mirror_blk

[gizmo_zx]

А можно сделать выбор по X или по Y.
И сделать фильтр не по полному имени
Не "_gr_r2x_ip23o", а "_gr_*" , т.е. *-любое продолжение.

Например "_gr_r3_ip23o" тоже чтоб поподал.

Буду очень признателен

[TararykovDG]

Сообщение от gizmo_zx А можно сделать выбор по X или по Y.

Можно сделать относительно любой, задаваемой оси (т. е. прям как в команде "_mirror"). Сейчас очень занят на работе, на выходных попробую сделать.

Сообщение от gizmo_zx И сделать фильтр не по полному имени Не "_gr_r2x_ip23o", а "_gr_*" , т.е. *-любое продолжение. Например "_gr_r3_ip23o" тоже чтоб поподал.

Тут все зависти от реализации самых блоков, т. е. алгоримт для блока "_gr_r2x_ip23o" может не подходить для других блоков. Выложи файл со всеми нужными блоками, тогда подумаем, что можно сделать

[gizmo_zx]

Все блоки аналогичны _gr_r2x_ip23o

[TararykovDG]

gizmo_zx, попробуй, но протестируй внимательно мне было некогда

Код:

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

; Вызов: mirror_blk

(defun c:mirror_blk( / mirr_state)
  ((lambda(nbr)
     (if (and nbr (not (vl-catch-all-error-p nbr)))
       ((lambda(pnt1)
	  (if (not (vl-catch-all-error-p pnt1))
	    ((lambda(pnt2)
	       (if (not (vl-catch-all-error-p pnt2))
		 ((lambda(ang del)
                    (sssetfirst nil nil)
		    (if (not (vl-catch-all-error-p del))
		      (progn
			(if (or (not del) (member del (list "Нет" "No")))
			  (vl-cmdf "_.copy" nbr "" '(0.0 0.0 0.0) '(0.0 0.0 0.0))
			  )
			(foreach item (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr))))
			  (if (or (wcmatch (vla-get-EffectiveName item) "_gr_*")
				  (wcmatch (vla-get-EffectiveName item) "щит магистральный")
				  )
			    ((lambda(ins_pnt lst_dyn_param)
			       ((lambda(inters_pnt)
				  (vla-put-InsertionPoint item (vlax-3d-point (polar ins_pnt
										     (angle ins_pnt inters_pnt)
										     (* 2 (distance ins_pnt
												    inters_pnt
												    )
											)
										     )
								 )
				    )
				  )
				 (inters (list (car pnt1) (cadr pnt1) (caddr ins_pnt))
					 (list (car pnt2) (cadr pnt2) (caddr ins_pnt))
					 ins_pnt
					 (polar ins_pnt (+ ang (* 0.5 pi)) 1)
					 nil
					 )
				 )
			       (foreach dyn lst_dyn_param
				 (cond
				   ((= (vla-get-PropertyName dyn) "Угол")
				    (vla-put-Value dyn (vlax-make-variant (- (* 2 ang) (vlax-variant-value (vla-get-Value dyn))) vlax-vbDouble))
				    (if (and (> (vlax-variant-value (vla-get-Value dyn)) (* 0.5 pi)) (< (vlax-variant-value (vla-get-Value dyn)) (* 1.5 pi)))
				      (setq mirr_state 1)
				      (setq mirr_state 0)
				      )
				    )
				   ((= (vla-get-PropertyName dyn) "Отраженное состояние")
				    (vla-put-Value dyn (vlax-make-variant mirr_state vlax-vbInteger))
				    )
				   ((= (vla-get-PropertyName dyn) "Угол1")
				    (vla-put-Value dyn (vlax-make-variant (- (* 2 ang) (vlax-variant-value (vla-get-Value dyn))) vlax-vbDouble))
				    )
				   )
				 )
			       )
			      (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint item)))
			      (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties item)))
			      )
			    )
			  )
			)
		      )
		    )
		   (angle pnt1 pnt2)
		   (progn
		     (initget "Да Нет Yes No")
		     (vl-catch-all-apply 'getkword
		       (list "\nУдалить исходные объекты? [Да/Нет] <Нет>: ")
		       )
		     )
		   )
		 )
               (sssetfirst nil nil)
	       )
	      (progn
		(initget 1)
		(vl-catch-all-apply 'getpoint
		  (list pnt1 "\nВторая точка оси отражения: ")
		  )
		)
	      )
            (sssetfirst nil nil)
	    )
	  )
	 (progn
	   (initget 1)
	   (vl-catch-all-apply 'getpoint
	     (list "\nПервая точка оси отражения: ")
	     )
	   )
	 )
       )
     )
    (if (cadr (ssgetfirst))
      (cadr (ssgetfirst))
      (vl-catch-all-apply 'ssget
	(list (list (cons 0 "INSERT")))
	)
      )
    )
  (princ)
  ); end mirror_blk

[gizmo_zx]

спасибо. Работает вроде как надо