Можно-ли периименовать блок?

Можно-ли периименовать блок? · 21.02.2006, 17:36

Не кто не знает есть ли в Автокаде возможность переименовать созданный блок (в смысле одинаковых блоков блоков на чертеже много, т.е. один блок вставлен кучу раз из буфера с дурным именем, а потом размножен командой copy и нужно (т.е. из) назвать нормально).

Хмурый · 21.02.2006, 17:38

команда

Код:

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

rename

Кулик Алексей aka kpblc · 21.02.2006, 17:39

_.rename опробуй
---
Опередили.

Dante · 21.02.2006, 17:47

Прикольно. Спасибо.

VVA · 21.02.2006, 18:12

Цитата:

Прикольно. Спасибо.

Пора объявлять соревнование на самый быстрый забег (ответ на вопрос), почти Турин 2006.

vk · 21.02.2006, 21:20

Цитата:

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

Пора объявлять соревнование на самый быстрый забег (ответ на вопрос), почти Турин 2006.

Не... Пора делать автоответчик. Но это уже вопрос к админу

))

Perezz!! · 21.02.2006, 23:03

Цитата:

Не... Пора делать автоответчик.

Vova · 22.02.2006, 05:33

Интересно, если посмотреть в Хелпе на русском языке на слово Переименовать, можно-ли там найти ответ? А если хелп английский, то в словаре можно найти, что это есть Rename....
Скоро юбилейная двухсотая страница перелистнется на форуме, отделять мух от котлет становится все труднее

Dante · Регистрация: 01.12.2005

Команда rename - это конечно интересно, но есть нюансы. Например Вы хотите преименовать блок, который был вставлен из буфера обмена он как известно имеет имя типа A#546$#$@$#%#45645, а команда rename предпологает, что вы знаете имя этого блока, т.е. перед тем как переименовывать нужно это имя как-то найти, записать на листик (или в буфер) корче лая катавасия, а вот так, чтобы переименовать просто клацаньем на этом блоке? Неужно писать скрипт?

Хмурый · 15.03.2006, 12:47

Вызываешь команду _list
Тыкаешь в блок
Жмешь Enter
Раскрывается текстовое окно, если нет - то жми F2
Среди информации увидишь запись

Block Name: "A#546$#$@$#%#45645"

Скопируй содержимое кавычек в буфер....

seaniv · 15.03.2006, 12:51

Можно через кнопку "редактирование атрибута" которая на панели Редактирования-2. Еще быстрее и конкретнее.

Dante · 15.03.2006, 12:53

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

Dante · 15.03.2006, 12:58

Цитата:

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

Можно через кнопку "редактирование атрибута" которая на панели Редактирования-2. Еще быстрее и конкретнее.

Очень интересно...
Откуда во всталеном из буфера обмена блоке атрибут (вставляется не блок, а часть рисунка, вставленная командой "ваставиить как блок")

Хмурый · 15.03.2006, 13:14

Цитата:

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

... Т.е. я хочу сказать один-два блока так нормально а если сто...

Для выполнения рутинных операций программа нужна

*Voland* · 15.03.2006, 15:15

Цитата:

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

Можно через кнопку "редактирование атрибута" которая на панели Редактирования-2. Еще быстрее и конкретнее.

Тут вроде блок редактируется, или я чего не понял. :?:
Мне кажется без лиспика не обойтись, чтобы методика была как предложил Хмурый. Только как реализовать, увы я не знаю, не владею.

Кулик Алексей aka kpblc · 15.03.2006, 15:43

Попробуй такое (код не проверял):

Код:

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

(defun c:mren (/ ent new_name old_name _cmdecho_ *error*)
  (defun *error* (msg)
    (if	_cmdecho_
      (setvar "cmdecho" _cmdecho)
      ) ;_ end of if
    (vla-endundomark
      (vla-get-activedocument (vlax-get-acad-object))
      ) ;_ end of vla-endundomark
    (princ msg)
    (princ)
    ) ;_ end of defun
  (vl-load-com)
  (vla-startundomark
    (vla-get-activedocument (vlax-get-acad-object))
    ) ;_ end of vla-startundomark
  (while (and (setq ent (entsel "\nУкажите блок"))
	      (= (cdr (assoc 0 (entget (car ent)))) "INSERT")
	      ) ;_ end of and
    (setq old_name  (cdr (assoc 2 (entget (car ent))))
	  _cmdecho_ (getvar "cmdecho")
	  ) ;_ end of setq
    (if	(= (setq
	     new_name (getstring
			(strcat "\nНовое имя блока <" old_name "> : ")
			) ;_ end of getstring
	     ) ;_ end of setq
	   ""
	   ) ;_ end of =
      (setq new_name old_name)
      ) ;_ end of if
    (setvar "cmdecho" 0)
    (command "_.-rename" "_block" old_name new_name)
    (setvar "cmdecho" _cmdecho_)
    ) ;_ end of while
  (vla-endundomark
    (vla-get-activedocument (vlax-get-acad-object))
    ) ;_ end of vla-endundomark
  ) ;_ end of defun

