求一个程序，能修改lisp程序的参数。

millermin · 发表于 2012-11-25 01:24:53

我想遍一个程序A，实现如下功能：
提示用户输入一些和制图标准有关文字信息，程序A将信息赋值给相应全局变量，并能存储在一个lisp程序B里（或者其他方式，我只能想到这个方法)，下次只要运行程序B，就能一次更改这些全局变量的值。或者将程序B做成自定义函数，让其他二次开发程序调用这个函数，自动完成环境设置。
因为程序B是一个lisp程序，对于我自己，我可以修改里面的内容，但我总不能要求我的用户也有这样的能力，我也不可能一个用户发一个版本。所以最好用户能通过程序自己一次性地修改参数。

程序B的一部分如下：
(defun standard()

   (setq text-layer "note")
   (setq dim-layer "dim")
   (setq hatch-layer "hat")
   (setq symbols-layer "sym")
   (setq text-style "note")
   (setq dim-style "dim")
)

ll_j · 发表于 2012-11-25 10:05:50

说复杂也复杂，说简单也简单。
对于用户设置或修改，你可以在程序的适当位置加一个选项（关键字），对这些变量逐个进行设置（修改），不进入选项则按程序默认设置的数值进行。
至于变量的保存问题，如果能找到合理的默认值，使得大部分情况下都适应，就可以在程序的开始设置一下，然后使用永久变量，则在图形中可以适应，如果这些值经常会变动，那么最好在程序执行完成（或执行中）将这些变量的数值保存为文本文件，在程序运行时先读入。
我的这个程序是使用永久变量的方法，你可以参考：http://bbs.mjtd.com/thread-99104-1-1.html
其它的方法也有，诸如把信息保存在图形文件中，使用起来比较复杂，而且管理也比较乱，不建议使用。

ZZXXQQ · 发表于 2012-11-25 11:27:48

可用文件保存：

(defun readfile (lst file)
(if (setq fn (findfile file)) (progn
(setq fp (open fn "r"))
(foreach x lst (set x (read-line fp)))
(close fp)
) (progn
(setq mrsj '("note" "dim" "hat" "sym" "note" "dim"));默认值
(mapcar '(lambda (x y)(set x y)) lst mrsj)
))
)
(defun writefile (lst file)
(setq fp (open file "w"))
(setq i 0)
(foreach x lst (princ (strcat (eval x) "\n") fp))
(close fp)
)
(defun standard()
(setq blb '(text-layer dim-layer hatch-layer symbols-layer text-style dim-style)
(readfile blb "datafile") ;读数据
; ...
(writefile blb "datafile") ;写数据
)

millermin · 发表于 2012-12-10 01:11:59

本帖最后由 millermin 于 2012-12-10 01:30 编辑

ZZXXQQ 发表于 2012-11-25 11:27
可用文件保存：

我先把readfile单独提取出来运行。经过跟踪发现，运行过程顺利，fn的值已经是文件名了，但是lst却是nil。如果刻意让他找不到文件，运行下面那段，lst也是nil，为什么？

millermin · 发表于 2012-12-10 10:17:30

本帖最后由 millermin 于 2012-12-10 10:25 编辑

millermin 发表于 2012-12-10 01:11
我先把readfile单独提取出来运行。经过跟踪发现，运行过程顺利，fn的值已经是文件名了，但是lst却是nil ...

我有点糊涂了。等我再琢磨，实在不懂再问。

millermin · 发表于 2012-12-10 10:50:47

搞懂了。原以为学习应该一步步来，先试函数，再搞主程序。经提点，才发现必须和主程序一起运行，才达到预想的结果。
同时也有一个疑问，如果文件名前无路经，那程序会找不到文件，好像不会整个硬盘搜索。不过提供路经倒是我多年的习惯。

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

求一个程序，能修改lisp程序的参数。

相关帖子

点评