Вставка блока с редактированием атрибутов

(defun ru-block-insert-attedit
                               (block_name ins_pnt x_scale y_scale z_scale rotation / obj)
;;; Вставка блока. Возвращает VLA-object
;;; (ru-block-insert-obj "ОТМЕТКА_ВЛЕВО_ВВЕРХ" (getpoint
;;; "Точка_вставки:") 1 1 1 0)
 ;|
(ru-block-insert-attedit "test_attr.dwg" (getpoint "Точка вставки: ") 1 1 1 0)
(ru-block-insert-attedit "test_attr" (getpoint "Точка вставки: ") 1 1 1 0)
(ru-block-insert-attedit "test_attr2" (trans (getpoint "Точка вставки: ") 1 0) 1 1 1 0)

|;
 (if (setq obj (ru-block-insert-obj
                block_name
                ins_pnt
                x_scale
                y_scale
                z_scale
                rotation
               ) ;_ end of ru-block-insert-obj
 ;_ end of ru-block-insert-obj
     ) ;_ end of setq
  (progn
   ;; не срабатывает!
   (if (= (vla-get-hasattributes obj) :vlax-true)
    (vl-cmdf "_.DDATTE" (vlax-vla-object->ename obj))
   ) ;_ end of if
   obj
  ) ;_ end of progn
  nil
 ) ;_ end of if
) ;_ end of defun