;| ............................................................................................
 드래그로 모따기(필렛R) 하기. 연속작업이 가능하며,
 작업 방법은 모따기(필렛R)할 부분의 안쪽에서 바깥으로 드래그하면 됨.
    ───┐여기로
        ↗ │
    여기서│
...............................................................................................|;

;;Chamfer(C)........................................................
(defun c:DCF(/ chdis1 pnt1 pnt2 ss k)
 (prompt "n드래그로 모따기(C) 하기..(연속 가능)")
 (setq os (getvar "osmode"))
 (if (not chdis) (setq chdis 1.0))
 (setq chdis1 (getreal (strcat "n모따기거리(C)<" (rtos chdis 2 2) ">:")))
 (if chdis1 (setq chdis chdis1)) 
 (command "chamfer" "d" chdis chdis)
 (command "undo" "be")
 (setvar "osmode" 0)
 (setq pnt1 (getpoint "nFirst point[@ Inside]:"))
 (while pnt1
  (setq pnt2 (getcorner pnt1 "nSecond point[to Outside]:")) 
  (setq ss (ssget "c" pnt1 pnt2 (list (cons 0 "line,arc,pline,*polyline,circle")))) 
  (command "chamfer")
  (setq k 0) 
  (repeat 2 
   (command (list (ssname ss k) pnt1)) 
   (setq k (1+ k)) 
  ) 
  (setq pnt1 (getpoint "nFirst point:"))
 )
 (setvar "osmode" os)
 (command "undo" "e")
(princ) 
)

;;Fillet(R)............................................................
(defun c:DFL(/ radis1 pnt1 pnt2 ss k)
 (prompt "n드래그로 필렛(R) 하기..(연속가능)")
 (setq os (getvar "osmode"))
 (if (not radis) (setq radis 1.0))
 (setq radis1 (getreal (strcat "n필렛반경(R)<" (rtos radis 2 2) ">:?")))
 (if radis1 (setq radis radis1)) 
 (command "fillet" "r" radis)
 (command "undo" "be" "")
 (setvar "osmode" 0)
 (setq pnt1 (getpoint "nFirst point[@ Inside]:"))
 (while pnt1
  (setq pnt2 (getcorner pnt1 "nSecond point[Outside]:")) 
  (setq ss (ssget "c" pnt1 pnt2 (list (cons 0 "line,arc,pline,*polyline,circle"))))                               
  (command "fillet")
  (setq k 0) 
  (repeat 2 
   (command (list (ssname ss k) pnt1)) 
   (setq k (1+ k)) 
  ) 
  (setq pnt1 (getpoint "nFirst point[Inside]:"))
 )
 (setvar "osmode" os)
 (command "undo" "e")
(princ) 
)