求助:框選 刪除擴展資料?

lincctw_ccl

各位好!!
以下是我依版主所寫的刪除擴展資料去修改的!!
但是出現錯誤~請問有人能幫看看是哪出現錯誤嗎?
謝謝!!

(defun c:ggg ()
    (princ "\n框選消除範圍:")
    (setq pt1 (getpoint))
    (setq pt3 (getcorner pt1))
    (setq ssx (ssget "c" pt1 pt3 '((0 . "*POLYLINE"))))
    (progn
      (setq i 0
            n (sslength ssx)
      )
      (repeat n
        (setq e (car ssx))
        (entmod
          (list
            (cons -1 e)
            (cons
              -3
              (mapcar
                'list
                (mapcar 'car (cdr (assoc -3 (entget e '("*")))))
              )
            )
          )
        )
        (setq i (1+ i))
      )
    )
  )
)