;Extend
(defun c:aex(/ ent1 ent2)
(setq ent1 (entsel "n 기준 객체 1개를 선택하세요 "))
(princ "n 연장할 객체를 선택하세요(다중선택 가능) ")
(setq ent2 (ssget))
(command "extend" ent1 "" "e" "e" ent2 "")
)

;Trim
(defun c:atr(/ ent1 ent2)
(setq ent1 (entsel "n 기준 객체 1개를 선택하세요 "))
(princ "n 연장할 객체를 선택하세요(다중선택 가능) ")
(setq ent2 (ssget))
(command "trim" ent1 "" "e" "e" ent2 "" )
)