[МИХАИЛCAD]

Вот приходят чертежи из разных компаний.
А там (в этих компаниях) сидят вредители и вредят!
Они в своих атрибутах в блоках используют следующие значки:
"_", "#", ну и другие. А честные парни вроде меня пользуясь
gatte покрывают матом монитор.
Вот прошу помощи: как бы так
исхитрится и позаменять только эти значки?
Может быть кто нибудь уже сталкивался с этим?

[TararykovDG]

Меню "Правка" -> "Найти". Нажать кнопку "Параметры", отставить галочку только в поле "Значения атрибутов блока". В поле "Строка для поиска" и в поле "Заменить на" ввести соответствующие символы.

[МИХАИЛCAD]

Вопрос был о замене части имени тэга
По замене атрибутов, текстов и пр. прошу не беспокоится

[Дима_]

Сообщение от МИХАИЛCAD Вопрос был о замене части имени тэга

В чем вопрос-то, как исправить свойство tagstring в вхождениях блока и его описании?? vla-put-tagstring и к тем, и к тем.

[МИХАИЛCAD]

Аааа вон оно что!
vla-put-tagstring
ну теперь конечно всё понятно!
Пойду где то в другом месте спрошу а то тут что не спросишь или "тебе зачем"
или vla-put-tagstring
Спасибо и на том.

[Do$]

Сообщение от МИХАИЛCAD Пойду где то в другом месте спрошу

Да пожалуйста, кто ж мешает.

Сообщение от МИХАИЛCAD а то тут что не спросишь или "тебе зачем"

Опытным людям виднее что спрашивать. Это называется "уточняющий вопрос", т.к. в чем у тебя проблема написано очень недоходчиво, вот и приходится в "гадалки" играть.

[TararykovDG]

МИХАИЛCAD, попробуй так

Код:

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

 
(defun change-attr-tag(lst_replace_symbol / )
  (vl-load-com)
  (vlax-for blk_def (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
    (vlax-for attr blk_def
      (if (= (vla-get-ObjectName attr) "AcDbAttributeDefinition")
        (foreach item lst_replace_symbol
          (vla-put-TagString attr (vl-string-subst-all (vla-get-TagString attr) (cdr item) (car item)))
          )
        )
      )
    )
  ((lambda(nbr)
     (if nbr
       (foreach item (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr))))
         ((lambda(sf)
            (if (> (vlax-safearray-get-u-bound sf 1) -1)
              (foreach attr (vlax-safearray->list sf)
                (foreach item lst_replace_symbol
                  (vla-put-TagString attr (vl-string-subst-all (vla-get-TagString attr) (cdr item) (car item)))
                  )
                )
              )
            )
           (vlax-variant-value (vla-GetAttributes item))
           )
         )
       )
     )
    (ssget "_X" (list (cons 0 "INSERT")))
    )
  (princ)
  ); end change-attr-tag


; Заменяет в строке str все вхождения подстроки old_ss на подстроку new_ss
(defun vl-string-subst-all(str new_ss old_ss / )
  (while (vl-string-search old_ss str)
    (setq str (vl-string-subst new_ss old_ss str))
    )
  str
  ); end vl-string-subst-all

P. S. Сохранить этот код в лисп файл (например 1.lsp), загрузи в чертеж AutoCAD'а и вызови функци, как показано ниже
Примеры вызова:
(change-attr-tag '(("_" . ""))) - убрать из тегов символ "_"
(change-attr-tag '(("#" . ""))) - убрать из тегов символ "#"
(change-attr-tag '(("_" . "A") ("#" . "Вася"))) - заменить в тегах "_" на "A", "#" на "Вася"

[Дима_]

Сообщение от МИХАИЛCAD Аааа вон оно что! vla-put-tagstring

Вобще-то тема в разделе программирования под автокад, да еще, судя по 2 посту, с претензией на человека в этом деле понимающем (но сюдя по постановке вопроса это видимо не совсем так), так что как спросил так и ответил - успехов на других форумах.

[МИХАИЛCAD]

Спасибо TararykovDG !!
Это твоя прога и как я её пользую:

Код:

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

 ;замена символов в тэгах - "#", "_" и прочих на выбор
(defun change-attr-tag(lst_replace_symbol / )
	  (vl-load-com)
	  (vlax-for blk_def (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
	    (vlax-for attr blk_def
	      (if (= (vla-get-ObjectName attr) "AcDbAttributeDefinition")
	        (foreach item lst_replace_symbol
	          (vla-put-TagString attr (vl-string-subst-all (vla-get-TagString attr) (cdr item) (car item)))
	          )
	        )
	      )
	    )
	  ((lambda(nbr)
	     (if nbr
	       (foreach item (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr))))
	         ((lambda(sf)
	            (if (> (vlax-safearray-get-u-bound sf 1) -1)
	              (foreach attr (vlax-safearray->list sf)
	                (foreach item lst_replace_symbol
	                  (vla-put-TagString attr (vl-string-subst-all (vla-get-TagString attr) (cdr item) (car item)))
	                  )
	                )
	              )
	            )
	           (vlax-variant-value (vla-GetAttributes item))
	           )
	         )
	       )
	     )
	    (ssget "_X" (list (cons 0 "INSERT")))
	    )
	  (princ)
	  ); end change-attr-tag
	 
	 
	; Заменяет в строке str все вхождения подстроки old_ss на подстроку new_ss
	(defun vl-string-subst-all(str new_ss old_ss / )
	  (while (vl-string-search old_ss str)
	    (setq str (vl-string-subst new_ss old_ss str))
	    )
	  str
	  ); end vl-string-subst-all
;P. S. Сохранить этот код в лисп файл (например 1.lsp), загрузи в чертеж AutoCAD'а и вызови функци, как показано ниже
;Примеры вызова:
(change-attr-tag '(("_" . ""))) ;убрать из тегов символ "_"
(change-attr-tag '(("#" . "No"))) ;убрать из тегов символ "#"
; Сюда добавить строку подобную верхним двум
;(change-attr-tag '(("_" . "A") ("#" . "Вася"))) - заменить в тегах "_" на "A", "#" на "Вася"

Рекомендую всем!
Ничего подобного вы нигде не найдёте!!!
Большое спасибо!!!!