(in-package :custom)
(use-package :oli)

   

(defun sd-am-inq-dim-text-frame (dim-sel_item)
 (let* (
  (obj-id (sd-get-annotator-reference :object dim-sel_item))
  (fnc-string (format nil "Docu_inq_dim_common_text_attributes_old '~a'"  obj-id))
  (dim-txt-attributes (sd-execute-annotator-function :fnc fnc-string))
  (dim-txt-frame (getf dim-txt-attributes :frame)))
   
   dim-txt-frame))