这样的效果如何实现？[求助]

jxlcrystal

附图是我一个autolisp程序的dcl对话框，请问如何实现这样的效果：启动此autolisp，显示此对话框后，首先在list_box中选择HZTXT(其他也可)，然后点击pick或add按钮，当完成相应动作后，回到此对话框，此时如何实现在list_box中仍然保持原来的选择(HZTXT)。

jxlcrystal

hzzhao

jxlcrystal

我上传了，之后怎么办呢？
“OK！发表我的回应帖子”的按钮变成灰色了。

mccad

jxlcrystal

原来用腾讯浏览器死活不行，改用IE就好了，呵呵。

wjp_01

用变量保存对话框隐藏之前的对话框选择状态，当对话框重演时，在对话框初始化的时候把对话框中列表的值再赋回去，就可以了，注意一定要在done_dialog之前获得变量数据，要不是得不到的，你可以看看DCL的书中的隐藏对话框有关章节，还有给控件赋初值和得到控件值的内容，应该不难。

ll_j

最近写的程序中的一段（上移一位），供参考：
  (defun tt_tl3()
    (setq tl1[ (read (get_tile "tl1"))) ;当前列表框中位置
    (if (/= tl1[ 0)
      (progn
        (setq tp0 (nth tl1[ tta)           ;当前项
              tp1 (nth (- tl1[ 1) tta)     ;前面一项 tta为列表
              tp2 (reverse (cdr (member tp1 (reverse tta)))) ;再前面各项
              tp3 (cdr (member tp0 tta))  ;后面各项
              tta (append tp2 (list tp0) (list tp1) tp3) 重新构造列表
        )
        (start_list "tl1")   ;显示列表
        (mapcar
          '(lambda (x)
             (add_list (strcat (car x) "\t" (cadr x) "\t" (caddr x)))
           )
          tta
        )
        (end_list)        ;end列表显示
        (set_tile "tl1" (itoa (- tl1[ 1)))  ;设定控件位置（光标
;        (mode_tile "tl6" 0) ;启用控件tl6
      )
    )
  )