[Werner]

Добрый день жителям форума!

Столкнулся с такой проблемой: необходимо в более чем 500 файлах чертежей изменить текст (Мтекст в блоке). Руками не то чтобы лень, а огромная проблема, учитывая то, что каждый файл - 2-3 Мб, а машинка слабая.. Я пробовал пользоваться BFind (http://forum.dwg.ru/showthread.php?t=50736), но он,увы, не видит текст внутри блока...

Можете ли посоветовать и помочь? Если это важно, то блоки во всех файлах чертежей называются одинаково.

Думал о том, что, в принципе, можно разбить именно этот блок внутри всех чертежей, но решения для пакетной обработки файлов на форуме не нашёл...

Спасибо!

[TararykovDG]

Werner, выложи для примера один чертеж где необходимо заменить Mtext и укажи имя или имена блоков в которых надо заменить Mtext (а также укажи какой Mtext надо заменить и на что)

[Werner]

TararykovDG, выложил "обрезанную версию"..

Блоки называются "Штамп АС" и "Штамп АС.С", текст имеет формат №-АС и №-АС.С, а заменить нужно АС на КМ

[hwd]

Сообщение от Werner Добрый день жителям форума! Столкнулся с такой проблемой: необходимо в более чем 500 файлах чертежей изменить текст (Мтекст в блоке). Руками не то чтобы лень, а огромная проблема, учитывая то, что каждый файл - 2-3 Мб, а машинка слабая.. Я пробовал пользоваться BFind (http://forum.dwg.ru/showthread.php?t=50736), но он,увы, не видит текст внутри блока... Можете ли посоветовать и помочь? Если это важно, то блоки во всех файлах чертежей называются одинаково. Думал о том, что, в принципе, можно разбить именно этот блок внутри всех чертежей, но решения для пакетной обработки файлов на форуме не нашёл... Спасибо!

А ты случаем не Salo65 (тынц)?

у меня где-то был написан код пакетной обработки чертежей по указанному каталогу (с подкаталогами если требуется), либо по указанной юзером подшивке (оба варианта на выбор)... Так же был написан код обработки текстовых примитивов (с использованием регулярных выражений) + атрибутов блоков + выносок + размеров. Правда всё это написано было на .Net и под AutoCAD 2009. Могу порыться, поискать, если у топикстартера автокад 2009 и установлен .Net Framework 3.5 SP1.

[Олег (jr.)]

Сообщение от Werner TararykovDG, выложил "обрезанную версию".. Блоки называются "Штамп АС" и "Штамп АС.С", текст имеет формат №-АС и №-АС.С, а заменить нужно АС на КМ

Пакетно не получится
Попробуй загрузить этот лисп в Startup Suite в меню Tools->Load Application
при открывании отдельного файла лисп будет автовыполняться

Код:

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

 ;;====================================================;
;; *| demo.lsp | fixo © 2010   All rights removed  |* ;
;;====================================================;

(vl-load-com)
(defun newstring  (old new str)
  (while
    (vl-string-search old str)
     (setq str (vl-string-subst new old str))
     )
  )
(defun demo(/ acapp adoc new_value old_value pattern txt)
(vl-catch-all-apply (function (lambda()
(progn

(setq	old_value "АС"				  ;(getstring T "\nEnter the pattern to be replaced with :\n")
	new_value "КМ"				  ;(getstring T "\nEnter string to be substituted for pattern:\n"))
	pattern	"*№*")
(or acapp (setq acapp (vlax-get-acad-object)))
  (or adoc (setq adoc (vla-get-activedocument acapp)))
(vlax-for blockdef (vla-get-blocks adoc)
     (if (or(eq "Штамп АС" (vla-get-name blockdef))
	    (eq "Штамп АС.С" (vla-get-name blockdef)))
       (progn
  (vlax-for itmobj blockdef
	  (if (and (eq "AcDbMText" (vla-get-objectname itmobj))
		       (wcmatch (setq txt (vla-get-textstring itmobj)) pattern))
(progn
  
  (if (vl-string-search old_value txt)
    (progn
      
  (vla-put-textstring itmobj (newstring old_value new_value txt)))

	     )
	    )
	  )
     )
   )
  )
  )
)
(vl-cmdf "_regen"))))
(prin1)
  )
(demo)

Попробуй такой вариант для массовой обработки файлов

 

Код:

[Выделить все]
;;====================================================;
;; *| batchblocks.lsp | fixo © 2010   All rights removed  |* ;
;;====================================================;
(defun newstring  (old new str)
  (while
    (vl-string-search old str)
     (setq str (vl-string-subst new old str))
     )
  )
(defun demo  (adoc / new_value old_value pattern txt)

  (vl-catch-all-apply
    (function
      (lambda ()
	(progn

	  (setq	old_value "КМ" 			  ;(getstring T "\nEnter the pattern to be replaced with :\n")
		new_value "АС"			  ;(getstring T "\nEnter string to be substituted for pattern:\n"))
		pattern	"*№*")

	  (vlax-for blockdef  (vla-get-blocks adoc)
	    (if	(or (eq "Штамп АС" (vla-get-name blockdef))
		    (eq "Штамп АС.С" (vla-get-name blockdef)))
	      (progn
		(vlax-for itmobj  blockdef
		  (if (and (eq "AcDbMText" (vla-get-objectname itmobj))
			   (wcmatch (setq txt (vla-get-textstring itmobj)) pattern))
		    (progn

		      (if (vl-string-search old_value txt)
			(progn

			  (vla-put-textstring
			    itmobj
			    (newstring old_value new_value txt)))

			)
		      )
		    )
		  )
		)
	      )
	    )
	  )
	)
      )
    )

  )


