[Pilot]

Предположим в чертеже есть множество неименованных блоков:
A$C331925A2
A$C3048027C
...
A$C3526056F

Предположим, один из таких блоков нужен для дальнейшей работы и для удобства стоит дать ему более вразумительное имя.
Первое что приходит в голову - команда _Rename.
Но там среди списка длинных и очень похожих между собой имен сложно найти нужное.
При выделении блока не чертеже в свойствах можно увидеть его имя. Однако скопировать это имя - например в буфер обмена - не получается.
Приходится сперва записывать имя на бумажку а потом долго его искать в списке - прямо скажем, какой-то "несовременный" способ.
Каким образом решить вопрос более элегантно?

(У меня AutoCAD-2013. Возможно в поздних версиях это решено)

[Dakar]

В редакторе блоков есть кнопка "Сохранить блок как...". При сохранении указывается новое имя блока.

[Кулик Алексей aka kpblc]

В ком.строке вводи (cdr(assoc 2 (entget(car(entsel)))))
Укажешь блок - в строке будет выведено имя блока. Только с выбором не ошибись

[kacugu]

1. Двойной щелчок по нужному блоку. Открывается окно "Редактирование для создания или изменения блока". Имя нужного блока уже выделено, остаётся нажать ctrl-c
2. Лисп от Ли Мака: http://www.lee-mac.com/copyblock.html - команда rb, выбираем блок, вводим новое имя.

[Pilot]

kacugu спасибо! По двойному щелчку - простейшее решение! Но я не догадался.
Остальные способы проверю на досуге, еще раз всем спасибо!!

[alex2214]

Сообщение от Pilot kacugu спасибо! По двойному щелчку - простейшее решение! Но я не догадался. Остальные способы проверю на досуге, еще раз всем спасибо!!

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

[Krieger]

Сообщение от alex2214 Это решение касается блока без атрибутов, а как быстро скопировать имя блока с атрибутами. Пока нашел такой костыль- решение в новых версиях автокада командой Подсчет и вставкой поля, потом копия имени. Подскажите как можно быстро скопировать имя блока с атрибутами!

Попробуй такой код.
Набрать команду gb

Код:

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

;getblockname
;Кидает в буфер обмена название блока
(defun c:gb (/ blkname)
  (copyToclipboard (setq blkname (Vla-get-EffectiveName(vlax-ename->vla-object (Kr_entsel "\nВыбери блок: " '("INSERT") nil)))))
  (princ "\n")
  (princ blkname)
  (princ)
);defun

;|Функция Kr_entsel
*** Автор Морозов С.В. aka Krieger ***
Еденичный выбор объекта, замена функции entsel
Возвращает entity name выбранного примитива или nil, точку указки запоминает в переменной LASTPOINT
Параметры:
promt - предложение выбрать объект (string)
filter - фильтр объектов для выбора вида '("LINE" "LWPOLYLINE")
entlist - список примитивов которые не надо выбирать (либо список entity name, либо PICKSET)

Примеры:
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") nil)
(Kr_entsel "\nВыберите объекты" nil nil)
(setq aa nil) (Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (while (setq a (car (entsel))) (setq aa (append aa (list a)))))
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (ssget))

|;

(defun Kr_entsel (promt filter entlist / key n newentlist ent_point promt)
  
  (setq key T n 0 newentlist nil)
  (if (eq (type entlist) 'PICKSET)
    (progn
    	(while (setq a (ssname entlist n)) (setq newentlist (append newentlist (list a)) n (1+ n)))
    	(setq entlist newentlist)
    );progn
   );if
    (while key
    	(if (or (setq ent_point (entsel promt)) (= (getvar "ERRNO") 7))
	  	(if (or (eq (type ent_point) 'LIST) (not ent_point))
		  (if ent_point
		    (if (member (setq ent (car ent_point)) entlist)
		      (princ "\nПримитив уже выбран")
		      (if filter
			      (if (not (member (cdr (assoc 0 (entget ent))) filter))
				(progn (setq str "\nНе верный выбор, выберите: ")
				  (princ (substr (setq str (foreach n filter (setq str (strcat str n ", ")))) 1 (- (strlen str) 2)))
				);progn
				(setq key nil)
			      );if
				(setq key nil)
			);if
		    );if
		    (setq key T)
		  );if
	    	(setq key nil)
	    );if
	  (setq key nil)
      	);if
     );while
  (if (eq (type ent_point) 'LIST)
    (progn (setvar "LASTPOINT" (cadr ent_point)) ent)
    ent_point
  );if
);defun

;  ! ***************************************************************************
;; !                           copyToclipboard
;; ! ***************************************************************************
;; ! Function : Copy text to clipboard
;; ! Argument : 'str'     - String
;; ! Returns  : nil
;; see http://www.theswamp.org/index.php?topic=21764.new
;; ! ****************************************************************************

(defun copyToclipboard ( text / htmlfile result)
 (setq result
        (vlax-invoke
            (vlax-get
                (vlax-get
                    (setq htmlfile (vlax-create-object "htmlfile"))
                   'ParentWindow
                )
               'ClipBoardData
            )
           'SetData
            "Text"
            text
        )
    )

    (vlax-release-object htmlfile)
    result
)

[kuraga97]

Сообщение от alex2214 Это решение касается блока без атрибутов, а как быстро скопировать имя блока с атрибутами. Пока нашел такой костыль- решение в новых версиях автокада командой Подсчет и вставкой поля, потом копия имени. Подскажите как можно быстро скопировать имя блока с атрибутами!

Точно так же, только не двойным кликом заходить в окно "Редактирование для создания или изменения блока", а выделять блок и на ленте нажимать кнопку "Редактор блоков".

[gumel]

Для подобной задачи использую очень удобный макрос (по клику на блок, вводишь новое имя):
^C^P-rename;_b;(vla-get-effectivename (vlax-ename->vla-object (car(entsel))));

[alex2214]

Сообщение от kuraga97 Точно так же, только не двойным кликом заходить в окно "Редактирование для создания или изменения блока", а выделять блок и на ленте нажимать кнопку "Редактор блоков".

Спасибо. То что нужно. Как просто оказалось, сначала прочитал, думал что просто редактор запустится, пока не попробовал)))