Кочетков Андрей · 15.03.2006, 15:53

Постоянно пользуюсь этим лиспом:

Автор Эдуард:

Код:

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

(defun C:Insert_rename
       (/ block_adoc ins new_name_block old_block obj sf_obj)
  (setq	block_adoc
	 (vla-get-blocks
	   (vla-get-ActiveDocument (vlax-get-acad-object))
	 ) ;_  end of_vla-get-blocks
  ) ;_  end of_setq
  (if
    (and
      (setq ins (car (entsel "\n Select insert for rename:")))
      (= (cdr (assoc 0 (entget ins))) "INSERT")
      (setq new_name_block (getstring "\nNew block name:"))
      (snvalid new_name_block)
      (not (tblsearch "block" new_name_block))
    ) ;_  end of_and
     (progn
       (setq
	 old_block (vla-item block_adoc (cdr (assoc 2 (entget ins))))
       ) ;_  end of_setq
       (vlax-for item old_block
	 (setq obj (cons item obj))
       ) ;_  end of_vlax-for
       (setq sf_obj (vlax-make-safearray
		      vlax-vbobject
		      (cons 0 (1- (length obj)))
		    ) ;_  end of_vlax-make-safearray
       ) ;_  end of_setq
       (vlax-safearray-fill sf_obj obj)
       (setq new_block
	      (vla-add block_adoc
		       (vlax-3d-point '(0 0 0))
		       new_name_block
	      ) ;_  end of_vla-add
       ) ;_  end of_setq
       (vla-CopyObjects
	 (vla-get-ActiveDocument (vlax-get-acad-object))
	 sf_obj
	 new_block
       ) ;_  end of_vla-CopyObjects
       (vla-put-name (vlax-ename->vla-object ins) new_name_block)
     ) ;_  end of_progn
  ) ;_  end of_if
) ;_  end of_defun

*Voland* · 15.03.2006, 15:59

2 kpblc
Блин, класно, работает :P :!:
Откуда вы такие умные?
У нас на работе я Автокад знаю лучше всех, чуть у кого вопрос, сразу ко мне, но тут я чувствую себя не только чайником, но и полным профаном. :?

Кулик Алексей aka kpblc · 15.03.2006, 16:06

А вот еще один вариант - получче будет имхо:

Код:

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

(defun c:mren2 (/ adoc ent block new_name)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (while (and (setq ent (entsel "\nУкажите блок <Выход> : "))
	      (= (cdr (assoc 0 (entget (car ent)))))
	      ) ;_ end of and
    (setq block
	   (vla-item (vla-get-blocks adoc) (cdr (assoc 2 (entget (car ent)))))
	  ) ;_ end of setq
    (if	(= (setq
	     new_name (getstring (strcat "\nНовое имя <"
					 (vla-get-name block)
					 "> : "
					 ) ;_ end of strcat
				 ) ;_ end of getstring
	     ) ;_ end of setq
	   ""
	   ) ;_ end of =
      (setq new_name (vla-get-name block))
      ) ;_ end of if
    (vla-put-name block new_name)
    ) ;_ end of while
  (vla-endundomark adoc)
  ) ;_ end of defun

Кулик Алексей aka kpblc · 15.03.2006, 16:26

> *Voland* : Ты второй вариант попробуй - он получше работает, да и обрабатывает все варианты (по-моему).

VVA · 15.03.2006, 16:48

Опечаточка

Цитата:

(while (and (setq ent (entsel "\nУкажите блок <Выход> : "))
(= (cdr (assoc 0 (entget (car ent)))))
) ;_ end of and

Наверно надо

Цитата:

(while (and (setq ent (entsel "\nУкажите блок <Выход> : "))
(= (cdr (assoc 0 (entget (car ent)))) "INSERT")
) ;_ end of and

Кулик Алексей aka kpblc · 15.03.2006, 16:56

Ну да, конечно. Однако запарка, пальцы заплетаются. Сорри. Исправленный вариант (чтоб не париться):

Код:

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

(defun c:mren2 (/ adoc ent block new_name)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (while (and (setq ent (entsel "\nУкажите блок <Выход> : "))
	      (= (cdr (assoc 0 (entget (car ent)))) "INSERT")
	      ) ;_ end of and
    (setq block
	   (vla-item (vla-get-blocks adoc) (cdr (assoc 2 (entget (car ent)))))
	  ) ;_ end of setq
    (if	(= (setq
	     new_name (getstring (strcat "\nНовое имя <"
					 (vla-get-name block)
					 "> : "
					 ) ;_ end of strcat
				 ) ;_ end of getstring
	     ) ;_ end of setq
	   ""
	   ) ;_ end of =
      (setq new_name (vla-get-name block))
      ) ;_ end of if
    (vla-put-name block new_name)
    ) ;_ end of while
  (vla-endundomark adoc)
  ) ;_ end of defun

*Voland* · 15.03.2006, 17:27

2 крЫс
И этот вариант работает, только я не ощутил разницы. Ну кроме длинны кода. А так супер, добавлено в мемориз, спасибо.
_____
P.S. Надо учить Lisp. :?

Кулик Алексей aka kpblc · 15.03.2006, 17:40

Второй вариант - он просто "чуть более программерский", работа идет напрямую с описанием блока. Первый - более "инженерный", использовалась (command).
Вот и все. Результат в принципе один и тот же. Если надо, то второй можно (при минимальной доработке) использовать для пакетного переименования блоков. Например, есть перечень имен блоков "кривых", и имен блоков "нормальных". Сделать перебор и всего делов

Profan · 15.03.2006, 19:34

Для *Voland* из сообщения 18.
Вот-вот, а каково тогда мне?

Profan · 15.03.2006, 19:50

Иногда достаточно расчленить этот "анонимный" блок и вдруг видишь, что появился блок по имени "Дверь-01".
Для Vova
В русском AutoCAD'е команде "_rename" соответствует команда "новоеимя". Вот эту команду и надо искать в Справке. Также много информации на слово "переименование".

Лентяй · 15.03.2006, 21:12

> kpblc,
Когда вы, наконец, уже прекратите поганить ActiveX коды всякими entsel'ами и entget'ами [sm1212]? "Утилем" надо пользоваться, как это делают все приличные люди - я, например [sm2001]:

Код:

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

(defun c:mren2 (/ adoc util ent block new_name) 
  (vl-load-com) 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
	        util (vla-get-utility adoc))
  (vla-startundomark adoc) 
  (while (and (vla-getEntity util 'ent nil  "\nУкажите блок <Выход> : ")
         (= (vla-get-ObjectName ent) "AcDbBlockReference")) ;_ end of and
    (setq block (vla-item (vla-get-blocks adoc) (vla-get-Name ent))) ;_ end of setq 
    (if (= (setq new_name (getstring (strcat "\nНовое имя <" 
                (vla-get-name block) 
                "> : " 
                ) ;_ end of strcat 
             ) ;_ end of getstring 
        ) ;_ end of setq 
      "" 
      ) ;_ end of = 
      (setq new_name (vla-get-name block)) 
      ) ;_ end of if 
    (vla-put-name block new_name) 
    ) ;_ end of while 
  (vla-endundomark adoc) 
  ) ;_ end of defun

Оставляю ваше многоэтажное форматирование в неприкисновенности

Apelsinov · 16.03.2006, 11:21

Лентяй

Цитата:

Когда вы, наконец, уже прекратите поганить ActiveX

наверное тогда, когда ты ,наконец , бедешь вставлять проверки в методы , а если промахнется чувак - будет ошибка с вылетом, и че это нормальнно, да?

Лентяй · 16.03.2006, 12:13

Цитата:

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

наверное тогда, когда ты ,наконец , бедешь вставлять проверки в методы , а если промахнется чувак - будет ошибка с вылетом, и че это нормальнно, да?

А нехай целится лучшее

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

Код:

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

(defun c:mren2 (/ adoc util ent block new_name) 
  (vl-load-com) 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
        util (vla-get-utility adoc)) 
  (vla-startundomark adoc)
  (if (not (vl-catch-all-error-p (vl-catch-all-apply
         '(lambda () (vla-getentity util 'ent nil  "\nУкажите блок <Выход> : ")))));not
    (if (and ent (= (vla-get-ObjectName ent) "AcDbBlockReference")) ;_ end of and
      (progn (setq block (vla-item (vla-get-blocks adoc) (vla-get-Name ent)));setq
        (if (= (setq new_name (getstring (strcat "\nНовое имя <" (vla-get-name block) "> : "))) "");=
          (setq new_name (vla-get-name block)));if
        (vla-put-name block new_name));progn
      (alert "Это не блок, дубина!"));if
    (alert "Целься точнее, мазила!"));if
  (vla-endundomark adoc)
);end

