포인트를 심볼로 바꾸는 과정에서 에러가 나는데요~

수치지형도 5000레이어가 캐드에서 포인트로 불러와 졌는데요

심볼로 바꿀려고 아래 리습을 사용했더니

빨간 서클부분은 중첩해서 심볼이 생성되고

노란 서클부분은 아예 심볼화가 되지 않네요.

리습 잘 하시는분들 한번 봐주세요

 ————————————–

(defun dxf(code elist)
  (cdr (assoc code elist)))

(defun dtr(a) (* pi (/ a 180.0)))

(defun rtd(a) (/ (* a 180) pi))

(defun c:p2b()
  (setq cnt 0 err nil)
  (setq ss (ssget “x” ‘((0 . “POINT”))))
  (repeat (sslength ss)
    (setq s1 (entget (ssname ss cnt)))
    (setq bn (dxf 8 s1))
    (if (tblsearch “block” bn)(progn
      (setq xy (dxf 10 s1))
      (if (tblsearch “layer” bn)
        (setvar “clayer” bn)
 (command “layer” “m” bn “”)
      )
      (command “insert” bn xy “” “” “”))
    (progn
      (setq err (append err (list bn))))
    )
    (setq cnt (1+ cnt))
   )
   (if err (princ err))(princ)
 )

——————————————-