Замена тегов атрибутов в блоках с сохранением значений.

Krovlaf · 22.01.2016, 07:42

Всем Привет! Столкнулся с проблемой: Есть база чертежей с блоками, в которых нужно заменить имена (теги) атрибутов. База старая, создавалась давно и разными авторами. Информация в атрибутах однотипная (4 параметра). Возникла необходимость в унификации информации в базе чертежей. Необходимо изменить теги атрибутов, но чтобы при этом значения атрибутов сохранилось (при изменении имен атрибутов в блоке их значения обнуляются при обновлении). Поиск по форуму и различным утилитам результата не дал. Выходил из положения так: экспортировал значения атрибутов в Excel, изменял блоки в редакторе и вносил значения обратно в соответствующие поля. Морока еще та, и ошибок таким способом делаешь очень много. Можно ли эту проблему решить программно?

kp+ · 22.01.2016, 10:35

Цитата:

Сообщение от Krovlaf

Поиск по форуму и различным утилитам результата не дал.

Команда BRT (Replace Tag) из Toolpack - то, что доктор прописал. Только потом не применяйте Attsync, т.к. команда BRT меняет тэги атрибутов именно во вставленных экземплярах (вхождениях) блоков, но не в определениях.
Если же Attsync необходим, надо писать другой вариант проги, более продуманный. Это уже в "поиск исполнителей". И обязательно с примером "как есть"->"как надо".

Krovlaf · 22.01.2016, 10:49

Пробовал... Кто-нибудь, незнаючи может таких бед наделать никакой доктор непоможет... В том и беда, что без обновления блоков или синхронизации атрибутов в работе с чертежами никак нельзя.
Да, получается чистый запрос. Надо тему перемещать.

Krovlaf · 28.01.2016, 03:28

Нашел похожую тему на Cadtutor'е. (Спасибо гугл транслиту) В посте #5 вроде бы есть решение проблемы. Да вот никак немогу победить этот код. Соответствующие инструкции в faq не помогли. Подскажите, как правильно запустить этот лисп?

Код:

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

defun changeblock (/ BLK DOC I TAGLST SS)
  (vl-load-com)
  (setq blk "OLDNAMEOFBLOCK"
    tagLst '(
         ;"Old Tag"    "New Tag"
	 ("OLDTAG"    	"NEWTAG")
         )
    i -1
    doc (vla-get-activedocument (vlax-get-acad-object))
    )
  (if (ssget "_X" (list (cons 0 "INSERT")(cons 2 blk)))
    (vlax-for bl (setq ss (vla-get-activeselectionset doc))
      (foreach att (vlax-invoke bl 'getAttributes)
    (If (assoc (vla-get-tagstring att) tagLst)
      (vla-put-tagstring att (cadr (assoc (vla-get-tagstring att) tagLst)))
      )))
    (princ "\nNo part rule Found."))
  (princ)
  (progn
    (if (tblsearch "BLOCK" "OLDNAMEOFBLOCK")
	  (progn
  	(command "-rename" "b" "OLDNAMEOFBLOCK" "NEWNAMEOFBLOCK")
  	(command "_.-insert" "NEWNAMEOFBLOCK=FILENAME" "y" nil);replaced convert template to new template.
	(command "_.attsync" "n" "NEWNAMEOFBLOCK")
	(scl 0.8 "NEWNAMEOFBLOCK");scales block to new scale
	  (blknr13 "NEWNAMEOFBLOCK"); this was command to set a block the a layer. (not included can eb removed)
))      	    
  )(princ)(princ "succes!")(princ)
  )
;; Run program manually with this:
(defun c:Chblock () (changeblock))
;;itemline