*Voland* · 16.03.2006, 12:53

Код:

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

 (alert "Это не блок, дубина!"));if

Почему то у меня это не выскакивает, а выскакивает сразу
Целься точнее, мазила!

А если я хочу переименовать несколько блоков (не все сразу, а пошагово). Впринципе можно перед вводом команды набрать multiple, но ведь как-то же это можно сделать с помощью кода, хотя я уже сделал кнопочку с макросом ^C^C_multiple mren, только выход из команды приходится делать кнопочкой Esc.
Последний код Лентяя мне не понравился, напрягает вылетающее окошко.

IgorSYS · 16.03.2006, 13:00

из меню Format>rename, из команды List имя блока копируешь
и пишешь новое.

Лентяй · 16.03.2006, 13:11

Вы хочите списков? Их есть у меня!

Код:

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

(defun c:mren2 (/ adoc ass block new_name) 
  (vl-load-com) 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)) 
        ass (vla-get-ActiveSelectionSet adoc))
  (if (> (vla-get-count ass) 0) (vla-clear ass))
  (vla-startundomark adoc)
  (vla-SelectOnScreen ass (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0)) 
    (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0)) (list "*Insert")))
  (vlax-for block ass
    (if (= (setq new_name (getstring (strcat "\nÍîâîå èìÿ <" (vla-get-name block) "> : "))) "");=
      (setq new_name (vla-get-name block)));if
    (vla-put-name block new_name));vlax-for
  (vla-endundomark adoc) 
);end
Заметьте, что при "списочном" подходе никакие проверки не нужны, потому как режим выбора будет продолжаться, пока в наборе не окажется хотя бы один блок.

