CAD2007自动图形排序

CAD2007本身没有提供自动图形排序的功能，但可以通过LISP编程实现自动图形排序。下面是一种简单的实现方式：

1. 编写LISP程序，实现图形排序功能。

下面是一个简单的LISP程序示例：

(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.lsp文件。

2. 在CAD2007中加载LISP程序。

在CAD2007中输入“appload”命令，选择保存好的sort.lsp文件，然后点击“确定”按钮加载程序。

3. 使用LISP程序进行图形排序。

在CAD2007中输入“sort”命令，然后选择需要排序的图形对象，程序会自动将图形对象按照x坐标升序排序。

注意：LISP程序可能存在一些局限性，需要根据实际情况进行改进。