建议对XD::List:GroupByIndex函数稍加修改，可以使用于索引为图元的情况

dyjwyqz5221

将函数中这两处稍加修改即可：

(setq lst
        (vl-sort lst
                '(lambda (l1 l2)
                        (if (= (type index) 'ENAME)
                                (xdrx-string-logical< (vl-princ-to-string (car l1)) (vl-princ-to-string (car l2)))
                                (< (car l1) (car l2))
                        );;;if
                )
        )
);;;setq
(or
        (and
                        (= (type index) 'INT)
                          (setq tf t
                                lst
                                (mapcar
                                              '(lambda (x)
                                                (cons (float (car x)) (cdr x))
                                        )
                                              lst
                                    )
                                lst (reverse lst)
                          );;;setq
             );;;and
             (= (type index) 'REAL)
             (= (type index) 'STR)
        (= (type index) 'ENAME)
);;;or
就可以了。

XDSoft

dyjwyqz5221 发表于 2020-8-14 10:59
测试：
(progn
        (setq e1 (car (entsel))

现在就支持这样啊

dyjwyqz5221

测试：
(progn
        (setq e1 (car (entsel))
                e2 (car (entsel))
                n 0
                lst nil
        );;;setq
        (apply 'append
                (repeat 6
                        (setq n (1+ n))
                        (setq lst (cons (list e1 n) lst)
                                lst (cons (list e2 n) lst)
                        );;;setq
                );;;repeat
        );;;apply
        lst
)

选择对象:
选择对象: ((<图元名: 7ff440bfe090> 6) (<图元名: 7ff440bfe080> 6) (<图元名: 7ff440bfe090> 5) (<图元名: 7ff440bfe080> 5) (<图元名: 7ff440bfe090> 4) (<图元名: 7ff440bfe080> 4) (<图元名: 7ff440bfe090> 3) (<图元名: 7ff440bfe080> 3) (<图元名: 7ff440bfe090> 2) (<图元名: 7ff440bfe080> 2) (<图元名: 7ff440bfe090> 1) (<图元名: 7ff440bfe080> 1))

命令: (XD::List:GroupByIndex lst 10)
((<图元名: 7ff440bfe090> 1 2 3 4 5 6) (<图元名: 7ff440bfe080> 1 2 3 4 5 6))

dyjwyqz5221

XDSoft 发表于 2020-8-14 20:44
现在就支持这样啊

有个版本的这个函数有点问题，我将论坛里的源代码拷贝到程序中了，所以造成了不适用于图元了。抱歉！
非常感谢！