*Voland* · 16.03.2006, 13:29

> Лентяй.
Отличный код, все выделенные блоки переименовываются поочереди.
По окончанию автоматом "выход", то что доктор прописал.
Спасибо.

DEM · 16.03.2006, 13:46 **Привет**

ХМ странно но у меня они не переименовываются
хотя диалог идет.

Apelsinov · 16.03.2006, 14:15

DEM
и не будут переименовываться, если в чертеже нет блока с таким именем (и будет ошибка с вылетом), а если есть, то блок будет заменен на блок с введенным именем. Прикольно, если в указуемом блоке есть атрибут - он останется и в замененном блоке...хотя описания с таким атрибутом нет, и этот атрибут даже отредактировать можно будет.

Apelsinov · 16.03.2006, 15:53

Пока Лентяй спит [sm2305] , новая поделка:
(между прочим getstring - это не ActiveX [sm2004] )

Код:

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

(defun c:test (/	      adoc	     ass
	       new_name	      new_block_obj  obj_lst
	       sf_obj	      old_block_ref  old_block_name
	       old_block_obj  block_adoc
	      )
  (vl-load-com)
  (setq	adoc (vla-get-activedocument (vlax-get-acad-object))
	ass  (vla-get-ActiveSelectionSet adoc)
  )
  (if (> (vla-get-count ass) 0)
    (vla-clear ass)
  )
  (vla-startundomark adoc)
  (vla-SelectOnScreen
    ass
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbinteger '(0 . 0))
      '(0)
    )
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbvariant '(0 . 0))
      (list "*Insert")
    )
  )
  (vlax-for old_block_ref ass
    (if	(= (setq new_name (vla-GetString
			    (vla-get-Utility adoc)
			    :vlax-false
			    (strcat "\nНовое имя <"
				    (setq old_block_name
					   (vla-get-name old_block_ref)
				    )
				    "> : "
			    )
			  )
	   )
	   ""
	)
      (princ "\nНифига не переименовал!")
      (if (null	(VL-CATCH-ALL-ERROR-P
		  (setq	new_block_obj
			 (VL-CATCH-ALL-APPLY
			   'vla-item
			   (list (setq block_adoc (vla-get-Blocks adoc))
				 new_name
			   )
			 )
		  )
		)
	  )
	(vla-put-name old_block_ref new_name)
	(if (VL-CATCH-ALL-ERROR-P
	      (setq old_block_obj
		     (VL-CATCH-ALL-APPLY
		       'vla-item
		       (list block_adoc old_block_name)
		     )
	      )
	    )
	  (princ "\nБезымянный блок?!!")
	  (progn
	    (setq new_block
		   (vla-add block_adoc
			    (vlax-3d-point '(0 0 0))
			    new_name
		   )
	    )
	    (vlax-for i	old_block_obj
	      (setq obj_lst (cons i obj_lst))
	    )
	    (vlax-safearray-fill
	      (setq sf_obj (vlax-make-safearray
			     vlax-vbobject
			     (cons 0 (1- (length obj_lst)))
			   )
	      )
	      obj_lst
	    )
	    (setq obj_lst nil)
	    (vla-CopyObjects
	      adoc
	      sf_obj
	      new_block
	    )
	    (vla-put-name old_block_ref new_name)
	  )
	)
      )
    )
  )
  (vla-endundomark adoc)
  (princ)
)
[quote]  [/quote]

