;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                          ;
;         BALIGN.LSP   By Michael Bulatovich                               ;
;                         www.michaelbulatovich.ca                         ;
;                                                                          ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:balign (/ ss sslen ruler ruldata nexdata next counter snap)
  (print "First choose block/text entities to align....")
  (setq ss (ssget))
  (setq sslen (sslength ss))
  (print " .....Now draw the line for alignment:")
  (command "line" pause pause "")
  (setq ruler (entlast))
  (setq ruldata (entget ruler))
  (setq snap (cdr (assoc 10 ruldata)))
  (if ss
    (setq counter 0))
  (while (< counter sslen)
    (progn (setq next (ssname ss counter))
      (setq nexdata (entget next))
      (setq insert (cdr (assoc 10 nexdata)))
      (command "move" next "" insert  "per" snap)
      (setq counter (1+ counter))
      ))
  (entdel ruler)
  (princ)
  )