lisp用于顺序编号

alanjt · 发表于 2022-7-6 11:46:34

您没有应用排序列表（我提供的代码）。对选择集排序后，您将再次单步执行它（您的代码）。

(defun c:SortY (/ ss lst ent)
 ((lambda (n)
    (if (setq ss (ssget "_:L" '((0 . "TEXT"))))
      (foreach x
               (vl-sort
                 ((lambda (i)
                    (while (setq e (ssname ss (setq i (1+ i))))
                      (setq lst (cons e lst))
                    )
                  )
                   -1
                 )
                 (function
                   (lambda (a b) (> (caddr (assoc 10 (entget a))) (caddr (assoc 10 (entget b)))))
                 )
               )
        (setq ent (entget x))
        (entmod (subst (cons 1 (strcat "'" (itoa (setq n (1+ n))))) (assoc 1 ent) ent))
      )
    )
  )
   0
 )
 (princ)
)

sadhu · 发表于 2022-7-6 11:49:16

非常感谢你。太棒了。

alanjt · 发表于 2022-7-6 11:52:21

不客气，但你懂代码吗？

sadhu · 发表于 2022-7-6 11:54:10

这就是我现在使用它的方式。仅更改了选择标准。

再次感谢。

copy

(defun c:SortY (/ ss lst ent)
 ((lambda (n)
    (if (setq ss (ssget [color=Red](list (cons 0 "TEXT,MTEXT")
                  (cons 1 "'*"))))[/color]
      (foreach x
               (vl-sort
                 ((lambda (i)
                    (while (setq e (ssname ss (setq i (1+ i))))
                      (setq lst (cons e lst))
                    )
                  )
                   -1
                 )
                 (function
                   (lambda (a b) (> (caddr (assoc 10 (entget a))) (caddr (assoc 10 (entget b)))))
                 )
               )
        (setq ent (entget x))
        (entmod (subst (cons 1 (strcat "'" (itoa (setq n (1+ n))))) (assoc 1 ent) ent))
      )
    )
  )
   0
 )
 (princ)
)

alanjt · 发表于 2022-7-6 11:58:16

但是你知道它是怎么工作的吗？

此外，您不应该从ssget中删除“_：L”（过滤器锁定层），因为如果单步执行锁定层上的文本对象，例程将失败。

使用：

copy

(setq ss (ssget "_:L" (list (cons 0 "TEXT,MTEXT") (cons 1 "'*"))))

sadhu · 发表于 2022-7-6 12:01:50

我很害怕说我明白，但现在你已经写好了，嗯，让我们说，我正在经历它。

我是这样开始的：
-选择
-订单
-更换（entmod）

所以我把代码分成了几个部分。显然你的代码做得很好。

我已经按照您的建议更正了代码，也感谢您的解释。我以为我是
我试图掌握lamda（n）和lamda（I）的工作原理
. 我在调试模式下使用了动画功能。
谢谢