(defun C:SCHM(/ sichamer cmde dis en1 en2 ena enb pt1 pt2 sp1 ep1  sp ep enc)
   (defun *error* (msg)
      (setq *error* sichamer)
      (command "undo" "e")
      (command "ucs" "P")
      (setvar "CMDECHO" cmde)
  (setvar "CHAMFERA" cham)
  (setvar "CHAMFERB" chamb)
      (princ)
   )
  (setq sichamer *error*)
   (setvar "ucsfollow" 0)
   (setq cmde (getvar "CMDECHO"))
   (setq cham (getvar "CHAMFERA"))
   (setq chamb (getvar "CHAMFER"))
   (setvar "CMDECHO" 0)
   (command "undo" "group")
   (command "ucs" "w")
   (setq dis (getdist (strcat "n 모따기 거리 입력 :<"(rtos cham)"> :")))
   (if (= dis nil) (setq dis cham))
   (setq k 5)
   (while k
      (setq en2 (entsel "n 모따기 할 대상 객체선택 :"))
      (if en2
         (progn
            (redraw (car en2) 3)
            (setq en1 (entsel "n 모따기 제외 대상 객체선택:"))
            (setq ena (car en1) pt1 (cadr en1))
            (setq enb (car en2) pt2 (cadr en2))
            (setq sp1 (assoc 10 (entget ena))
     ep1 (assoc 11 (entget ena)))
            (setvar "CHAMFERA" dis)
            (setvar "CHAMFERB" dis)
            (command "CHAMFER" en1 en2)
;;;;---------------------------------------------------------------
            (setq enc (entget (car en1)))
            (setq sp (assoc 10 enc))
            (setq ep (assoc 11 enc))
            (setq enc (subst sp1 sp enc) enc (subst ep1 ep enc))
            (entmod enc)
         )
         (setq k nil)
      ))
      (setq *error* sichamer)
      (command "undo" "e")
      (command "ucs" "P")
 (setvar "CHAMFERA" cham)
 (setvar "CHAMFERB" chamb)
      (setvar "CMDECHO" cmde)
      (princ)
)

;;;;--------------------end-----------------------------------------
; 교차점에 선은 그대로 두고 모따기 하는 리습

(defun C:NCHM(/ sichamer cmde dis en1 en2 ena enb pt1 pt2 sp1 ep1  sp ep enc sp2 ep2 spb epb enc2)
   (defun *error* (msg)
      (setq *error* sichamer)
      (command "undo" "e")
      (command "ucs" "P")
      (setvar "CMDECHO" cmde)
  (setvar "CHAMFERA" cham)
  (setvar "CHAMFERB" chamb)
      (princ)
   )
  (setq sichamer *error*)
   (setvar "ucsfollow" 0)
   (setq cmde (getvar "CMDECHO"))
   (setq cham (getvar "CHAMFERA"))
   (setq chamb (getvar "CHAMFERB"))
   (setvar "CMDECHO" 0)
   (command "undo" "group")
   (command "ucs" "w")
   (setq dis (getdist (strcat "n 모따기 거리 입력 :<"(rtos cham)"> :")))
   (if (= dis nil) (setq dis cham))
   (setq k 5)
   (while k
      (setq en2 (entsel "n 객체선택 :"))
      (if en2
         (progn
            (redraw (car en2) 3)
            (setq en1 (entsel "n 다음 객체선택:"))
            (setq ena (car en1) pt1 (cadr en1))
            (setq enb (car en2) pt2 (cadr en2))
            (setq sp1 (assoc 10 (entget ena))
     ep1 (assoc 11 (entget ena)))
            (setq sp2 (assoc 10 (entget enb))
     ep2 (assoc 11 (entget enb)))
            (setvar "CHAMFERA" dis)
            (setvar "CHAMFERB" dis)
            (command "CHAMFER" en1 en2)
;;;;---------------------------------------------------------------
            (setq enc (entget (car en1)))
            (setq sp (assoc 10 enc))
            (setq ep (assoc 11 enc))
            (setq enc (subst sp1 sp enc) enc (subst ep1 ep enc))
            (entmod enc)
   
   (setq enc2 (entget (car en2)))
            (setq spb (assoc 10 enc2))
            (setq epb (assoc 11 enc2))
            (setq enc2 (subst sp2 spb enc2) enc2 (subst ep2 epb enc2))
            (entmod enc2)
         )
         (setq k nil)
      ))
      (setq *error* sichamer)
      (command "undo" "e")
      (command "ucs" "P")
 (setvar "CHAMFERA" cham)
 (setvar "CHAMFERB" chamb)
      (setvar "CMDECHO" cmde)
      (princ)
)

;;;;--------------------end-----------------------------------------