Лентяй · 17.03.2006, 00:21

[quote="Apelsinov"](между прочим getstring - это не ActiveX [sm2004] )quote]
Ух и стерва, ты, Стеха, в смысле Apelsinov [sm1212]! Вы что, думаете, я в 2 часа ночи буду в силах чистоту идеи блюсти? Как бы не так! В следуюший раз я вам

Код:

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

(setq obj (vlax-enename->vla-object (car (entsel))))

куда-нить всуну :twisted:. Гусары, молчать!

v_alex · 17.03.2006, 07:23

у меня другой вопрос... тоже с переименованием... у меня есть блок "номер1"... я его копирую в корыстных целях и хочу сделать из него блок "номер2", но разбивать и создавать новый ой как нехочется... можно его как нибудь переименовать, но так чтобы блок "номер1" остался нетронутым...

vk · 17.03.2006, 07:46

Вполне.
_.wblock + _.insert

v_alex · 17.03.2006, 07:59

Цитата:

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

Вполне.
_.wblock + _.insert

спасибо... тоже выход...

...

Apelsinov · 17.03.2006, 10:14

Цитата:

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

у меня другой вопрос... тоже с переименованием... у меня есть блок "номер1"... я его копирую в корыстных целях и хочу сделать из него блок "номер2", но разбивать и создавать новый ой как нехочется... можно его как нибудь переименовать, но так чтобы блок "номер1" остался нетронутым...

Между прочим, приведенный выше мной лисп как-раз для этого и может быть предназначен. Если в чертеже нет описания блока с введенным на запрос именем, то будет создано такое описание, идентичное тому к которому принадлежала указанная вставка блока, и этой вставке будет присвоено ее имя. То есть в Вашем случае - Вы копируете блок и обрабатываете его этой прогой - в результате имеете блок с новым именем, идентичный старому, оставшемуся нетронутым.
А вот как раз для изначально поставленной задачи - переименования описания блока - эта прога не предназначена.
Кстати, в express есть команда blockreplace - которая заменяет вставке блока описание.

Vaidas · 17.03.2006, 20:36

Добавлю к переименованию группы блоков примитивный способ: если в чертеже есть блок "a", заменить его на "b.dwg" можно при помощи
Command: -Insert -> a=b ...
(Путь к "b.dwg" должен быть прописан в Support File Search Path)

ытя · 21.03.2006, 11:21

Цитата:

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

у меня другой вопрос... тоже с переименованием... у меня есть блок "номер1"... я его копирую в корыстных целях и хочу сделать из него блок "номер2", но разбивать и создавать новый ой как нехочется... можно его как нибудь переименовать, но так чтобы блок "номер1" остался нетронутым...

1. Копируем блок в буфер
2. Переименовываем блок в чертеже
3. Вставляем из буфера блок со старым именем

Acad2006: в редакторе блоков - save as

v_alex · 21.03.2006, 14:39

Цитата:

Сообщение от ытя

1. Копируем блок в буфер
2. Переименовываем блок в чертеже
3. Вставляем из буфера блок со старым именем
Acad2006: в редакторе блоков - save as

утомительная процедура... ИМХО... особенно если из 40 блоков надо всего лишь 20 переименовать, а 20 оставить с прежним именем... причем блоки уже давно вставлены...

ытя · 22.03.2006, 10:24

Если эти 40, это один и тот же блок, ничто не мешает ВЫРЕЗАТЬ в буфер эти

Цитата:

20 оставить с прежним именем

и после переименования оставшихся вставить из буфера в Original coordinates.
Всё это прекрасно загоняется в макрос.

21.02.2006, 17:36		#1
Можно-ли периименовать блок? Dante Николаев Регистрация: 01.12.2005 Сообщений: 76 Не кто не знает есть ли в Автокаде возможность переименовать созданный блок (в смысле одинаковых блоков блоков на чертеже много, т.е. один блок вставлен кучу раз из буфера с дурным именем, а потом размножен командой copy и нужно (т.е. из) назвать нормально).
Просмотров: 9318

	Реклама i