;;;-----------padleft-------------
;;;pads a string from left
;;;len is desired length
;;;----------------------------
(defun padleft (str char len )
  (repeat (- len (strlen str))
    (setq str (strcat char str))
  )
)
;;;
(defun padleft2 (str char len / temp)
  (repeat (- len (strlen str))
    (setq temp (cons char temp))
  )
  (strcat (apply 'strcat temp) str)
)
;;;-----------padright-------------
;;;pads a string from right
;;;len is desired length
;;;----------------------------
(defun padright (str char len )
  (repeat (- len (strlen str))
    (setq str (strcat str char))
  )
)
;;;
(defun padright2 (str char len / temp)
  (repeat (- len (strlen str))
    (setq temp (cons char temp))
  )
  (strcat str (apply 'strcat temp))
)