Атрибуты: как считать их значения

(defun c:binc (/ oldStart oldPref oldSuf oldEcho
        oldSize oldBlock temBl *error* att attr apnum:tag pt)
;==== Local functions ============
;;[b]Эта и есть нужная тебе функция  [/b]
;; obj — Ename or Vla object of block
;; att_list — list ((Tag_Name1 . Value1)(Tag_Name2 . Value2) ...)
;;                 Tag_Name — string
;;                    Value — string
(defun mip-block-setattr-bylist (obj att_list / txt lst)
(if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
(setq att_list (mapcar '(lambda(x)(cons (strcase (mip-conv-to-str(car x)))(mip-conv-to-str(cdr x)))) att_list))
  (if (and obj
           (not(vlax-erased-p obj))
           (= (vla-get-ObjectName obj) "AcDbBlockReference")
     (eq :vlax-true (vla-get-HasAttributes obj))
     (vlax-property-available-p obj 'Hasattributes)
     (vlax-write-enabled-p obj)
      )
    (vl-catch-all-apply
      (function
  (lambda  ()
          (foreach at (vlax-invoke obj 'Getattributes)
            (if (setq lst (assoc(strcase(vla-get-TagString at)) att_list))
              (vla-put-TextString at (cdr lst))
            )
            )
          )
        )
      )
    )
  )
;==== Local functions END ============
....
;;;[b]Это п.1[/b]
  (setvar "ATTDIA" 0)(setvar "ATTREQ" 0)
....
;;;[b]Это п.2[/b]
  (command "_-insert" apnum:Block "_s" apnum:Size pause "0")
....
;;;[b]Это п.3[/b]
   (mip-block-setattr-bylist (entlast)
     (list(cons (strcase (mip-conv-to-str apnum:tag))
                (strcat apnum:Pref(itoa apnum:Num)apnum:Suf))))
  ....
  (setvar "ATTDIA" att)(setvar "ATTREQ" attr)
  ....