请高手帮我看看，用LISP怎样实现？

ybdk

如图，不知怎样排序才能实现？

f5612140

建议楼主将1,2,3...用不同於"分母位置"及"面积"的图层标示,抓1,2,3...特定图层的文字排序比较方便,再由1,2,3...的位置可得到其他相关的数据

ybdk

我的想法是，分子，分母，面积按一定规律排例，分子可以不排序.

meflying

以下是按群进行分类，将每三个文字放到了一起，至于怎么输出到文本，你就自己做吧（提示，一个群里面的三个文本按Y坐标排序就可以了，最小的为分母，最大的为分子，中间的是面积）

2. (defun c:test( / ss i ent ents n item ent_lst)
3.    (setq ss (ssget '((0 . "TEXT"))))
4.    (setq i 0)
5.    (repeat (sslength ss)
6.        (setq ent (ssname ss i))
7.        (setq ents (entget ent))
8.        (setq n (vl-position (assoc 102 ents) ents))
9.        (if (assoc (cdr (nth (1+ n) ents)) ent_lst)
10.            (progn
11.   (setq item (assoc (cdr (nth (1+ n) ents)) ent_lst))
12.   (setq item (append item (list ent)))
13.   (setq ent_lst (subst item (assoc (cdr (nth (1+ n) ents)) ent_lst) ent_lst))
14.            )
15.            (setq ent_lst (append ent_lst (list (list (cdr (nth (1+ n) ents)) ent))))
16.        )
17.        (setq i (1+ i))
18.    )
19.    ;以下是在命令行显示，输出部分就自己做吧
20.   (mapcar '(lambda(e) (mapcar '(lambda (x) (cdr (assoc 1 (entget x)))) e)) (mapcar 'cdr ent_lst))
21. )

(defun c:test( / ss i ent ents n item ent_lst)    (setq ss (ssget '((0 . "TEXT"))))    (setq i 0)    (repeat (sslength ss)        (setq ent (ssname ss i))        (setq ents (entget ent))        (setq n (vl-position (assoc 102 ents) ents))        (if (assoc (cdr (nth (1+ n) ents)) ent_lst)            (progn   (setq item (assoc (cdr (nth (1+ n) ents)) ent_lst))   (setq item (append item (list ent)))   (setq ent_lst (subst item (assoc (cdr (nth (1+ n) ents)) ent_lst) ent_lst))            )            (setq ent_lst (append ent_lst (list (list (cdr (nth (1+ n) ents)) ent))))        )        (setq i (1+ i))    )    ;以下是在命令行显示，输出部分就自己做吧   (mapcar '(lambda(e) (mapcar '(lambda (x) (cdr (assoc 1 (entget x)))) e)) (mapcar 'cdr ent_lst)) )

ybdk

谢谢 meflying ，谢谢大家的帮助。