[原创]：通用实体排序函数(更新)

fools

同意eachy关于通用函数的看法。有时硬要套用某些通用函数反而降低了程序的效率。
ucs是我理解错误，我已删掉了，多谢eachy指点，还有很多要和你讨教的地方。

li809

能否说明如何运用，对不起，我看不懂

txzjtxzj

请问楼主怎么样才能把你的函数运用到下面的程序中去呢？请把下面的程序修改一下可以自己选择排序的方式，
(Defun c:bh (/ ss sscnt slist sname blkattlist blkattval newval)
(setvar "cmdecho" 0)
(command ".undo" "BE")
(princ "\n批量修改属性块值自动编号")
(setq ss (ssget '((0 . "INSERT"))))
(setq sscnt (sslength ss) nno 0)
(setq pd1 (cdr (assoc 10 (entget (ssname ss 0)))))
(setq pd2 (cdr (assoc 10 (entget (ssname ss 1)))))
(setq ang_pd (angle pd1 pd2))

(cond ((= ang_pd (* pi 0.5)) (sort_nam_X_mi_ma))
((= ang_pd (* pi 1.5)) (sort_nam_X_mi_ma))
((or (/= ang_pd (* pi 0.5)) (/= ang_pd (* pi 1.5))) (sort_nam_Y_mi_ma))
)
(setq attrib_val (getstring "\n输入起始值:"))
(setq ascii_val (ascii attrib_val))
(if (= attrib_val "") (progn (command ".undo" "E") (exit)))
(while (< nno sscnt)
(setq sname (nth nno list_ent))
(setq slist (entget sname))
(if (assoc 66 slist)
(progn
(setq blkattlist (entget (entnext sname)))
(setq newval
(cond

((< (atoi attrib_val) 3000) (itoa (+ (atoi attrib_val) nno)))
)
)

(setq blkattlist (subst (cons 1 newval) (assoc 1 blkattlist) blkattlist))
(entmod blkattlist)
(entupd sname)
);progn
);if
(setq nno (1+ nno))
);while
(command ".undo" "E")
(setvar "cmdecho" 1)
(princ)
)


;-----------------------------------------------
;;;;;;;;;根据X坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_x_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
(setq list_ent (append list_ent (list (ssname ss m))))
(setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
(setq b (nth l list_ent))
(while (< m n)
(setq c (nth m list_ent))
(if (< (nth 1 (assoc 10 (entget c))) (nth 1 (assoc 10 (entget b))))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))
(setq list_ent (subst b 'bb list_ent))
(setq b c)   


)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)
);end defun


;-----------------------------------------------
;;;;;;;;;根据Y坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_Y_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
(setq list_ent (append list_ent (list (ssname ss m))))
(setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
(setq b (entget (nth l list_ent)))
(while (< m n)
(setq c (entget (nth m list_ent)))
(if (< (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))
(setq list_ent (subst b 'bb list_ent))
(setq b c)
)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)
);end defun

ydf7332462

楼上的程序挺实用,可能否不单单对第一att,
而改成对可选att, 或指定tag的att编号,高手们可肯出出招!

eachy

最初由 ydf7332462 发布
[B]楼上的程序挺实用,可能否不单单对第一att,
而改成对可选att, 或指定tag的att编号,高手们可肯出出招! [/B]

http://www.xdcad.net/forum/showt ... 1614660#post1614660

cy956

最初由 ydf7332462 发布
[B]楼上的程序挺实用,可能否不单单对第一att,
而改成对可选att, 或指定tag的att编号,高手们可肯出出招! [/B]

会第一att,怎么不会指定tag的att编号，循环几下不就到了？

hy_rxiao

希望斑竹加分

zhengguoyun

先顶一下，确实是很实用的通用函数。
因为ssget生成的选择集是按实体生成的顺序排列的，这样的顺序其实相当于无序。
本函数的作用就是按一定规则重新排序，为后续进一步操作做准备。返回值是一个表，第一层子表所含的内容是由前面按行/按列要求决定的，第二层子表为特征点和实体名。eachy的程序已经含有如何提取实体名的示例。


我现在正在为这个程序郁闷呀，斑竹们能详细点吗，我的目的是这样的，切割机从某一指定起点开始，按最短路径切割完所有图形。看了本贴后深受启发，自感LISP力不从心，还望高手指教。

illcyt

支持源码，非常感谢