大神看看我这代码怎样能够继续改进到非常快

1121443108qaz

对多段线处理时，我用vl-remove-if获得一个多段线的全部顶点列表，但是里面可能有重复的点，比如（1 3）（1 4）（1 4）（1 4）（2 4）（2 3）（2 3）这样的点，现在我想用一个循环得到这样的结果（1 3） （1 4）（2 4）（2 3），即让这个表的第一个元素与第二个元素比对，如果不一样，就把第一个元素列入新表，cdr一下顶点列表，如果比对一样，cdr下顶点列表（不把第一个元素加入新表），直到顶点列表为空，这时获得一个新的顶点列表，这个顶点列表里相邻顶点不会 有相同的，但是在整个列表里面可以有一样的。

plist 已知
  (while (/= plist nil)
(if (equal (car plist) (cadr plist))
  (progn (setq plist(cdr plist)))
  (progn (setq nplist(cons (car plist) nplist))(setq plist(cdr plist)))

  ))

1121443108qaz

有时一条多段线有成千上万个点，像我这个思路感觉还是很浪费内存很慢，每次取的第二个元素是下一次循环的第一个元素，结果我又重新取一次，应该有更好的方法或者已经有函数了？我试过用vl-remove-if和vl-remove-if-not没成功

kqqt6236

不是很明白。

kqqt6236

回复可以领豆豆！

kqqt6236

谢谢楼主！

newer

这基本的表操作，晓东通用函数库怎么能没有呢


你要的函数是表操作，用 XD::LIST 搜索开源函数库论坛，下面就有你要的 xd::list:removedup

• （XD::List:Nth++）返回表指定位置开始，长度n的子表
  1 个回复 - 110 次查看
  
  
  2017-6-11 21:38 - marting - 开源函数库
• （XD::List:Reverse）表元素指定位置间元素Reverse
  0 个回复 - 0 次查看
  从下面这个帖子写的， http://bbs.xdcad.net/thread-714613-1-1.html
  2018-2-9 20:10 - marting - 开源函数库
• (XD::LIST::Lst_Area Lst)用二阶行列式法计算点表（多段线）面积，带符号
  1 个回复 - 39 次查看
  
  
  2018-1-21 15:32 - 半边书生 - 开源函数库
• （XD::LIST:Simlists）判断两个表是否相等（不考虑元素顺序）
  1 个回复 - 15 次查看
  
  
  2018-1-8 08:49 - marting - 开源函数库
