隐藏还原对话框

Qonfire · 发表于 2022-7-6 08:22:57

你好

我无法隐藏和恢复对话。看起来，隐藏对话框应该是一个循环任务。我希望有人回答以下问题。

1.要隐藏对话框，应该是（done\u dialog 4），比如说，要检索它，（start\u dialog）。Q：启动对话框加载空白对话框。我可以选择不从空白处加载它吗。，意思是在隐藏之前保留用户选择。

2.如果对话框开始为空，则代码应能够以这样的方式重新插入用户选择的数据。Q：是这样吗？

谢谢

copy

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq flag 4)
(setq dcl_id (load_dialog "test_dist.dcl"))        
(while (> flag 2)
  (if (not (new_dialog "test1" dcl_id))        
   (exit)                                        
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq Ldist ( getdist "\nGet Distance B.W : "))
(setq Sdist ( getdist "\nGet Distance B.L: "))
(setq lhz '("Light Hazard" "Ordinary Hazard" "Extra Hazard >=0.25" "Extra Hazard <=0.25" ))
(start_list "selections1")                                
 (mapcar 'add_list lhz)                        
 (end_list)
(action_tile "selections1" (strcat "(setq item  (atoi (get_tile "selections1")))
(cond 
 ( (= item 3)   (setq maxd 15) (setq maxa 130) (set_tile "edbox1" "15")(set_tile "edbox2" "130"))
 ( (= item 2)   (setq maxd 12) (setq maxa 100) (set_tile "edbox1" "12")(set_tile "edbox2" "100"))                   
 ( (= item 1)   (setq maxd 15) (setq maxa 130) (set_tile "edbox1" "15")(set_tile "edbox2" "130"))                  
 ( (= item 0)   (setq maxd 15) (setq maxa 225) (set_tile "edbox1" "15")(set_tile "edbox2" "225"))
     ))"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(action_tile "opt1" "(done_dialog 4)")
(setq flag (start_dialog))
(if (= flag 4)(getdist "\npick a point"))
          
)       
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(unload_dialog dcl_id)