[求助]：help me !!!! if u can

tomwaits

关于批量插入的lisp加载好了之后，在acad中使用命令xdtb－minsertdwg时跳出这句话：未处理的异常c0000005（access  violation  writing  0x77f25a11）,地址：7c80979dh。谁能帮我解决一下，先谢了。下面是程序：
(defun c:XDTB_MInsertDWG (/ lst)
  (xdrx_begin)
  (xdrx_sysvar_push "osmode")
  (setvar "osmode" 0)
  (setq lst (xdrx_getfiled "" "批量插图" "AutoCAD图形(*.dwg)|*.dwg" t))
  (if lst
    (mapcar '(lambda (x)
               (vl-cmdf ".insert" x '(0. 0. 0.) "1" "1" "0")
             )
               lst
    )
  )
  (xdrx_sysvar_pop)
  (xdrx_end)
  (princ)
)
(defun c:XDTB_CurveBreakAT (/ e ss ints)
  (xdrx_begin)
  (xdrx_sysvar_push "osmode")
  (setvar "osmode" 0)
  (setq        e (xdrx_entsel
            "\n选择要打的线: "
            '((0 . "*line,arx,circle,ellipse"))
          )
  )
  (if e
    (progn
      (princ "\n选择与其相交的线....")
      (setq ss (ssget '((0 . "*line,arx,circle,ellipse"))))
      (if ss
        (progn
          (setq        ints (xdrx_getinters (car e) ss 0)
                ints (xdrx_sortpointoncurve (car e) ints)
          )
          (foreach x ints
            (vl-cmdf ".break" (list (car e) x) "f" x "@")
            (setq e (list (entlast) x))
          )
        )
      )
    )
  )
  (xdrx_sysvar_pop)
  (xdrx_end)
  (princ)
)

eachy

该功能不能在2004以上使用