• （XD::List:Flat）表的flat
  3 个回复 - 75 次查看
  (defun XD::List:Flat (l) (cond ((null l) nil ) ((atom l) (list l) ) ((atom (car l)) (cons (car l) (XD::List:Flat (cdr l))) ) ((append ...
  2017-9-1 09:57 - marting - 开源函数库
• （XD::List:Sublist）指定位置指定长度获得子表
  2 个回复 - 65 次查看
  
  
  2017-8-2 17:34 - newer - 开源函数库
• （XD::List:Entget-P）判断表是否是entget实体表
  0 个回复 - 49 次查看
  
  
  2017-8-2 17:39 - newer - 开源函数库
• （XD::List:Nth--）返回表指定位置s之前，长度n的子表（不包括s）
  3 个回复 - 103 次查看
  
  
  2017-6-11 22:27 - marting - 开源函数库
• （XD::List->String）表转字符串
  6 个回复 - 175 次查看
  命令: (XD::LIST->STRING '(123 "abc" (1 2 3)) ",") "123,abc,(1 2 3)"
  2017-5-10 10:28 - marting - 开源函数库
• （XD::List:ToFile）表内容写出到文件
  12 个回复 - 279 次查看
  
  
  2017-3-18 12:52 - newer - 开源函数库
• （XD::List:RemoveDup）表消除重复的元素
  1 个回复 - 160 次查看
  
  
  2017-5-23 18:50 - newer - 开源函数库
• （XD::LIST:Group-n）表按指定长度组成子表
  0 个回复 - 100 次查看
  下面代码求两个实体的交点
  2017-5-17 14:23 - marting - 开源函数库
• （XD::List-p）判断参数值是否是表
  2 个回复 - 98 次查看
  
  
  2017-5-9 11:11 - Lispboy - 开源函数库
• （XD::List:IndexSeqMakeLength）根据整数参数，构建基于0的整数表
  0 个回复 - 76 次查看
  
  
  2017-5-6 23:50 - Lispboy - 开源函数库
• （XD::List:Divide_3）表按三个连续的元素一组重建
  0 个回复 - 75 次查看
  
  
  2017-5-6 23:45 - Lispboy - 开源函数库
• （XD::List:Divide_2）表按两个两个分组重建
  0 个回复 - 69 次查看
  
  
  2017-5-6 23:39 - Lispboy - 开源函数库
• (XD::List:Group)表根据首次出现项按精度分组
  3 个回复 - 870 次查看
  _$ (xd::list:group '(1 2 3 4 1 2 4 5) 1) ((5) (4 4) (3) (2 2) (1 1)) _$ (xd::list:group '(1 2 3 4 1 2 4 5) 11) ((1 2 3 4 1 2 4 5)) _$ (xd::list:group '(1 2 3 4 1 2 4 5) 1.1) ((5) (3 4 4) (1 2 1 ...
  2013-11-9 09:10 - st788796 - 开源函数库
• （XD::List:TableStrFormat）表格型字符串表字符格式化（长度保证相等）
  3 个回复 - 179 次查看
  (defun XD::List:TableStrFormat (lst gap / i lst1 x y) (setq lst (xd::list:tablefillgap lst "")) (setq lst1 (xd::list:tablecolMaxStrlen lst)) (setq lst (mapcar '(lambda (x) (setq ...
  2016-10-28 13:10 - Lispboy - 开源函数库
• （XD::List:GroupByNum）表根据数分组（子表）
  0 个回复 - 185 次查看
  (defun XD::List:GroupByNum (lst num / ls ret) (if (= (rem (length lst) num) 0) (progn (setq ls nil) (repeat (/ (length lst) num) (repeat num (setq ls (cons (car lst) ls) ...
  2016-10-20 12:37 - Lispboy - 开源函数库
• (XD::List:Position) 带容差的判断元素在表中的位置
  2 个回复 - 352 次查看
  
  
  2016-7-27 16:37 - newer - 开源函数库
• (XD::List:IsTable)判断一个表是否是表格（NxM)
  0 个回复 - 166 次查看
  
  
  2016-7-18 12:38 - Lispboy - 开源函数库
• (XD::List:GroupByIndex)按索引对表进行分组
  29 个回复 - 4160 次查看
  
  
  2013-10-14 15:13 - eachy - 开源函数库
• (XD::List:TableByNum)根据指定列数构建TABLE数据
  0 个回复 - 200 次查看
  
  
  2016-7-12 20:30 - newer - 开源函数库
• (XD::List:Measure)定距分割表
  5 个回复 - 1448 次查看
  _$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 2) ((1 2) (3 4) (5 6) (7 8) (9)) _$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 3) ((1 2 3) (4 5 6) (7 8 9)) _$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 4) ...
  2014-12-28 21:48 - st788796 - 开源函数库
• XD::List:FromFile文件转换为列表
  9 个回复 - 1784 次查看
  
  
  2013-9-27 09:45 - st788796 - 开源函数库
• XD::List:MemberAll ----判断表LST1中的每一个元素是否都在表LST2中
  4 个回复 - 1714 次查看
  **** 本内容被作者隐藏 ****
  2013-6-5 22:37 - Lispboy - 开源函数库
• (XD::List:TableSort)对点索引表进行行/列排序
  11 个回复 - 2151 次查看
  
  
  2013-6-30 15:54 - eachy - 开源函数库
• （XD::List:RemoveTail）删除表尾元素
  1 个回复 - 869 次查看
  
  
  2014-12-18 19:13 - Lispboy - 开源函数库
• XD::List:Sort 排序表或关联表
  5 个回复 - 1889 次查看
  
  
  2014-10-24 01:08 - newer - 开源函数库
• (XD::List:RemoveE)删除表中指定的元素
  6 个回复 - 2519 次查看
  
  
  2013-11-20 20:23 - Lispboy - 开源函数库
• (XD::List:toTableValue)对按行排列的表构造Table Value
  1 个回复 - 1173 次查看
  测试
  2014-12-30 08:58 - eachy - 开源函数库
• (XD::List:Interval)按指定间隔取表元素
  3 个回复 - 853 次查看
  _$ (XD::list:interval '(1 2 3 4 5 6 7 9 0) 2 8) (3) _$ (XD::list:interval '(1 2 3 4 5 6 7 9 0) 2 2) (3 6 0) _$
  2014-12-24 19:12 - st788796 - 开源函数库
• (XD::List:FillGap)根据最大长度，把表按指定值填补
  3 个回复 - 1304 次查看
  
  
  2013-11-25 19:24 - Lispboy - 开源函数库
• （XD::List:AddColumn）表格式LIST 增加一列
  0 个回复 - 707 次查看
  
  
  2014-12-29 12:34 - Lispboy - 开源函数库
• （XD::List:BooleanValueInvert ）0和1组成的开关二态表的值翻转
  0 个回复 - 650 次查看
  
  
  2014-12-29 12:21 - Lispboy - 开源函数库
• （XD::List:RemoveHead）删除表头元素
  0 个回复 - 579 次查看
  
  
  2014-12-18 19:11 - Lispboy - 开源函数库
• （XD::List:TableColMaxStrLen）返回行列形式表的每列的最大字符串长度
  1 个回复 - 672 次查看
  
  
  2014-12-14 20:52 - Lispboy - 开源函数库
• （XD::List:TableFillGap）表格式表不足的列填补上指定元素
  1 个回复 - 720 次查看
  
  
  2014-12-14 20:16 - Lispboy - 开源函数库
• （XD::List:TableColMaxNums）返回行列式表最大列数
  0 个回复 - 650 次查看
  
  
  2014-12-14 20:13 - Lispboy - 开源函数库
• （XD::List:ElementToString）表元素变字符串
  0 个回复 - 585 次查看
  
  
  2014-12-14 18:25 - Lispboy - 开源函数库
  
  

1121443108qaz

kqqt6236 发表于 2018-4-21 00:45
回复可以领豆豆！

豆豆没什么的，多签到就有了

dnbcgrass

  ;(setq plist '((1 3) (1 4) (1 4) (1 4)  (2 4) (2 3) (2 3) (2 4) (1 4)))
  (setq nplist nil)
  (while (setq pt (car plist))
       (setq plist (vl-remove pt plist))
       (setq nplist (cons pt nplist))
  )
  (setq nplist (reverse nplist))

1121443108qaz

newer 发表于 2018-4-21 06:02
这基本的表操作，晓东通用函数库怎么能没有呢

我在xd::list:removedup这函数原贴下面回了你，这函数达不到我的要求

newer

1121443108qaz 发表于 2018-4-21 12:42
我在xd::list:removedup这函数原贴下面回了你，这函数达不到我的要求

命令: (setq a '((1 3)(1 4)(1 4)(1 4)(2 4)(2 3)(2 3)))
((1 3) (1 4) (1 4) (1 4) (2 4) (2 3) (2 3))
命令: (xd::list:removedup a)
((1 3) (1 4) (2 4) (2 3))

这不就是你帖子里面要的结果嘛