[elena ctenich]

(vla-get-effectivename (vlax-ename->vla-object (car (entsel))))

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

Чего?? Если это строка, то read в руки и вперед

[koMon]

видимо имеется в виду в команду

[elena ctenich]

Нужно создать лисп, вначале строки (defun c:/ короткое название/ в конце (princ) и ещё что-то...

[koMon]

Код:

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

 (defun c:EFF_NAME (/ command_interrupted entity_selected)
	(while (not command_interrupted)
		(setq entity_selected (vl-catch-all-apply 'entsel (list "\nВыберите блок: ")))
 		(cond
			(
				(vl-catch-all-error-p entity_selected)
					(setq command_interrupted t)
			)
			(
				(null entity_selected)
			)
			(
				t
					(if (= "AcDbBlockReference" (vla-get-objectname (vlax-ename->vla-object (car entity_selected))))
						(princ (vla-get-effectivename (vlax-ename->vla-object (car entity_selected))))
					)
			)
		)
	)
 	(princ)
)

[elena ctenich]

Спасибо koMon, то что надо!