[G.A.W.]

Приветствую специалистов!
Возникла необходимость работать с атрибутами блоков, а именно:
- есть чертеж с блоками, часть блоков с одним и тем же именем, но у них есть видимые атрибуты. Требуется именно у выбранных блоков с одним и тем же именем изменить свойства текста атрибутов, например, выравнивание. Я поискал подобного рода лиспы, вроде не нашел. Если задача решаемая или есть готовое решение, помогите плиз

[Andrey_nadym]

К сожалению AutoCad нет под рукой
но попробуйте вот эти

и тут посмотрите http://www.lee-mac.com/attmodsuite.html

[freese]

Если блоки одинаковые, то атрибуты можно просто поменять в свойствах, выбрав нужные блоки.
Так же банальное "найти и заменить"

[G.A.W.]

Сообщение от freese Если блоки одинаковые, то атрибуты можно просто поменять в свойствах, выбрав нужные блоки. Так же банальное "найти и заменить"

Не думаю, иначе не спрашивал бы

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

Сообщение от Andrey_nadym и тут посмотрите http://www.lee-mac.com/attmodsuite.html

Оно самое, огромное спасибо! Закрыто

[dip]

Продолжу тему (дабы не создавать новую). А есть возможность Изменить одним чохом коэффициент сжатия текста атрибута выбраных блоков?

[Nike]

На основе AttModSuiteV1-1

Код:

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

 ;;-----------------=={ Массовое редактирование сжатия атрибутов}==------------------;;

(defun c:wAtt ( / *error* doc asel base disp lck ss tag )
  (vl-load-com)
  ;; © Lee Mac 2010 corr 2014 Nike

  (defun *error* ( msg )
    
    (if doc (LM:EndUndo doc))
    (if lck (LM:ReLockLayers lck))

    (if mutt (setvar 'NOMUTT mutt))
    
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **")))
    (princ)
  )

  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))

  (if
    (and
      (setq asel (LM:GetAttribSelection doc t))
      (setq base
        (trans
          (vlax-get (setq o (car asel))
            (if
              (and
                (or
                  (not (vlax-property-available-p o 'MTextAttribute))
                  (eq :vlax-false (vla-get-MTextAttribute o))
                )
                (not (eq acAlignmentLeft (vla-get-Alignment o)))
              )
              'TextAlignmentPoint 'InsertionPoint
            )
          )
          0 1
        )
      )
      (setq disp (getreal "\nВведите величину сжатия: "))
    )
    (progn
      (LM:StartUndo doc)

      (setq lck (LM:UnlockLayers doc) ss (cadr asel) tag (caddr asel))

      (
        (lambda ( i / e o )
          (while (setq e (ssname ss (setq i (1+ i))))
            (mapcar
              (function
                (lambda ( attrib )
                  (if (eq tag (vla-get-TagString attrib))
                    (vla-put-scalefactor attrib disp)
                  )
                )
              )
              (append
                (vlax-invoke (setq o (vlax-ename->vla-object e)) 'GetAttributes)
                (vlax-invoke o 'GetConstantAttributes)
              )
            )
          )
        )
        -1
      )

      (LM:ReLockLayers lck)

      (LM:EndUndo doc)
    )
  )
  
  (princ)
)

[dip]

Что-то я не понимаю или не получается. Пишет:

Код:

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

 Команда: WATT
Select Attribute:
'А1' Selected.
Select Blocks <All> :

И ничего не идет. Что-то я не так делаю наверно

[AndruxaZ]

Сообщение от dip Что-то я не понимаю или не получается. Пишет: Код: [Выделить все] 1 Команда: WATT 2 Select Attribute: 3 'А1' Selected. 4 Select Blocks <All> : И ничего не идет. Что-то я не так делаю наверно

По моему lisp от Lee Mac не обрабатывает динамические блоки

[dip]

Сообщение от AndruxaZ По моему lisp от Lee Mac не обрабатывает динамические блоки

Вот оно что!!! У меня все блоки динамические. Значит не судьба. А жаль