;;;
;;;	can't remember where this came from good stuf
;;;

(defun MTR(/ e t1 p l c)
  (setvar "CMDECHO" 0)
  (prompt "Select cutting edge(s)...")
  (setq e (ssget));(terpri)(terpri)
  (prompt "Select object(s) to trim...")
  (setq t1 (ssget));(terpri)(terpri)
  (setq p (getpoint"Pick side to trim..."))
  (command "TRIM" e "")
  (setq l (sslength t1))
  (setq c -1)
  (repeat l
    (setq c (1+ c))
    (command (list (ssname t1 c) p))
  )
  (command "")
  
  (prin1)
)

(princ)