序列排序 vl-sort 代码无法排序是怎么回事

bh89757

(defun c:vv ()
  (vl-load-com)
(setq dimzinold (getvar "DIMZIN"))
(setvar "DIMZIN" 0)
  (if (progn
           (setq EP1 (entsel"点取属性块中页码的位置:\n"))
           (setq EG1 (cdr (assoc 0 (entget (car EP1)))))
           (if (= EG1 "INSERT")
               (progn (setq EG2 (car (nentselp (cadr EP1))))
                   (if (= (cdr (assoc 0 (entget EG2))) "ATTRIB")
                       (setq blktag (cdr (assoc 2 (entget EG2)))) ;标记
                   )
                   (setq EP1st (entget (car EP1)))
                   (setq blkname (assoc 2 EP1st))   
               )
          )
        )
         (princ (strcat"  块名为-->" (cdr blkname) "   标记为-->" blktag "\n"))
         (progn(princ "  必须选择属性块!")(exit))
         )
  ;开始选择页码块并修改
  (setq prefix (getstring "请输入前缀:"))
  (if (=  str0  nil) (setq str0 1)) (initget 6)
  (setq str (getint (strcat "请输入一个起始整数<" (rtos str0 2 0) ">:")))
  (if (= str  nil)(setq str  str0))

  (initget "H V S ")(setq GETK (getkword "排序方式:\n [横向优先(H)/竖向优先(V)/选择优先(S)]: <H> "))
  (princ ">>选择批量修改页码的对象...")
  (setq ss (ssget  (cons blkname slist)))
  (setq index0 0 index (sslength ss) sslist '())         
  (repeat index
    (setq sslist (cons (ssname ss index0) sslist))
    (setq index0 (1+ index0))
  )
  ;开始构建图元点位表
  (setq index0 0  sslist-ptl '() tmp-pt '())         
  (repeat index
    (setq tmp-pt (cons (nth index0 sslist) (cons (cdr(assoc 10 (entget (nth index0 sslist)))) tmp-pt)))
    (setq sslist-ptl (cons tmp-pt sslist-ptl))
    (setq tmp-pt '())
    (setq index0 (1+ index0))
  )
  ;开始排序
    (setq XZS  
        (vl-sort
   sslist-ptl
   '(lambda (s1 s2)
    (< (cadr(caddr s1)) (cadr(caddr s2))) ) )
                )   
)


附件附上选择的图框，选中后查看xzs 序列没有按顺序排列，求大神指导一下

bh89757

有没有大哥能帮忙看看为啥无法排序a/(ㄒoㄒ)/~~

Lisphk

只给程序不好看清你的逻辑，具体说说，你要拍什么序，进入VL-SORT时候，表是什么样的，你要什么结果

bh89757

Lisphk 发表于 2020-5-12 18:07
只给程序不好看清你的逻辑，具体说说，你要拍什么序，进入VL-SORT时候，表是什么样的，你要什么结果

   我希望的是通过如下代码
(vl-sort
   sslist-ptl
   '(lambda (s1 s2)
    (< (cadr(caddr s1)) (cadr(caddr s2))) ) )
                )   
对列表sslist-ptl 中的序列先按x方向排序，然后对于x坐标一致的进行y方向排序。但是现在我按照x方向排序发现生成的序列并没有变化，不知道是哪里出了错误。昨晚改了一晚上没发现错误，

newer

