바운더리안에 색변경 리습인데 될때가 있구 안될때가 있어요 수정 부탁드려요^^

어느 데이터에서는 되고 또 다른 데이터에서는 안되여.

고수님들의 조언을 부탁드립니다..

(defun c:SAL (/ SelectArea SelectAreaPoint AreaInEntitySelect tot i en)
     (setvar “cmdecho” 0)   
     (setq SelectArea (car (entsel “nt 경계 선택하세요 :”)))
     (setq SelectAreaPoint (getpolyvtx (entget SelectArea)))
     (setq AreaInEntitySelect (ssget “cp” SelectAreaPoint))
     (setq tot (sslength AreaInEntitySelect))
     (setq tot (+ 1 tot))
     (setq i 0)
     (while (/= tot i)
     (setq en (ssname AreaInEntitySelect i))
     (command “change” en “” “p” “c” “6” “”)
     (setq i (+ 1 i))
     )
)