[МИХАИЛCAD]

Вообще то я люблю скрипты (script) и пользуюсь им очень много.
Вот решил используя скрипт заменять на чертеже один блок другим
ничего подходящего найти не могу нигде!
Может кто нибудь знает простенькую программку
для применения в моём случае.
заранее благодарен.
Для чего: на чертежах стоит подпись в виде блока (изображает
реальную подпись) блок подписи вставлен в другой блок.
Нужно заменить эту подпись (блок) на другую подпись (тоже блок)

[VVA]

BlockReplace из ET

[МИХАИЛCAD]

Нет не подходит совсем...

[TararykovDG]

Замена одного блока другим для AutoCAD 2006/2007 [VBA]
Замена одного блока другим [lisp]

[Nike]

(defun c:blrevers (/ a b)
(and (setq a (car (entsel "\nВыберите исходный блок: ")))
(setq a (entget a))
(while (and (= (cdr (assoc 0 a)) "INSERT")
(setq b (car (entsel "\nВыберите изменяемый блок: ")))
(setq b (entget b))
(= (cdr (assoc 0 b)) "INSERT")
(entmod (vl-remove (assoc 330 b) (subst (assoc 2 a) (assoc 2 b) b)) ;_ vl-remove
) ;_ entmod
) ;_ and
) ;_ while
) ;_ and
(princ)
) ;_ defun

[Oliver_88]

Если одна степень вложенности и устраивает переопределение непосредственно самого блока, то можно попробовать так:

Код:

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

 ;Пример вызова (sub_blk_in_blk "имя блока в котором нужно сделать замену" "имя старого блока" "имя нового блока")
;Имена блоков указывать с учетом регистра.
(defun sub_blk_in_blk (blk old_blk new_blk / it)
  (vl-load-com)
  (setq active_document (vla-get-ActiveDocument (vlax-get-acad-object)))
  (vlax-map-collection (setq it (vla-Item (vla-get-Blocks active_document) blk))
    (function
      (lambda (x)
	(if (vlax-property-available-p x 'EffectiveName)
	  (if (equal (vla-get-EffectiveName x) old_blk)
	    (progn
	      (vla-InsertBlock
		it
		(vla-get-InsertionPoint x) new_blk
		(vla-get-XScaleFactor x) (vla-get-YScaleFactor x) (vla-get-ZScaleFactor x)
		(vla-get-Rotation x)
		)
	      (vla-Delete x)
	      )
	    )
	  )
	)
      )
    )
  (vla-Regen active_document 0)
  )

[МИХАИЛCAD]

Не то

[Yuzer]

Китокс тулсет http://dwg.ru/dnl/437

[Oliver_88]

МИХАИЛCAD, нарисовали бы уж тогда.

[Nike]

МИХАИЛCAD, на уровне идеи:
1 - заходишь в блок (штамп, наверное) и удаляешь все блоки подписей - (command "_.erase" (ssget "_x" (list '(0 . "INSERT")) "")
2 - вставляешь новые подписи - (command "_.insert" podpis1 '(координаты первой подписи) 1 1 "")
(command "_.insert" podpis2 '(координаты второй подписи) 1 1 "") и т.д. сколько нужно.
3 - выходишь из редактора блоков - (command "_BCLOSE" "")
Нужные подписи podpis1 podpis2 и т.д. хранишь в отдельных файлах.
Вешаешь нужный набор подписей на кнопку и радуешься..

[АлексЮстасу]

Сообщение от МИХАИЛCAD Для чего: на чертежах стоит подпись в виде блока (изображает реальную подпись) блок подписи вставлен в другой блок. Нужно заменить эту подпись (блок) на другую подпись (тоже блок)

1. Заменить на блок с другим именем?
2. Заменить на блок с тем же именем? Т.е. в блоке заменить саму подпись?
Если первое, то чем же не годятся предложенные выше варианты?
Если второе, то просто изменить подпись в редакторе блоков. Или создать новый образец блока и через Design Center сделать Redefine only.