bh89757 发表于 2020-5-12 19:04
我希望的是通过如下代码
(vl-sort
   sslist-ptl

你把 SSLIST-PTL 的内容，帖上论坛，帮你看看

bh89757

SSLIST-PTL 其实是图元名和坐标组合的列表 ((<图元名: -2676e0> (3425.61 940.021 0.0)) (<图元名: -267710> (3320.61 940.021 0.0)))

bh89757

newer 发表于 2020-5-12 19:08
你把 SSLIST-PTL 的内容，帖上论坛，帮你看看

((<图元名: -2676e0> (3425.61 940.021 0.0)) (<图元名: -267710> (3320.61 940.021 0.0))) 这样的序列，我其实是湘做个图框编页码的程序，但是选择图框后的列表sslist-ptl 排序没变化，卡在这了。

newer

bh89757 发表于 2020-5-12 19:09
SSLIST-PTL 其实是图元名和坐标组合的列表 (( (3425.61 940.021 0.0)) ( (3320.61 940.021 0.0)))

你这个表的内容不足，你得有相同的多个，X有相同的，Y也有相同的，多个，才好测试
你画好实体，然后执行你的程序，然后把 sslist-ptl 在帖上来

newer

bh89757 发表于 2020-5-12 19:12
(( (3425.61 940.021 0.0)) ( (3320.61 940.021 0.0))) 这样的序列，我其实是湘做个图框编页码的程序，但 ...

你去看看这两个函数，去理解下

(XD::Pickset:TableSort)基于行、列的（支持UCS)的实体任意排序函数

27 个回复 - 6881 次查看

**** 本内容被作者隐藏 ****

2013-7-2 19:04 - Lispboy - 开源函数库

• (XD::List:GroupByIndex)按索引对表进行分组
  30 个回复 - 6007 次查看
  
  
  2013-10-14 15:13 - eachy - 开源函数库
• API应用 有关分类统计(XD::List:GroupByIndex)的通用写法
  11 个回复 - 6290 次查看
  ;;XD::List:GroupByIndex 应用汇总 ;;该函数是以索引对表进行分类汇总的通用函数，一般写法如下 ;;这里最主要的是构造这个索引，可以是 LIST STR INT REAL 四种格式 1 分类统计图块数量 2 按文字内容统计, ...
  2013-11-28 13:25 - st788796 - XDRX_API应用
  
  

bh89757

newer 发表于 2020-5-12 19:16
你去看看这两个函数，去理解下

(XD::Pickset:TableSort)基于行、列的（支持UCS)的实体任意排序函数27  ...

(SETQ CC '((<图元名: -2676e0> (3425.61 940.021 0.0)) (<图元名: -267710> (3320.61 940.021
0.0)) (<图元名: -2672b8> (3753.0 953.273 0.0)) (<图元名: -2676b0> (3560.51 874.615
0.0))))
(SETQ BB (vl-sort
   CC
   '(lambda (s1 s2)
    (< (cadr(caddr s1)) (cadr(caddr s2))) ) )
                )
谢谢啊，大哥你可以试试这个，不知道为啥不能排序a

newer

bh89757 发表于 2020-5-12 19:24
(SETQ CC '(( (3425.61 940.021 0.0)) ( (3320.61 940.021
0.0)) ( (3753.0 953.273 0.0)) ( (3560.51  ...

改成这样就行了, lambda里面的比较，你要拿出表中的一个元素，然后去提取cadr是提取坐标，在car提取x，组合就是caadr

1. (SETQ BB
   
2.        (vl-sort        CC
   
3.                 '(lambda (s1 s2) (< (caadr s1) (caadr s2)))
   
4.        )
   
5. )
   

(SETQ BB<br />        (vl-sort        CC<br />                 '(lambda (s1 s2) (< (caadr s1) (caadr s2)))<br />        )<br /> )<br />

(("<图元名: -2676e0>" (3425.61 940.021 0.0)) ("<图元名: -267710>" (3320.61 940.021 0.0)) ("<图元名: -2672b8>" (3753.0 953.273 0.0)) ("<图元名: -2676b0>" (3560.51 874.615 0.0)))
_$

(("<图元名: -267710>" (3320.61 940.021 0.0)) ("<图元名: -2676e0>" (3425.61 940.021 0.0)) ("<图元名: -2676b0>" (3560.51 874.615 0.0)) ("<图元名: -2672b8>" (3753.0 953.273 0.0)))
_$

bh89757

newer 发表于 2020-5-12 19:31
改成这样就行了, lambda里面的比较，你要拿出表中的一个元素，然后去提取cadr是提取坐标，在car提取x， ...

哦哦，我知道了，谢谢a