필렛 다시 해주는 리습

리습도 하나 첨부합니다.
이 리습은 님이 하시려는 작업을 [완전 노가다] 에서 [약간만 노가다] 로 바꿔줄 겁니다.
아래코드 조금만 손보면 [약간만 노가다]에서 [완전 자동화]로 바꾸는 것도 가능할 겁니다.

(defun c:rer ( / rearcc rearc arcname arcr pt1 pt2 obje objecnt  plus point1x point1y limit line1 line11 line1s line1l smem os pt1v point2x point2y
                                            obje2 obje2cnt line2 line22 line2s line2l smem2 pt2v
                                            objea objeacnt limit plusa pointa pointax pointay         ) ;;;;;;;;;;;; 호를 클릭해서 같은크기의 필렛 다시 그리기

(defun *error* (msg)(princ “error: “)(princ msg) (setvar “osmode” os) (princ) )
(setq os (getvar “osmode”))
(setvar “osmode” 0)
 

(setq pointa (getpoint “n 다시그릴 호를 클릭..   ”  ))
(setq pointax (car pointa)
      pointay (cadr pointa))
 
(setq objea nil)   ;루프를 시작하기전에 변수에 초기값을 준다.
(setq objeacnt 0)
(setq limit 0)
(setq plusa 0) 

 
 (while (and (/= 1 objeacnt) (> 1000 limit) )    ; 클릭한 포인트를 기준으로 가장 근접한 두개의 선을 선택세트에 담는다.
   (setq objea nil)
   (setq plusa (+ plusa 0.5))
   ;(command “rectangle” (list ( + point1x plus ) (- point1y plus ) 0 )  (list ( – point1x plus ) (+ point1y plus ) 0 ) )             ;디버깅용 코드
   (setq objea (ssget “c” (list ( + pointax plusa ) (- pointay plusa ) 0 )  (list ( – pointax plusa ) (+ pointay plusa ) 0 )  ‘((0 . “ARC”))  ))
  
  
   (if (/= objea nil)
       (setq objeacnt (sslength objea))
   )
   (setq limit (+ limit 1))
   (if (= limit 100 )
      (progn
          (alert “호 객체 검색 안됨… (Cannot Find Arc)”)
   (exit)
      );progn end
   );if end 

  
 )  ;eob of while

;(setq rearcc (entsel “n 다시그릴 호를 클릭..  “))
;(setq rearc (entget (car rearcc)))
(setq rearcc (ssname objea 0))
(setq rearc (entget (ssname objea 0)))
(setq arcr (cdr (assoc 40 rearc))) ;반지름
(setq arcname (cdr (assoc 0 rearc))) ;객체이름

(if (/= arcname “ARC”)
  (progn
      (alert “호를 선택할 것”)
      (exit)
  );progn end
);if end 
 

  (command “erase” rearcc “”)
  (command “fillet” “r” arcr )
  (command “fillet” )
  (exit)

저도 웬만하면 파일 첨부를 하고 싶은데
파일첨부 버튼을 눌러도 파일첨부 창이 뜨지 않아 부득이 텍스트로 올렸습니다.
윈도우 10에 엣지 쓰고 있는데, 파일첨부 기능이 어제부터 안 되네요.