[olga87]

Здравствуйте Уважаемые программисты!
Помогите пожалуйста исправить код ниже (Autocad 2007 lisp), чтобы он правильно отображал имя блока (статичного или динамического) в командной строке.
В некоторых случаях, например, вместо имени блока "Ось" (правильно отображается на палитре Свойства) код выводит имя "*U104".

Код:

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

(defun c:bn()
	(command "_.Undo" "_M")
	(setq obj(car (entsel "\nSelect a block :")))
	(setq obj(entget obj))
	(setq entType(cdr (assoc 0 obj)))
	(if (= entType "INSERT")
		(progn
			(setq bname(cdr (assoc 2 obj)))
			(princ (strcat "\nYou have picked block with name :" bname))
		)
		(progn
			(princ "\nYou have not selected a block!")
		)
	)
	(princ)
)

[Setvar]

Пример программы:

Код:

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

(defun C:ИМЯ ( / obj имя_блок)
(setq obj (entsel "\nВыберите блок: "))
(if (and obj (= (cdr (assoc 0 (entget (car obj)))) "INSERT"))
      (progn
      (setq имя_блок (vlax-get-property (vlax-ename->vla-object (car obj)) 'EffectiveName))
      (princ "\nИмя блока: ") (prin1 имя_блок)
      ) ; progn
      (prin "\nЭто не блок.")
) ; if
(princ)
)

[olga87]

Большое спасибо!