(defun C:OPB (/  acapp adoc file_obj fn fold full-names-list full_name_list olsp osd)
  (vl-load-com)
  (alert
    "\nPlease wait a minute
\nto ending of batch file operation"
  )

  (setvar "SDI" 0)

  
  (setq	fn (getfiled "Select *ANY .DWG FILE* in a desired folder : "
				 ""
				 "dwg"
				 4
		       )
  )
  (if fn
    (progn
      (setq fold	   (vl-filename-directory fn)
	    full_name_list (vl-directory-files fold "*.dwg" 1)
	    full_name_list (mapcar (function (lambda (x)
					       (strcat fold "\\" x)
					       )
					     )
				   full_name_list
				   )
	    )
      (setq acapp (vlax-get-acad-object)
	    adoc  (vla-get-activedocument acapp)
	    )





      (if full_name_list

	(progn
	  (vla-save adoc)
	  (mapcar
	    (function
	      (lambda (dwgnmame)
		(progn
		  (setq file_obj (vla-open (vla-get-documents acapp) dwgnmame))

		  ;;here is your batch function:

		  (demo file_obj)

		  (princ (strcat "\n" (vl-princ-to-string (getvar 'dbmod))))
		  (vla-regen file_obj acActiveViewport)
		  (vla-saveas file_obj dwgnmame)
		  (vla-close file_obj)

		  (vl-cmdf "_delay" 200)

		  )
		)
	      )
	    full_name_list
	    )

	  )
	(princ "\nNo .DWG files in selected directory\n")
	)
      )
    )


  (princ)
)
(princ "\n\tType OPB to execute...")
(princ)

[Werner]

Сообщение от hwd А ты случаем не Salo65 (тынц)? у меня где-то был написан код пакетной обработки чертежей по указанному каталогу (с подкаталогами если требуется), либо по указанной юзером подшивке (оба варианта на выбор)... Так же был написан код обработки текстовых примитивов (с использованием регулярных выражений) + атрибутов блоков + выносок + размеров. Правда всё это написано было на .Net и под AutoCAD 2009. Могу порыться, поискать, если у топикстартера автокад 2009 и установлен .Net Framework 3.5 SP1.

Я не Salo65, не знаю, к счастью или сожалению Но ситуация похожая..
..Чертежи сделаны в формате AutoCAD 2010, файлы разложены по каталогам, подшивок нет - всё в пространстве модели. Единственное что - мне нужно отредактировать вхождения блока, а не атрибуты (если я ничего не напутал)...

[TararykovDG]

Сообщение от Werner TararykovDG, выложил "обрезанную версию".. Блоки называются "Штамп АС" и "Штамп АС.С", текст имеет формат №-АС и №-АС.С, а заменить нужно АС на КМ

Werner, забыл сразу уточнить, у меня ACAD2008, поэтому если не сложно выложи чертеж еще раз, но в версии не старше 2008.

Олег (jr.), а почему пакетно не получиться? Например если через ObjectDBX по анологии с похожим примером для переименования блоков Нужно решение (программа) для массового переименования всех блоков

[Werner]

hwd, отправлял вчера ответ, но почему-то не нашёл его сегодня...

Я не Salo65, и не знаю, радоваться или нет) Я от его способа как раз начинаю сходить с ума

у меня где-то был написан код пакетной обработки чертежей по указанному каталогу (с подкаталогами если требуется), либо по указанной юзером подшивке (оба варианта на выбор)... Так же был написан код обработки текстовых примитивов (с использованием регулярных выражений) + атрибутов блоков + выносок + размеров. Правда всё это написано было на .Net и под AutoCAD 2009. Могу порыться, поискать, если у топикстартера автокад 2009 и установлен .Net Framework 3.5 SP1.

У меня AutoCAD 2010, а Framework не проблема! Единственное что, мне нужно редактировать вхождение блока, а не атрибуты... А код пакетной обработки чертежей очень бы пригодился при использовании скрипта от Олег (jr.).

Олег (jr.), спасибо!

А возможно ли открывать и сохранять с задержкой файлы из определенной папки, например, в другом лиспе? Тогда бы и этот лисп выполнился...

[Олег (jr.)]

Сообщение от TararykovDG Олег (jr.), а почему пакетно не получиться? Например если через ObjectDBX по анологии с похожим примером для переименования блоков Нужно решение (программа) для массового переименования всех блоков

У меня есть старая рабочая рутина с иcпользованием ObjectDBX
так она не работает с его чертежом мобыть блок корявый или
еще какие неучтенные дела, хотя она работает как надо (с 2006)
с другими чертежами плюс почему-то с этим чертежом надо вызывать РЕГЕН в конце, а ObjectDBX не откликается на работу с экраном
как известно (напр. ты не сможешь использовать entsel, ssget etc)

[TararykovDG]

Сообщение от Олег (jr.) У меня есть старая рабочая рутина с иcпользованием ObjectDBX так она не работает с его чертежом мобыть блок корявый или еще какие неучтенные дела, хотя она работает как надо (с 2006) с другими чертежами плюс почему-то с этим чертежом надо вызывать РЕГЕН в конце, а ObjectDBX не откликается на работу с экраном как известно (напр. ты не сможешь использовать entsel, ssget etc)

Олег (jr.), вот я и не могу тоже попробывать именно с чертежом автора, так как у меня ACAD 2008 и его чертеж не открывается (так как на мою просьбу перевыложить чертеж в версии не выше 2008 автор не откликнулся, может Ты если не сложно выложишь его файл в версии 2008).
Тем более ты сам говоришь, что с другими чертежами у Тебя ObjectDBX работает как надо. Что касается РЕГЕНа, то ObjectDBX работает как Ты сам прекрасно знаешь в неактивном режиме (т. е. чертежеи не будут открываться), а помот при открытии они по идеи сами регеняться?

[Werner]

TararykovDG, пересохранил в формате 7-го АСАDа:

[TararykovDG]

Werner, для файла в формате 7-го АСАDа, который Ты выложил вроде все сработало

Код:

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

 
;|	Заменить Mtext в блоке для всех чертежей
	Для работы с неактивным документом используется метод ObjectDBX
	http://autolisp.ru/2010/04/08/proceed-unactive-document/

|;
(vl-load-com)

; Функции _lispru-acad-version и _lispru-odbx взяты отсюда http://autolisp.ru/2010/04/08/proceed-unactive-document/
;	Directory-Dia - http://www.caduser.ru/forum/index.php?PAGE_NAME=message&FID=23&TID=48293&MID=269115#message269115 пост #2


(defun _lispru-acad-version ()	; http://autolisp.ru/2010/04/08/proceed-unactive-document/
;|
*    Возвращает номер сборки AutoCAD'a. Для 2005 вернет 16.1, для 2006 - 16.2
* и т.д.
|;
(atof (getvar "acadver"))
) ;_ end of defun


(defun _lispru-odbx (/)	; http://autolisp.ru/2010/04/08/proceed-unactive-document/
                    ;|
*    функция возвращает интерфейс IAxDbDocument (для работы с файлами DWG без
* их открытия). Если интерфейс не поддерживается, возвращает nil. Проверено
* на ACAD 2002, 2004, 2005, 2006, 2007, 2008, 2010
*    Автор - Fatty aka Олег jr. 
*    Параметры вызова:
* нет
*    Примеры вызова:
(_lispru-odbx)
|;
  (cond
    ((< (_lispru-acad-version) 15.06)
     (alert
       "ObjectDBX method not applicable\nin this AutoCAD version"
       ) ;_ end of KPBLC-MSG-ALERT
     nil
     )
    ((= (fix (_lispru-acad-version)) 15)
     (if (not (vl-registry-read
                "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
                ) ;_ end of vl-registry-read
              ) ;_ end of not
       (startapp "regsvr32.exe"
                 (strcat "/s \"" (findfile "axdb15.dll") "\"")
                 ) ;_ end of startapp
       ) ;_ end of if
     (vla-getinterfaceobject
       (vlax-get-acad-object)
       "ObjectDBX.AxDbDocument"
       ) ;_ end of vla-getinterfaceobject
     )
    (t
     (vla-getinterfaceobject
       (vlax-get-acad-object)
       (strcat "ObjectDBX.AxDbDocument." (itoa (fix (_lispru-acad-version))))
       ) ;_ end of vla-getinterfaceobject
     )
    ) ;_ end of cond
) ;_ end of defun


; Исходный код http://www.caduser.ru/forum/index.php?PAGE_NAME=message&FID=23&TID=48293&MID=269115#message269115 пост #2
(defun Directory-Dia (Message / sh folder folderobject result)
    ;; By Tony Tanzillo
    ;; Modified by Tim Willey
    ;; 16 Will let you type in the path
    ;; 64 Will let you create a new folder
    ;; Use
    ;; (Directory-Dia "Create Sheet Index \nSelect directory to grab Drawings \nBy Tim Willey 09/13/07")

    (setq sh
      (vla-getInterfaceObject
        (vlax-get-acad-object)
        "Shell.Application"
      )
    )
    (setq folder
      (vlax-invoke-method
        sh
        'BrowseForFolder
        (vla-get-HWND (vlax-get-Acad-Object))
        Message
        0 ;;; This is the bit number to change.
               ;;; Вместо 0 можно попробовать (+ 16 64)
		;;; 16 - позволяет набирать путь 
		;;; 64 - позволяет создавать новую папку
	""	; - корневой каталог, не обязательный параметр !!! НЕЛЬЗЯ БУДЕТ ВЕРНУТЬСЯ НА УРОВЕНЬ ВЫШЕ !!!
      )
    )
    (vlax-release-object sh)
    (if   folder
      (progn
   (setq folderobject
          (vlax-get-property folder 'Self)
   )
   (setq result
          (vlax-get-property FolderObject 'Path)
   )
   (vlax-release-object folder)
   (vlax-release-object FolderObject)
   (if (/= (substr result (strlen result)) "\\")
     (setq result (strcat result "\\"))
     result
   )
      )
    )
) ;_ end of defun

; Заменяет в строке 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



(defun change-mtext-in-blocks(lst_blocks old_str new_str pattern / path_folder lst_files path_file odbx blk_def ent txt index)
  (setq index 1)
  (if (setq path_folder (Directory-Dia "Укажите папку: "))
    (if (setq lst_files (mapcar '(lambda (x) (strcat path_folder x)) (vl-directory-files path_folder "*.dwg" 1)))
      (foreach path_file lst_files
        (setvar "MODEMACRO" (strcat "Всего файлов: " (itoa (length lst_files)) "     Обработано: " (itoa index) "     Текущий файл: " path_file))
	(if (setq odbx (_lispru-odbx))
	  (progn
	    (vla-open odbx path_file)
	    (vlax-for blk_def (vla-get-blocks odbx)
              (if (member (vla-get-name blk_def) lst_blocks)
                (vlax-for ent blk_def
                  (if (and (eq "AcDbMText" (vla-get-objectname ent))
                           (wcmatch (setq txt (vla-get-textstring ent)) pattern)
                           )
                    (vla-put-textstring ent (vl-string-subst-all txt new_str old_str))
                    )
                  )
                )
	    ) ;_ end of vlax-for
	    (vla-saveas odbx path_file)
	    (vlax-release-object odbx)
	    (setq odbx nil)
	  )
	)
        (setq index (1+ index))
      )
    )
  )
  (setvar "MODEMACRO" "")
  (alert "Ну вот и все!!!")
  (princ)
) ;_ end of defun

Вызов: (change-mtext-in-blocks (list "Штам АС" "Штам АС.С") "АС" "КМ" "*№*")
Выбираем папку с файлами (только один уровень вложенности, т. е. прога переберет файлы только в выбранной папке, но не в подпапках)
Соответсвенно если будут др. блоки или др. текст все легко поменять во входных параметрах, например:
(change-mtext-in-blocks (list "Блок 1" "Блок 2" ...) "Вася" "Петя" "*Разработчик*")

[Werner]

СПАСИБО!!!



А не подскажете, почему после прохода скриптом размеры файлов увеличиваются почти в 1,5 раза?

[TararykovDG]

Сообщение от Werner А не подскажете, почему после прохода скриптом размеры файлов увеличиваются почти в 1,5 раза?

У меня не так, на Твоем примере Example_2008.dwg:
До - 504 320 байт
После - 459 424 байт
так что как выдишь даже чуть меньше стал

[Werner]

Сообщение от TararykovDG У меня не так, на Твоем примере Example_2008.dwg: До - 504 320 байт После - 459 424 байт так что как выдишь даже чуть меньше стал

ну вот.. а у меня из папки в 500 Мб получается папка почти в 750

[TararykovDG]

давай сначала проверь на одном файле Example_2008.dwg, который Ты мне выкладывал, посмори что там получается. И выложи еще какой-нибудь свой файл (напоминаю что у меня ACAD 2008) со значениями размера до и после, а я его у себя попробую.

[Werner]

Для файлов example и example_2008 пробовал пять раз (заменял файлы на исходные), первые три раза - разный результат о_0. А последние два - размеры файлов вообще не изменялись.... 0_0


Для 461: 2113кБ/3088/кБ
Для 461_2008: 1636кБ/1892кБ

Для 461 и 461_2008- результаты близкие к указанным при повторении опыта)

[TararykovDG]

Werner,
461_2008.dwg
до - 1 669 056 байт
после - 1 628 896 байт

Так что я не знаю чем помочь.

[Werner]

Всё равно ОГРОМНОЕ спасибо!
Если бы не скрипт, сидеть мне неделю с Ctrl-C и Ctrl-v..

[Александр Ривилис]

Сообщение от Werner А не подскажете, почему после прохода скриптом размеры файлов увеличиваются почти в 1,5 раза?

ISAVEPERCENT установи в 0.