[Zaghim]

Друзья, есть динамический блок. Имя его Truba. Когда вставляю кучу блоков, имена их становятся не труба, а *U232 и тому подобные. Каким образом вытащить программно его истинное имя?

[gomer]

Сообщение от Sanchev подскажите тупому начинающему, что является параметром функции blk-get-name-vla?

примитив 'ENAME Во втором приближении можно сделать так

Код:

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

 (defun *-get-EffectiveName (ent)
  (if (= 'ENAME
	 (type ent)
	 (*-get-EffectiveName (vlax-ename->vla-object ent))
	 (vla-get-EffectiveName ent)
      )
  )
)

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

vla-указатель на вхождение блока.
P.S. gomer, по-моему, ты со скобками напутал... ИМХО должно быть нечто типа

Код:

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

 (vl-load-com)

(defun *-get-name (ent)
  (cond
    ((= (type ent) 'ename)
     (*-get-name (vlax-ename->vla-object ent))
    )
    ((and (= (type ent) 'vla-object)
	  (vlax-property-available-p ent 'effectivename)
     )
     (vla-get-effectivename ent)
    )
    ((and (= (type ent) 'vla-object)
	  (vlax-property-available-p ent 'name)
     )
     (vla-get-name ent)
    )
  )
)

[Sanchev]

Сообщение от gomer примитив 'ENAME Во втором приближении можно сделать так

спасибо, но, другими словами, вопрос заключался в том, как запустить эту программу?

Сообщение от Do$ Код: [Выделить все] (defun blk-get-name-vla (ent) ;;(blk-get-name-vla (car (entsel))) (vla-get-EffectiveName (vlax-ename->vla-object ent)) ) ;_ end of defun

[Do$]

Это не программа, это функция, она может использоваться в программе посредством ее вызова. А пример вызова - в закомментированной строке.