[Mozgunov]

Почему когда я хочу получить имя динамического блока функцией ниже она выдаёт мне вместо имени *U9465? Спасибо! Причём если блок не изменялся (растягивался) то функция работает корректно.

Код:

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

 (defun c:pe_hmt (/ adoc ent block_name )
(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark adoc)
(setq ent (entsel "\nУкажите блок <Выход> : "))
(setq block(vla-item (vla-get-blocks adoc) (cdr (assoc 2 (entget (car ent)))))) ;_ end of setq

(setq block_name (vla-get-name block))
(vla-endundomark adoc)
(alert block_name)

) ;_ end of defun

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

Потому что внесение любы изменений в дин.блок (имею в виду изменение свойств) преобразовывает блок в анонимный. Для получения имени примитива я использую функцию наподобие

Код:

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

 (defun _kpblc-get-ent-name (ent /)
                           ;|
*    Получение свойства name указанного примитива
*    Параметры вызова:
	ent	указатель на обрабатываемый примитив
		допускаются значения
		ename
		vla-object
		string (хендл объекта текущего файла)
|;
  (cond
    ((and (= (type ent) 'str)
          (handent ent)
          ) ;_ end of and
     (_kpblc-get-ent-name ent)
     )
    ((= (type ent) 'str)
     ent
     )
    ((and (setq ent (cond ((= (type ent) 'ename)
                           (vlax-ename->vla-object ent)
                           )
                          ) ;_ end of cond
                ) ;_ end of setq
          (vlax-property-available-p ent 'effectivename)
          ) ;_ end of and
     (vla-get-effectivename ent)
     )
    ((and ent (vlax-property-available-p ent 'name))
     (vla-get-name ent)
     )
    ) ;_ end of cond
  ) ;_ end of defun

[Mozgunov]

Спасибо! а указатель на обрабатываемый примитив как получить? Получаю так

Код:

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

 (setq ent (entsel "\nУкажите блок <Выход> : "))

не получается (

[TararykovDG]

Код:

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

 
(setq ent (car (entsel "\nУкажите блок <Выход> : ")))

[Mozgunov]

TararykovDG, Спасибо) Я понял. Я передавал точечную пару вместо имени.

[TararykovDG]

Сообщение от Mozgunov Я передавал точечную пару вместо имени.

Если уж быть до конца точным, то entsel возвращает список из двух элементов, а не точечную пару