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

jxlcrystal · 发表于 2002-9-12 09:44:00

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

jxlcrystal · 发表于 2002-9-12 15:29:00

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

jxlcrystal · 发表于 2002-9-13 09:36:00

0cb0ylilaxy.jpg

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

wjp_01 · 发表于 2002-11-10 18:09:00

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

ll_j · 发表于 2002-11-11 09:04:00

最近写的程序中的一段（上移一位），供参考：
  (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
   )
)
  )

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

发表回复

精选推荐