关于交点断开的探索

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

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

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

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

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

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

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

命令是？

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

是什么东西，一脸茫然

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

搞一半，有没有高手出手讨论一下

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