선택한 도면층의 색깔 및 두께 바꾸는 리습 수정 부탁합니다.

(defun C:TW2()
(setq !Sel (entsel “n기본 객체 선택: “))
(setq !Layer (cdr (assoc 8 (entget (car !Sel)))))
(setq !YN (getstring “n전체(Y)/부분: “))
(if (= (strcase !YN) “Y”)
(progn
(setq !Sel (ssget “x” (list (cons 8 !Layer))))
(setq !Sel (ssget “x” ‘((-4 . ““))))
)
(progn
(setq !Sel (ssget (list (cons 8 !Layer))))
(setq !Sel (ssget “p” ‘((-4 . ““))))
)
)
(setq !Color (getint “n변경할 색상 번호: “))
(command “layer” “c” !Color !Layer “”)
(setq !Width (getreal “n변경할 폭: “))
(setq !Index 0)
(repeat (sslength !Sel)
(setq !EntName (ssname !Sel !Index))
(setq !EntType (cdr (assoc 0 (entget !EntName))))
(cond
((= !EntType “LINE”)
(command “pedit” !EntName “y” “w” !Width “”)
)
((= !EntType “LWPOLYLINE”)
(command “pedit” !EntName “w” !Width “”)
)
)
(setq !Index (1+ !Index))
)
)

;전체로 했을때는 되는데 부분(N)로 해도 전체적으로 두께와 색상이 변합니다.
선택적으로 변하게 수정 부탁합니다…