本帖最后由 1291500406 于 2019-6-8 08:37 编辑
你提的要求太多了,没时间帮你改,别人只能告诉你方法,你只能学着自己试着改
时间日期 (menucmd "M=$(edtime,$(getvar,date),YYYY/MO/DD DDDD HH:MM )") 问题1,按ESC退出会把原有数据清空 去除取消键,取消键对这程序没用,只保留确定键ok_button;help_button; ,ESC就不会退出 问题2,命令多的话,可否做成分页的 这个就是把程序再写一遍而已。。。。
问题3,能优化成即可以这上点击文件命令来使用该命令又能在后面改快捷键 (defun c:jxsz ()(if (findfile "文件.txt")(a)(progn(b)(a))))
(defun b ()(setq b (open "文件.txt" "W")) (write-line"a,b" b)(close b)(princ))
|