  ; Convert text (or attdef) to left justified text (or attdef).
  ; Copyright 1992  Rocket Software
  ; Disclaimer: this program has no political significance.
 (DEFUN C:LEFT ( / aa bb ll)
   (setvar "cmdecho" 0)
   (command "undo" "mark")
   (setq aa (entget (car (entsel "Pick text to left justify:\n"))))
   (if (or (= (cdr (assoc 0 aa)) "TEXT")
           (= (cdr (assoc 0 aa)) "ATTDEF"))
       (progn
            (setq bb (cdr (assoc 10 aa)))
            (setq ll (getpoint bb
                              "New insertion point (<Return> for current): "))
            (if ll (setq aa (subst (cons 10 ll) (assoc 10 aa) aa)))
            (cond ((and (assoc 73 aa) (= (cdr (assoc 0 aa)) "TEXT"))
                   (setq aa (subst (cons 73 0) (assoc 73 aa) aa)))
                  ((and (assoc 74 aa) (= (cdr (assoc 0 aa)) "ATTDEF"))
                   (setq aa (subst (cons 74 0) (assoc 74 aa) aa))))
            (entmod (subst (cons 72 0) (assoc 72 aa) aa))))
 (princ))