경계선 지정없이 자를선만 선택하면 트림이 되는....
(경계선은 선택한 자를선에서 가장 가까운 객체를 경계로 자동 인식함)

;
;자동트림 - 라인,폴리라인,원,아크
;
(defun C:TR(/ ent entl ent-p ent-name ent-length ent-length2 ent-ptlist ents-t ents)
  (vl-load-com)
    (setq osm (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setvar "osmode" 0)
  (setq ent (entsel "n 잘라낼 객체를 선택 하세요 :"))
 (while (/= cadr ENT nil)
  (setq ent-p (car (cdr ent)))
  (setq entl (entget (car ent)))
  (setq ent-name (cdr (assoc 0 entl)))
  (command "Lengthen" ent "")
  (setq ent-length (getvar "PERIMETER"))
  (cond
    ((= ent-name "LWPOLYLINE")(setq ent-ptlist (getpolyvtx entl)))
    ((= ent-name "LINE")      (setq ent-ptlist (list (cdr (assoc 10 entl)) (cdr (assoc 11 entl)))))
    ((= ent-name "ARC")       (tt-sub_arc2 (car ent)))
    ((= ent-name "CIRCLE")    (tt-sub_arc2 (car ent)))
    (T (prompt "nt [안내] 라인,폴리라인,원,아크가 아닙니다 !! :"))
  );cond
  (if ent-ptlist
    (progn
      (setq ents-t (ssget "F" ent-ptlist))
      (command "Trim" ents-t "" ent-p "")
      (if ent
        (progn
          (command "Lengthen" ent "")
          (setq ent-length2 (getvar "PERIMETER"))
          (if (= ent-length ent-length2)
            (command "Erase" ent "")
          );if
        );progn
      );if
    );progn
  );if
 (setq ENT (entsel "n 다음 객체를 선택하세요(취소는...ESC 또는 빈공간 선택) :"))
 ); while
   (setvar "osmode" 32)
 (princ)
);defun