리습3개 합치는 방법좀 알려주세요

안녕하세요 ~~ 알려주신 리습 3개를 합치고 싶습니다. 혹시 알려주시면 감사하겠습니다.
첫번째

(defun c:ss()
 (sssetfirst nil (ssget ‘((8 . “_SS_CONNECTOR”))))
 (princ)
)

두번째

(defun c:ll( / LM:ss->ent ss s)
 (defun LM:ss->ent ( ss / i l )
  (if ss
   (repeat (setq i (sslength ss))
    (setq l (cons (ssname ss (setq i (1- i))) l))
   )
  )
 )
 (if (setq ss (ssadd) s (ssget ‘((0 . “TEXT,MTEXT”))))
  (progn
   (foreach e (LM:ss->ent s)
    (if (>= (strlen (cdr (assoc 1 (entget e)))) 18)
     (setq ss (ssadd e ss))
    )
   )
   (sssetfirst nil ss)
  )
 )
 (princ)
)

세번째

(defun c:aa (/ ss ix)
  (prompt “nt도면내 모든 블록만 선택됩니다.”)
  (setq ss (ssget (list (cons 0 “insert”))))
  (sssetfirst nil ss)
  (setq ix (sslength ss)) (princ “nt블록 “)(princ ix)(princ ” 개가 선택되었지롱..”)
  (princ)
);defun

;;