帮助排序不同的高度

SteveK · 发表于 2022-7-6 12:49:27

嗨，我想写一个程序，返回一个特定级别的所有实体的列表。我所拥有的是文本的级别（可能有4个级别高），每个级别都在列中，尽管它们之间的距离不同。请参阅随附的jpeg以了解想法。

在每列中，文本居中，具有相同的对齐X坐标（即在DXF组码11中），Y坐标的间距相等。文本列在X或Y方向上彼此之间没有公共距离。

因此，我希望我能得到帮助的是，返回一个特定级别上所有实体的列表（即jpeg中的颜色编码）的代码，该列表依赖于开始时设置的级别变量。例如，如果我将这个变量设置为1，它将返回jpeg中黄色的实体（最好按X坐标排序）。变量设置为3将返回绿色实体。（注意，我正在处理的文本不像jpeg那样进行颜色编码）

如果没有其他东西，我甚至欢迎伪代码。我目前的想法是：
-创建具有公共X坐标的实体列表。（虽然如果有数百条这样的文本，我不知道该如何存储它们）
-然后按Y坐标对这些列表进行排序，并根据级别变量返回实体。如果级别变量设置为4，并且实体不存在，则它将跳过该列/列表。

谢谢你的帮助

注：我认为这不是很有帮助（我更希望有全新的代码），但这里是我写的。此代码不考虑级别变量，只返回最高文本实体的列表。它变得太乱了，无法再添加任何其他内容。

copy

[color=DimGray][color=Black](defun txtlst (ss / ssLst topEnt highestPoleTextLst)[/color]
[color=Black] (setq ssLst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
     (foreach e1 ssLst
   (setq lst (cons e1 lst))
   (foreach e2 ssLst
     (If (= (cadr (assoc 11 (entget e1))) (cadr (assoc 11 (entget e2))))
       (setq lst (cons e2 lst))))
   (foreach en lst
     (If topEnt
       (If (< (caddr (assoc 11 (entget topEnt))) (caddr (assoc 11 (entget en))))
         (setq topEnt en))
       (setq topEnt en)))
   (If highestPoleTextLst
     (foreach en highestPoleTextLst
       (If (eq topEnt en)
         (If (< (caddr (assoc 11 (entget topEnt))) (caddr (assoc 11 (entget en))))
       (subst en topEnt highestPoleTextLst)
       (setq topEnt nil)))))
   (If topEnt (setq highestPoleTextLst (cons topEnt highestPoleTextLst)))
   (setq lst nil)
   )
highestPoleTextLst[/color]  
[color=Black])[/color][/color]

Lee Mac · 发表于 2022-7-6 13:04:50

Steve-快速提示：查看vl排序函数

Lee Mac · 发表于 2022-7-6 13:12:02

您想要完成的任务的一个类似示例是在这个线程中，将圆排序为行：

http://www.cadtutor.net/forum/showthread.php?t=36284

Patrick_35 · 发表于 2022-7-6 13:19:17

你好

一个例子

copy


(defun trier_xy(/ add ele lst tab txt x)
 (defun add()
   (setq ele (vl-sort ele '(lambda(a b)(< (cadr (vlax-get a 'insertionpoint))(cadr (vlax-get b 'insertionpoint))))))
   (if tab
     (setq tab (cons ele tab))
     (setq tab (list ele))
   )
 )
 (if (ssget (list (cons 0 "TEXT,MTEXT")))
   (progn
     (vlax-for txt (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
   (setq lst (cons txt lst))
     )
     (vla-delete sel)
     (foreach txt (vl-sort lst '(lambda(a b)(< (car (vlax-get a 'insertionpoint))(car (vlax-get b 'insertionpoint)))))
   (if (eq (car (vlax-get txt 'insertionpoint)) x)
     (setq ele (cons txt ele))
     (progn
       (add)
       (setq x (car (vlax-get txt 'insertionpoint))
         ele (list txt)
       )
     )
   )
     )
     (add)
   )
 )
 (reverse tab)
)

+

SteveK · 发表于 2022-7-6 13:25:36

嘿，谢谢，你们总是帮我渡过难关。

我试着用你的例子，帕特里克。编辑：效果很好！再次感谢。

李，谢谢你的提示；关于vl排序，我认为这是不可能的，但可以肯定的是，不能有一个vl排序函数同时按X和Y排序？
我知道使用两个vl排序函数（我应该使用）按一个排序，然后按另一个排序；当使用第二个vl排序函数时，第一个vl排序函数的顺序是否有可能被否定？

Lee Mac · 发表于 2022-7-6 13:33:10

我只需要使用一个vl排序，并使用一个选择集来收集与某些文本具有相同x坐标的所有文本进行比较，例如：

copy


(if (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
 (while (not (zerop (sslength ss)))
   (setq tEnt (ssname ss 0))
   (if (setq nss (ssget "_X" (list '(0 . "TEXT,MTEXT")
                                   '(-4 . "=,*,*") (assoc 11 (entget tEnt)))))
     (progn
       (setq sorted (vl-sort
                      (mapcar 'cadr (ssnamex nss))
                        (function
                          (lambda (a b)
                            (< (caddr (entget a)) (caddr (entget b)))))))
       (mapcar
         (function
           (lambda (x)
             (ssdel x ss))) sorted)
       )
     )
   )
 )