[Pavka]

Подскажите как перевернуть атрибуты блока.
Надо во всех блоках проверить все атрибуты и если угол поворота текста 180 сделать его 0, а если 270 - 90.

Заранее СПАСИБО

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

Без обработки постоянных атрибутов и контроля состояния слоев:

Код:

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

(defun c:rot-attr (/ *error* adoc selset func_getattr)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (defun func_getattr (blk / lst)
    (if (>= (vlax-safearray-get-u-bound
              (vlax-variant-value (vla-getattributes blk))
              1
              ) ;_ end of vlax-safearray-get-u-bound
            (vlax-safearray-get-l-bound
              (vlax-variant-value (vla-getattributes blk))
              1
              ) ;_ end of vlax-safearray-get-l-bound
            ) ;_ end of >=
      (foreach attr
                    (vlax-safearray->list
                      (vlax-variant-value (vla-getattributes blk))
                      ) ;_ end of vlax-safearray->list
        (setq lst (cons attr lst))
        ) ;_ end of foreach
      ) ;_ end of if
    (if (>= (vlax-safearray-get-u-bound
              (vlax-variant-value (vla-getconstantattributes blk))
              1
              ) ;_ end of vlax-safearray-get-u-bound
            (vlax-safearray-get-l-bound
              (vlax-variant-value (vla-getconstantattributes blk))
              1
              ) ;_ end of vlax-safearray-get-l-bound
            ) ;_ end of >=
      (foreach attr (vlax-safearray->list
                      (vlax-variant-value (vla-getconstantattributes blk))
                      ) ;_ end of vlax-safearray->list
        (setq lst (cons attr lst))
        ) ;_ end of foreach
      ) ;_ end of if
    lst
    ) ;_ end of defun


  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (setq selset (ssget "_:L" '((0 . "INSERT") (66 . 1))))
    (foreach ent (mapcar 'vlax-ename->vla-object
                         (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                         ) ;_ end of mapcar
      (foreach item (func_getattr ent)
        (cond
          ((equal (vla-get-rotation item) pi 1e-3)
           (vl-catch-all-apply '(lambda () (vla-put-rotation item 0.)))
           )
          ((equal (vla-get-rotation item) (* pi 1.5) 1e-3)
           (vl-catch-all-apply '(lambda () (vla-put-rotation item (* pi 0.5))))
           )
          ) ;_ end of cond
        (vl-catch-all-apply '(lambda () (vla-put-backward item :vlax-false)))
        ) ;_ end of foreach
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Код не тестировал

[Pavka]

Скорость ответа потрясающая.
Спасибо за отзывчивость

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

Я только что код поменял, так что копируй тот что есть

[Pavka]

Как бы расширить возможности програмки:
1. запрашивала набор блоков, а не 1 блок
2. вертикальный текст оставляла вертикальным( 270 градусов меняла на 90 градусов а не на 0)

[Pavka]

я за вами не успеваю ))
огромное СПАСИБО

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

Я ж говорю, что код поменял...

[Pavka]

Спасибо

[Pavka]

вопрос второй
как в наборе блоков поменять аттрибут на его порядковый номер в этом наборе (грубо пронумеровать от 1 до ...)

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

А вот это уже в поиск по "нумерация атрибутов", например: http://www.google.ru/search?complete...1%81%D0%BA&lr=
Ну или вбить самостоятельно в окно поиска

[Pavka]

ещё одна просьба:
в первом лиспике Флаг backwards сбрасывать для атрибутов

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

Загнал в #2. Но код не тестил - некогда

[Pavka]

Спасибо всё работает