Cad2007图形批量排序

CAD2007可以使用脚本来批量排序图形，具体步骤如下：

1. 将需要排序的图形文件保存在同一个文件夹中。

2. 打开一个CAD2007软件，打开其中一个需要排序的图形文件。

3. 在命令行输入“SCRIPT”命令，或者在“工具”菜单中选择“运行脚本”命令。

4. 在弹出的对话框中，选择需要排序的脚本文件（脚本文件可以使用记事本等文本编辑器创建）。

5. 点击“打开”按钮，CAD2007会自动运行脚本文件，批量排序图形文件。

下面是一个简单的排序脚本示例：

(defun c:sort ()
    (setq entlst (ssget))
    (setq num (sslength entlst))
    (setq i 0)
    (setq j 0)
    (repeat num
        (setq ent (ssname entlst i))
        (setq pt (cdr (assoc 10 (entget ent))))
        (setq x (car pt))
        (setq y (cadr pt))
        (setq z (caddr pt))
        (setq plist (list x y z ent))
        (setq plistlst (cons plist plistlst))
        (setq i (1+ i))
    )
    (setq plistlst (sort plistlst (function (lambda (x y) (< (car x) (car y)))))) ; 按x坐标升序排序
    (setq num (length plistlst))
    (while (< j num)
        (setq ent (cdr (assoc 4 (entget (cdr (nth j plistlst)))))) ; 获取实体名
        (command "_move" ent pause (list (car (nth j plistlst)) (cadr (nth j plistlst)) 0)) ; 移动实体
        (setq j (1+ j))
    )
    (princ)
)

这个脚本可以将当前图形文件中的所有实体按照x坐标升序排序。将脚本保存为sort.scr文件，然后使用上述步骤运行脚本即可。