设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]分类排列表
返回列表 发新帖
查看: 2442|回复: 9

[求助]分类排列表

[复制链接]
tukuitk
发表于 2005-12-21 08:41:00 | 显示全部楼层 |阅读模式
请问各位兄弟：有表'(ent1 ent2 ent3 ent4 ……)怎样把有相同名称（如块名）的对象排在一起？最后像这样返回((ent2 ent4) (ent1 ent3 ent5 ent6) (ent8 ent10) ……)，谢谢！
"觉得好，就打赏"
打赏
还没有人打赏，支持一下
回复

使用道具 举报

tukuitk
 楼主| 发表于 2005-12-21 09:32:00 | 显示全部楼层
我是这样写的，请版主帮忙评判一下（如：代码对不对？代码还可以怎样优化？），谢谢！
  2.   (while lst
  3.     (setq Name (GetName (nth 0 lst)))
  4.     (foreach n lst
  5.       (if (= Name (GetName n))
  6. (progn
  7.    (setq lst2 (append lst2 (list n)))
  8.    (setq lst (vl-remove n lst))
  9. )
  10.       )
  11.     )
  12.     (setq lst3 (cons lst2 lst3))
  13.     (setq lst2 nil)
  14.   )
  15.   (reverse lst3)
回复 支持 反对

使用道具 举报

龙龙仔
发表于 2005-12-21 09:36:00 | 显示全部楼层

参考(希望你看懂),不懂再来..8-)

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18410

回复 支持 反对

使用道具 举报

tukuitk
 楼主| 发表于 2005-12-21 09:59:00 | 显示全部楼层

谢谢龙兄！我看了，好长，注解又是乱码，没看懂*_*

我的表不用删除重复的对象，我上面那个代码有问题吗？我找不出来了。

回复 支持 反对

使用道具 举报

龙龙仔
发表于 2005-12-21 10:41:00 | 显示全部楼层
  3. 程序不完全,,,LST???? GETNAME ???
  4. 主要看是这段
  5. (while (> (sslength SS) COUNT)
  6.     (setq EN (ssname SS COUNT))
  7.     (setq COUNT (1+ COUNT))
  8.     (GET-TAG EN)
  9.     (if (assoc TAG LI)
  10.       (setq LI (subst (append (assoc TAG LI) (list EN))
  11.         (assoc TAG LI)
  12.         LI
  13.         )
  14.       )     ;如果 li 表里有 tag 这个标签了,就将实体加入到 li 表里去
  15.       (setq LI (cons (list TAG EN) LI)) ;如果没有就新增一个
  16.     )
  17.   )     ;结束循环;;到这里表 li 鹰该是 ((tag 1 2 3...)(tag 1 2 3 ...))
回复 支持 反对

使用道具 举报

tukuitk
 楼主| 发表于 2005-12-21 10:45:00 | 显示全部楼层

呵呵，我只写了关键的部分，lst就是表，getname就是得到对象名称的子函数。

回复 支持 反对

使用道具 举报

tukuitk
 楼主| 发表于 2005-12-21 10:57:00 | 显示全部楼层
  2. ;;;我试过你的方法，好像不行，所以就用笨方法写了这个：
  3. (while lst
  4.     (setq Name (GetName (nth 0 lst))) ;得到表lst的第一个对象名称
  5.     (foreach n lst        ;遍历表
  6.       (if (= Name (GetName n)) ;如果找到与第一个对象名称相同的对象
  7. (progn
  8.    (setq lst2 (append lst2 (list n))) ;就新lst2建一个表用来保存
  9.    (setq lst (vl-remove n lst)) ;并且从原始表中删除它们，得到下一次while循环的新表lst
  10. )
  11.       )
  12.     )
  13.     (setq lst3 (cons lst2 lst3))      ;新建一个表lst3用来保存最终结果
  14.     (setq lst2 nil)
  15.   )
  16.   (reverse lst3)
回复 支持 反对

使用道具 举报

龙龙仔
发表于 2005-12-21 11:02:00 | 显示全部楼层
  3. ;;参考看看
  4. (defun LSTDIV&SORT (LST / ENT LST1 LST2 LST3 N NAME)
  5.   (setq N 0)
  6.   (if LST
  7.     (progn
  8.       (repeat (sslength LST)
  9. (setq ENT (ssname LST N))
  10. (if (setq LST3 (assoc (setq NAME (GETFACTORYNAME ENT)) LST2))
  11.    (progn
  12.      (setq LST1 (append LST3 (list ENT)))
  13.      (setq LST2 (subst LST1 LST3 LST2))
  14.    )
  15.    (setq LST2 (cons (list NAME ENT) LST2))
  16. )
  17. (setq N (1+ N))
  18.       )
  19.     )
  20.   )
  21.   LST2
  22. )
  23. (defun GETFACTORYNAME (ENAME)
  24.   (cdr (assoc 2 (entget ENAME)))
  25. )
  26. (defun C:TT (/ SS)
  27.   (setq SS (ssget
  28.       "X"
  29.       (list '(0 . "INSERT")
  30.      (cons 410 (getvar "CTAB"))
  31.      (cons 2 "~*`**")
  32.      ;;'(-3 ("TBH_INFO"))
  33.       )
  34.     )
  35.   )
  36.   (LSTDIV&SORT SS)
  37. )
回复 支持 反对

使用道具 举报

tukuitk
 楼主| 发表于 2005-12-21 12:15:00 | 显示全部楼层
谢谢龙兄！
回复 支持 反对

使用道具 举报

limter
发表于 2012-10-19 14:57:14 | 显示全部楼层
龙龙仔 发表于 2005-12-21 09:36
参考(希望你看懂),不懂再来..8-)
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18410

                    
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2025-6-6 18:14 , Processed in 0.193139 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表