函数分享：返回列表以索引序号当前值为起点的正向表和逆向表

guosheyang · 发表于 2023-1-8 12:29

本帖最后由 guosheyang 于 2023-1-8 12:49 编辑

给朋友们分享个函数----返回以索引序号当前值为起点的正向表和逆向表，可以用在闭合多段线节点表的选取和操作中，是这个帖子内容的另一函数表达形式 http://bbs.mjtd.com/thread-186971-1-1.html 请大家测试反馈，谢谢！
;函数名 F_B_lst  作者 ygs-羊羊羊
;功能：返回以索引序号当前值为起点的正向表和逆向表
;参数： L 为原始表,ci 为当前索引序号,取值0到(1-(length L))
;返回值：'(正向值表逆向值表)
;注：需要先加载运行高飞鸟的(HFB-LOAD-TRANF)函数以激活tranf
;实例
; (setq lst'("a" "b" "c" "d" "e" "f" "g"))
; (F_B_lst lst 3)
; 返回(("d" "e" "f" "g" "a" "b" "c") ("d" "c" "b" "a" "g" "f" "e"))
(defun F_B_lst(L ci)
(or nthcdr (tranf 'nthcdr));激活内部函数nthcdr
(list(append(nthcdr ci L)(reverse(nthcdr(-(length L)ci)(reverse L)))) ;正向表
(append(nthcdr(-(length L)(1+ ci))(reverse L))(reverse(nthcdr (1+ ci) L)));逆向表
)
)

guosheyang · 发表于 2023-1-9 17:48

llsheng_73 发表于 2023-1-9 09:11
这个很给力哦

谢谢龙大的肯定！

ynhh · 发表于 2023-1-9 22:55

需要先加载运行高飞鸟的(HFB-LOAD-TRANF)函数以激活tranf

sachindkini · 发表于 2023-1-9 20:54

感谢楼主分享，看看学习

tigcat · 发表于 2023-1-8 14:14

支持楼主发布函数

不一样地设计 · 发表于 2023-1-8 14:49

感谢楼主分享，看看学习

LIULISHENG · 发表于 2023-1-8 14:57

学习一下，感谢分享

ptime · 发表于 2023-1-8 17:35

多谢分享！！！

yoyoho · 发表于 2023-1-8 23:41

谢谢楼主分享!!!!!

wrf610051 · 发表于 2023-1-9 06:47

回复学习，谢谢分享！

edsion24 · 发表于 2023-1-9 07:54

看看学习学习

liuhe · 发表于 2023-1-9 08:42

6666666666666

llsheng_73 · 发表于 2023-1-9 09:11

这个很给力哦

账号		自动登录	找回密码
密码			注册

[函数] 函数分享：返回列表以索引序号当前值为起点的正向表和逆向表

评分