anchor.diff:               );END or
              (getvar "TEXTSTYLE")
              _ST
  -         ) ;_ end of if
  -       ) ;_ end of tblsearch
  +         );END if
  +       );END tblsearch
      _SP _ANG
  - ) ;_ end of setq
  + );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 of if
  +   );END if
      (setq
        _ANG  (if (= (type _ANG) 'list)
                (angle _INS _ANG)
                (progn
                  (setq _SP _INS)
                  (* pi (/ _ANG 180.0))
  -             ) ;_ end of progn
  -           ) ;_ end of if
  -   ) ;_ end of setq
  - ) ;_ end of if
  +             );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))
  
positive.code:    ((or (= _J "BCENTER") (= _J "BC")) (setq _J72 1 _J73 1 _RE t))
     ((or (= _J "BRIGHT") (= _J "BR")) (setq _J72 2 _J73 1 _RE t))
     (t (setq _J72 0 _J73 0))
   ) ;_ end of cond
   (entmakex
     (list
       '(0 . "TEXT")
  
negative.code:   (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
  )
  