[weiqi]weiqi 18:41:40
[qqimg]oldimg/{12027B6F-9D04-DE0F-E2B6-EC84088B84BB}.gif[/qqimg]
[雨的节奏][雨的节奏] 18:44:27
(vl-remove (nth 3 list) list)
[雨的节奏][雨的节奏] 18:45:30
236004]张牙舞爪(13885696)
[ZZXXQQ] 18:45:30
如果后面有与第四位相同内容的会不会也被删了?
[雨的节奏][雨的节奏] 18:45:49
貌似会、、还没试
试一下看
[雨的节奏][雨的节奏] 18:46:21
很明显会
已经试了、、
[236004]张牙舞爪 18:46:39
我刚试了,不行哟
[雨的节奏][雨的节奏] 18:46:49
会删掉相同元素
[236004]张牙舞爪 18:47:02
只删除表中第3个表,其它的全部保留
[雨的节奏][雨的节奏] 18:47:29
假如还有其他的元素跟第三个一样的话、也会被删除
你那不行可能是你忽略了是从0开始的
[236004]张牙舞爪 18:47:49
有一个序号
[ZZXXQQ] 18:47:55
可你要删的是第四个
[236004]张牙舞爪 18:48:27
(nth ** lst)
[雨的节奏][雨的节奏] 18:48:47
我这边完全可以啊
[236004]张牙舞爪 18:49:46
((270.589 206.676) (215.366 282.115) (165.873 211.358) (90.8533 285.237))
这种表
[雨的节奏][雨的节奏] 18:51:44
命令: (setq tlist (list (getpoint) (getpoint) (getpoint)))
((3809.17 28023.7 0.0) (13305.7 22754.3 0.0) (22740.2 24180.1 0.0))
命令: (vl-remove (nth 2 tlist) tlist)
((3809.17 28023.7 0.0) (13305.7 22754.3 0.0))
[236004]张牙舞爪 18:52:26
只删除表中第3个表,其它的表全部保留
[雨的节奏][雨的节奏] 18:53:05
对啊
关键是vl-remove会删除跟第三个相同的所有元素
[236004]张牙舞爪 18:54:02
有办法按ID号删除不?
[雨的节奏][雨的节奏] 18:54:16
晓不得啊
[雨的节奏][雨的节奏] 18:55:29
你不要告诉我其实你是得到了三维点、、、你想转化为二维点吧、、、
其实很简单的
[236004]张牙舞爪 18:56:25
我要删除PL拟合线的顶点坐标
[雨的节奏][雨的节奏] 18:58:27
难道就没有从表内移除第几个元素的函数吗
[236004]张牙舞爪 18:58:49
我不知道,才大家的
[雨的节奏][雨的节奏] 18:59:08
难道要用cdr来弄了吗、、、
[236004]张牙舞爪 18:59:21
我是这样的
[雨的节奏][雨的节奏] 18:59:27
弄N个cdr再用cons把前面的加进来
[236004]张牙舞爪 18:59:29
我用笨方法
[236004]张牙舞爪 19:00:35
[qqimg]oldimg/{16015834-FFD9-1555-11F5-ABC12D775321}.jpg[/qqimg] 我找不到,只有用这种方法,再把二个表合并
[野狼谷]笨鸟 19:02:23
获取每一个字表的前两个值,组成一个新表,然后循环,组成一个大的新表
[ZZXXQQ] 19:02:27
(defun removenlst (lst n / i x nlst)
(setq i 0)
(foreach x lst (if (/= i n) (setq nlst (append nlst x) i (1+ i))))
nlst
)
[ZZXXQQ] 19:03:59
(defun removenlst (lst n / i x nlst)
(setq i 0)
(foreach x lst (if (/= i n) (setq nlst (cons x nlst) i (1+ i))))
(reverse nlst)
)
[236004]张牙舞爪 19:05:36
不地,
不行,
把指点定的前面的删除了
把指定点的前面的删除了
[qqimg]oldimg/{FE513903-77FC-1D03-0948-5F3C542A8760}.jpg[/qqimg]
[ZZXXQQ] 19:06:35
别乱说,仔细看看
[236004]张牙舞爪 19:06:46
兰色的线是你的函数转的,
粉红色的线是原线
[雨的节奏][雨的节奏] 19:07:34
行
我看行
[ZZXXQQ] 19:07:55
可程序中只要不是第n个元素就加到新表中呀
[雨的节奏][雨的节奏] 19:09:04
行
very行
经测试very行
[236004]张牙舞爪 19:10:17
[qqimg]oldimg/{A00B99B1-3E7B-9068-E087-AD72C4C331F4}.jpg[/qqimg]
画元的点是要删除的点
删除画元的点后,之后重新组合成一个表
[qqimg]oldimg/{7E5108EE-FD69-1CB8-24A2-7B6866859F35}.jpg[/qqimg]
就是我这样的
我只是分开做的,
[ZZXXQQ] 19:11:42
(defun removenlst (lst n / i nlst)
(setq i 0)
(repeat (1- n)
(setq nlst (cons (car lst) nlst)
lst (cdr lst))
)
(setq nlst (append nlst (list(cdr lst))))
)
[ZZXXQQ] 19:12:30
(defun removenlst (lst n / i nlst)
(setq i 0)
(repeat (1- n)
(setq nlst (cons (car lst) nlst)
lst (cdr lst))
)
(setq nlst (append (reverse nlst) (list(cdr lst))))
)
[ZZXXQQ] 19:13:08
(defun removenlst (lst n / i nlst)
(setq i 0)
(repeat (1- n)
(setq nlst (cons (car lst) nlst)
lst (cdr lst))
)
(setq nlst (append (reverse nlst) (cdr lst)))
)
[236004]张牙舞爪 19:14:02
[qqimg]oldimg/{1E7CD5BB-74B6-5BED-87AF-179BB7C676EE}.jpg[/qqimg]
还少一个点
第二个点少了,
[雨的节奏][雨的节奏] 19:14:45
(foreach x list (if (/= 2 (vl-position x list)) (setq nlist (cons x nlist)))
[ZZXXQQ] 19:15:44
程序将出错,用了不该用的变量
[雨的节奏][雨的节奏] 19:17:52
成功了
[qqimg]oldimg/{43F78691-C43F-4CC5-4AB6-6CCA1EBF18B4}.GIF[/qqimg]
突然觉得自己是个天才
[OWEN7]ya雀无声 19:18:17
foreach比较神奇
LISP最好玩的地方,就是会突然让自己觉得自己是人才 |