;; Scale the old template to new one
(defun scl (xsc blk / ss)
  (vl-load-com)
  (if (setq SS (ssget "_X" (list '(0 . "INSERT") (cons 2 blk))))
    (mapcar
      (function
        (lambda (Obj)
          (vla-ScaleEntity Obj
            (vla-get-insertionpoint Obj)xsc)))
      (mapcar 'vlax-ename->vla-object
        (vl-remove-if 'listp
          (mapcar 'cadr (ssnamex ss))))))
  (princ))
;;;;;delete;;;;;


;;/delete
(defun delblk (blk / ss)
    (vl-load-com)
      (if (tblsearch "BLOCK" blk)
	  (progn
	(if (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 2 blk))))
	  (mapcar    'vla-delete
    (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
)
		(command "erase" ss "")
	)
	(command ".purge" "b" blk "n")
	)
	)
)

Кулик Алексей aka kpblc · 28.01.2016, 08:55

Во-первых, как минимум пропущена одна скобка перед самым первым defun
Во-вторых, код будет работать только в английской версии AutoCAD (http://autolisp.ru/2010/03/04/localization/)

Oleg T · 28.01.2016, 09:47

Цитата:

Сообщение от Krovlaf

Есть база чертежей с блоками, в которых нужно заменить имена (теги) атрибутов

Я бы просто сохранил в DXF и пакетно отредактировал в тестовом редакторе типа Notepad++.
Очень просто.
А так еще есть готовая бесплатная утилита, но под BricsCAD. Отрабатывает отлично.
http://bricsys.com/applications/a/?b...are-a335-al528

Krovlaf · 28.01.2016, 10:00

Чувствую себя слепым муравьем на слоновьей тропе.
Я так понял, как минимум нужно все пересмотреть на предмет ошибок и вообще переписать для адаптации под локальную версию. Мм-да. Не все йогурты лиспы одинаково усваиваются...

Цитата:

есть готовая бесплатная утилита, но под BricsCAD

Не имеем в наличии к сожалению. Да и ради замены тегов заводить BricsCAD нерационально как то.
А с редактированием dxf... попробую. Не копал я еще так глубоко.
Спасибо!

Oleg T · 28.01.2016, 10:23

Цитата:

Сообщение от Krovlaf

Да и ради замены тегов заводить BricsCAD нерационально как то.
А с редактированием dxf... попробую. Не копал я еще так глубоко.

Если задача разовая, то хватит триальной версии. Дистрибутив маньше 200МБ и устанавливается за пару минут, для закачки нужен только email.
Но DXF реально быстрее, я так делал. Тут главное внимательность.

Nike · 28.01.2016, 10:30

http://forums.augi.com/showthread.ph...l=1#post968279

Код:

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

 ;;; Rename attributes
(defun RenAttrib ($blk $old $new / blocks bo eo ao)
  ;; Get blocks collection in current drawing
  (setq blocks (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
  ;; Step through all blocks
  (vlax-for bo blocks
    ;; Step through all entities inside block
    (vlax-for eo bo
      (cond
        ;; If attdef & in target block & old tag
        ((and (= (vla-get-ObjectName eo) "AcDbAttributeDefinition")
              (= (strcase (vla-get-Name bo)) (strcase $blk))
              (= (vla-get-TagString eo) $old)
         ) ;_ end of and
         (vla-put-TagString eo $new) ;Change to new name
        )
        
        ;; If block reference & target block
        ((and (= (vla-get-ObjectName eo) "AcDbBlockReference")
              (= (strcase (vla-get-EffectiveName eo)) (strcase $blk))
         ) ;_ end of and
         ;; Step through all attributes
         (foreach ao (vlax-safearray->list (vlax-variant-value (vla-GetAttributes eo)))
           ;; Check if target attrib
           (if (= (strcase (vla-get-TagString ao)) (strcase $old))
             (vla-put-TagString ao $new) ;Change to new name
           ) ;_ end of if
         ) ;_ end of foreach
        )
      ) ;_ end of cond
    ) ;_ end of vlax-for
  ) ;_ end of vlax-for
) ;_ end of defun

Код:

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

 (RenAttrib "TESTBLK" "OLDTAG" "NEWTAG")

Krovlaf · 28.01.2016, 10:46

Извиняюсь, как это работает? "Неизвестная команда" на все попытки.
Все, пошло, Спасибо! Теги меняются, данные сохраняются, Все ОК!
СПАСИБО!
PPS
Маааленький штрих к картине маслом... Можно ввод имени блока, заменяемого тега и нового тега сделать как запросы программы?

Nike · 28.01.2016, 11:11

Код:

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

 (RenAttrib (getstring "Введите имя блока: ") (getstring "Введите имя тэга: ") (getstring "Введите новое имя: "))

----- добавлено через ~4 мин. -----
Лучше не поштучно переименовывать, а массово с заранее заготовленным списком

http://forums.augi.com/showthread.ph...=1#post1152791

Код:

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

 (setq attrename-list
  '(("BlockName1" ("OldAttName1.1" "NewAttName1.1") ("OldAttName1.2" "NewAttName1.2"))
   ("BlockName2" ("OldAttName2.1" "NewAttName2.1") ("OldAttName2.2" "NewAttName2.2"))
  )
)

Код:

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

 (foreach block attrename-list
  (foreach attrename-pair (cdr block)
    (RenAttrib (car block) (car attrename-pair) (cadr attrename-pair))
  )
  (command "._ATTSYNC" "_Name" (car block))
)

Krovlaf · 28.01.2016, 11:22

Да, спасибо! Там в посте 12, вроде бы законченное решение с диалоговым окном, выбором итд. Уже регистрируюсь...

Прекрасное решение! Помимо всего можно проверять дубликаты имен в тегах, обрабатывая все блоки в чертеже!
А вот и то, что прописал доктор:
Правда, незнаю зачем, две разные команды:
RENATTRSET - предварительная настройка изменений
RENATTR - команда на выполнение

Nike · 28.01.2016, 11:40

угу, недолистал.
Krovlaf, выложи потом сюда тот код, пожалуйста.

config · 28.01.2016, 14:01

Подскажите, в чем может быть проблема (лисп из #12)?

kp+ · 28.01.2016, 14:50

хз, в стандартном Акаде 2010 х86, win7 полет нормальный. Какая у Вас версия?

Krovlaf · 28.01.2016, 14:54

Не знаю. У меня работает... А вы сразу поставили предложенный лисп или заменили старый вариант?

config · 28.01.2016, 14:58

Цитата:

Сообщение от kp+

хз, в стандартном Акаде 2010 полет нормальный. Какая у Вас версия?

AutoCAD Civil 3d 2010 Win XP x 32 Главное, что характерно, ввожу команду запуска, открывается диалоговое окно, а через пару секунд обрывается и выдает в командную строку указанную выше ошибку. Это первое тестирование программы.

kp+ · 28.01.2016, 15:07

Может, DCL с цивилом не дружат?

Krovlaf · 28.01.2016, 15:10

Тады первый, "ручной" вариант. Должен пахать!

config · 28.01.2016, 15:24

Цитата:

Сообщение от kp+

Может, DCL с цивилом не дружат?

Это у меня уже вторая программа, которая ведет себя таким образом. Может у кого аналогичная связка и отпишутся о работоспособности.

Цитата:

Сообщение от Krovlaf

Тады первый, "ручной" вариант. Должен пахать!

Да. Но неприятный осадок и чувство "незавершенности" остались.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сумма значений атрибутов	ie.spb	Программирование	17	22.10.2014 08:29
Сумма значений атрибутов блока	ILMIR	AutoCAD	8	20.10.2014 21:44
Группировка и суммирование значений атрибутов в таблице СПДС.	ie.spb	ПО от CSoft	17	11.07.2014 08:32
Извлечение значений атрибутов блоков AutoCAD Electrical с помощью AutoLisp	zaraki_kenpachi	LISP	16	19.02.2011 15:30
Потеря значений атрибутов блоков, вставленных в ячейки таблицы	Дмитрий Голованов	AutoCAD	2	17.12.2009 08:57

22.01.2016, 07:42		#1
Замена тегов атрибутов в блоках с сохранением значений. Krovlaf геология, геодезия Хабаровск Регистрация: 29.05.2009 Сообщений: 185 Всем Привет! Столкнулся с проблемой: Есть база чертежей с блоками, в которых нужно заменить имена (теги) атрибутов. База старая, создавалась давно и разными авторами. Информация в атрибутах однотипная (4 параметра). Возникла необходимость в унификации информации в базе чертежей. Необходимо изменить теги атрибутов, но чтобы при этом значения атрибутов сохранилось (при изменении имен атрибутов в блоке их значения обнуляются при обновлении). Поиск по форуму и различным утилитам результата не дал. Выходил из положения так: экспортировал значения атрибутов в Excel, изменял блоки в редакторе и вносил значения обратно в соответствующие поля. Морока еще та, и ошибок таким способом делаешь очень много. Можно ли эту проблему решить программно?
Просмотров: 9211