anchor.diff:    (vla-delete (vlax-ename->vla-object ent_name))
     (princ)
   )
  +(defun c:1( / x )
  +  (defun LM:getdynprops ( blk )
  +    (mapcar '(lambda ( x ) (cons (vla-get-propertyname x) (vlax-get x 'value)))
  +        (vlax-invoke blk 'getdynamicblockproperties)
  +    )
  +  )
  +  (setq x (vlax-ename->vla-object (car (entsel))) )
  +  (LM:getdynprops x )
  +)
  +(defun DT:GetHandle( ent_name )
  +  ; Returns a string with provided entity's handle
  +  ; ent_name [ename] - Entity name
  +  (if ent_name
  +    (cdr (assoc 5 (entget ent_name)))
  +  );END if
  +)
  
positive.code:        (if (= (setq _TAB (getvar "CTAB")) "Model")
           0
           1
         ) ;_ end of if
       ) ;_ end of cons
       (cons 410 _TAB)
       (cons 8
         (if (not _LA)
           (getvar "CLAYER")
           _LA
         ) ;_ end of if
       ) ;_ end of cons
       '(100 . "AcDbText")
       (cons 10 _INS)
       (cons 40
  
negative.code:              );END or
             (getvar "TEXTSTYLE")
             _ST
           );END if
         );END tblsearch
     _SP _ANG
   );END setq
   (if (or (= _J "ALIGN") (= _J "A") (= _J "FIT") (= _J "F"))
     (if (= (type _ANG) 'list)
       (setq _ANG (angle _INS _ANG))
       (setq _J "LEFT")
     );END if
     (setq
       _ANG  (if (= (type _ANG) 'list)
               (angle _INS _ANG)
               (progn
                 (setq _SP _INS)
                 (* pi (/ _ANG 180.0))
               );END progn
             );END if
     );END setq
   );END if
   (cond
     ((or (= _J "LEFT") (= _J "L")) (setq _J72 0 _J73 0))
     ((or (= _J "CENTER") (= _J "C")) (setq _J72 1 _J73 0 _RE t))
  