Kor_Storm님이 올려주신 리습은
양 끝을 20씩 되게 하는 리습을 잘쓰고있는데…
이 리습을 수정해서 바깥라인에서 2mm 정도 뛰우고
양 끝을 20씩 되게 하는 작업도 한번의 명령으로 연속작업이 가능한가요?



(defun c:test( / sl-mapcar-ens ss)
 (defun sl-mapcar-ens (func ss) (mapcar func (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))))
 (princ “n선 양끝 남기기”)
 (and
  (setq ss (ssget ‘((0 . “LINE”))))  
  (or *dis* (setq *dis* 20))
  (setq *dis* (cond ((getdist (strcat “n남길 길이 입력 <” (vl-princ-to-string *dis*) “>:”))) (*dis*)))  
  (sl-mapcar-ens
   ‘(lambda (en / ent1 len ep ent2 sp)    
    (setq ent1 (entget en) len (vlax-curve-getdistatparam en (vlax-curve-getendparam en)))    
    (if (> len *dis*)
     (progn
      (setq ep (vlax-curve-getpointatdist en *dis*) sp (vlax-curve-getpointatdist en (- len *dis*)))
      (setq nen (entmakex (vl-remove ‘(lambda (-1 5)) (entget en))) ent2 (entget nen))     
      (entmod (subst (cons 10 sp) (assoc 10 ent1) ent1))
      (entmod (subst (cons 11 ep) (assoc 11 ent2) ent2))
     )
     (princ “n입력한 길이보다 선이 짧습니다.”)
    )
   )
   ss
  )
 )
 (princ)
)

직선을 끊은후 양쪽으로 원하는  길이로 만드는 리습이 가능할까요?
현재 직선을 브레이크로 끊은후다시  len 명령후 total값 20으로 주고 끊은 선을 다시 선택해 양쪽으로
20이 되게 하는 작업을 합니다.. 워낙 반복적으로 많이 해야해서 리습으로 한번의 명령으로
될 듯한데 어찌 만들어야 할지 도통 감이 오질 않네요;
브레이크 리습 몇몇 써봤지만 원하는게 없어서 응용을해야 하는데 쉽지가 안네요;;
고수분들 도와주세요 ;;