lisp 将总图档拆成一个一个图档的程序

该程序的作用是将一个总图档分解成一个一个的小图档。

程序的基本原理是通过块的插入点来找到图框中流水号附近的两个点，再通过这两个点将流水号提取出来作为图档名字。用写出块的方法建立一个新的图档。

在程序运行的时候有时会选到流水号上面的零件名字，而不是图档的流水号。

请各位大虾帮忙看下是怎么回事，谢谢！！

怎么没有高手出招啊！！！！！！！！！！

请大家帮帮忙啊，谢谢！！！

(defun c:dp (/ textobject text_list)
  (setvar "cmdecho" 0)
  (command "undo" "begin")
  (command "ucs" "" "")             ; 多了一组 ""

===>
(defun c:dp (/ textobject text_list)
  (setvar "cmdecho" 0)
  (command "undo" "begin")
  (command "ucs" "")

========================
修正后....
就您所提供的图档资料
测不出一个所以然来

且程式也应考量更多的错误处理
就您所提供的图档资料,未含 "A3"
但程序內却有 "A3" (data a3 420 297 260 285 330 273) ......

程序内也应加注,除非是要考验大伙儿的耐性+功力