求助动态保存输入文字

niushaopo

请问那位高手，用VisualLisp开发对话框时，怎样将输入到对话框编辑栏中的字符或数字
动态的保存在下拉列表中，再次打开下拉列表时，就可以将上次输入的字符动态显示在编辑框中。
  谢谢！！

meflying

做一个按钮（你用别的动作也可以），
(action "add_button" "(act_add)")
其中函数act_add如下：
(defun act_add( / str)
  (setq str (get_tile "edit1"))
  (start_list "list1" 2)
  (mapcar 'add_list (list str))
  (end_list)
)

niushaopo

不好意思，我说的是将很多编辑框中的字符以一个名字保存，在列表框中加入这个名字，点击列表框中相应的名字，就能在相应的很多编辑框中显示对应的字符，有办法么？

meflying

是meflying,不是myflying,我擅自改了一下，哈哈。。。

主要是教给你思路，看了上面的方法，反过来从列表框到编辑框也一样，你应该能琢磨出来。
两个action_tile动作如下：
    (action_tile "add" "(setq l_str (act_add l_str))")
    (action_tile "list1" "(act_list l_str)")

注意，使用前一定要将l_str清空。
两个动作函数如下，注意，第一个与原来的稍有修改，看看是不是符合你的意思
(defun act_add(l_str)
  (setq l_str (append l_str (list (get_tile "edit1"))))
  (start_list "list1" 3)
  (mapcar 'add_list l_str)
  (end_list)
  (mode_tile "edit1" 2)
  (mode_tile "edit1" 3)
  l_str
)

(defun act_list(l_str)
  (setq n (atoi (get_tile "list1")))
  (set_tile "edit1" (nth n l_str))
)

niushaopo

上次实在不好意思！
  我的意思是让用户多次输入到多个编辑框中的数据，可以在保存在lisp程序之中，并以不同的名字加入到列表中，在以后的操作中，用户可以不必输入上次的数据，直接在列表中选择就可以获得相应的数据，这样的问题应该怎样解决呢？
  不好意思，再次麻烦你了

meflying

能不能说说具体操作过程，比如说我在编辑框输入字符串“ABC”，在列表框中要存成什么呢？
其实实现方法我都给你了，怎样在列表框中加入编辑框的输入，又怎样保存在变量中，在函数里都有，单个编辑框实现了，多个不一样吗，只要组织一下代码，很容易实现的。

如果你不愿意弄懂了自己动手做的话，就把你的具体要求说出来（不是实现过程，要包括输入什么，怎样动作，输出什么），

niushaopo

niushaopo

意思是这样，我写了一个画鞋底图形的lisp程序，对于常见的鞋底类型，可以在列表中选择常见鞋底名字(没有new1,new2)，同时被选择名字的鞋底参数显示相应在几个编辑框中，按确定键后便可划出相对应的图形。
  但列表中的鞋底类型的名字个数有限，用户如果想画一个列表中没有的鞋底图形（即不常见的），就需要在表示鞋底参数的编辑框中输入相应参数值，按确定键也可划出相应图形。
  为了方便下次操作，储存用户输入信息，我想把用户输入！！到编辑框中的各个不常见鞋底的参数（至少30个数字参数），起个名字（随便都可以如new1,new2)，加入到列表中，同时参数也可以动态存贮到lisp程序中去，下次操作时可以直接从列表中选择new1或new2，不用在编辑框中输入便可直接划出相应的鞋底图形。
  不知道这次你能不能懂我的意思！！
  不好意思再次麻烦你！

meflying

我先做着，还有几个问题，内容不能存在程序中，除非你一直运行这个程序，你可以把它存到文件中，下次运行时先调用标准参数，如果需要再调用原来存的文件取出上次存的非标准的东西，或者再次存入新参数。这样可以吗？
还是要下次直接就调出上次存的东西？

niushaopo

谢谢你，我希望是下次或以后可以直接从列表中，利用上次自己起的新名子调出相应数据信息，不知能不能？
我可能有点胡想了，请见谅！