尘缘一生 发表于 2022-5-5 01:22

关于交点断开的探索

本帖最后由 尘缘一生 于 2022-5-5 01:28 编辑

关于交点断开，速度是个大问题，也很头疼，探索修改一步，

程序可能缺少部分函数，不是大问题，本坛都能找到，


etoxp 发表于 2022-5-5 10:06

还是把子程序完整的放出来吧

下文没句号。 发表于 2022-6-21 10:07

命令是？;P;P;P

奥特蛋 发表于 2022-7-29 14:08

是什么东西，一脸茫然{:1_1:}

jkop 发表于 2023-5-25 11:28

小弟不才，LISP发生错误讯息不知道怎么处理，劳烦完善源码。

尘缘一生 发表于 2023-5-25 11:42

函数不全


[*];;存储系统变量-------(一级)--------------
[*];;lis 系统变量表 '("osmode" "cmdecho" "ORTHOMODE")
[*](defun sysvar (lis / n)
[*](setq e_lst (remove-nil (mapcar (function (lambda (n) (if (getvar n) (list 'setvar n (getvar n))))) lis)))
[*]e_lst
[*])
[*];移除嵌套表中的所有nil元素----(一级)------
[*];;(remove-nil '("毛主席" (1 nil 2 nil 3) nil (nil nil (nil) )))
[*](defun remove-nil (lst)
[*](if (= (type lst) 'list)
[*]    (vl-remove nil (mapcar 'remove-nil (vl-remove nil lst)))
[*]    lst
[*])
[*])

atone 发表于 2024-2-13 19:40

搞一半，有没有高手出手讨论一下
页: [1]
查看完整版本: 关于交点断开的探索