[编程交流] 多个弹出列表

 
/////////////////////////////////////
//
// Block Inserter
//
/////////////////////////////////////
Blins : dialog {
label = "Drainage - Legend" ;
initail_focus = "List1" ;
spacer ;
: row {
 fixed_width = true ;
      : column {
 width = 25 ;
 fixed_width = true ;
 spacer ;
 : text {
  label = "Choose Drainage Pipe" ;
 }
      }
      : popup_list {
 key = "List1" ;
 width = 25 ;
 fixed_width = true ;
      }
}
: row {
 fixed_width = true ;
      : column {
 width = 25 ;
 fixed_width = true ;
 spacer ;
 : text {
  label = "Choose Surround Type" ;
 }
      }
      : popup_list {
 key = "List2" ;
 width = 25 ;
 fixed_width = true ;
      }
}
: row {
 fixed_width = true ;
      : column {
 width = 25 ;
 fixed_width = true ;
 spacer ;
 : text {
  label = "Choose Surround Type" ;
 }
      }
      : popup_list {
 key = "List3" ;
 width = 25 ;
 fixed_width = true ;
      }
}
ok_cancel ;
}//Blins

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;;; Block Inserter
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun Blins ()
   (setq  Value1$ (nth 1 *Blins@)
Value2$ (nth 2 *Blins@)
Value3$ (nth 3 *Blins@) 
List1@ (list " "   "Existing Storm Sewer"  "Existing Storm Sewer to be Removed"  "Existing Storm Sewer to be Relaid"  "Existing Foul Sewer"  "Existing Foul Sewer to be Removed"  "Existing Foul Sewer to be Relaid"  "Existing Filter Drains"  "Existing Filter Drains to be Removed"  "Proposed Concrete Class H Piped Culvert"  "Proposed Ductile Iron Storm Sewer"  "Proposed Filter Drain with Geotextile"))
            List2@ (list " "   "Type 1"  "Type 2"  "Type 3"  "Type 4")
            List3@ (list " "   "Type A"  "Type B"  "Type C"  "Type D")
   )
(setq Dcl_Id$ (load_dialog "Blins.dcl"))
(new_dialog "Blins" Dcl_Id$)
(set_tile_list "List1" List1@ Value1$)
(set_tile_list "List2" List2@ Value2$)
(set_tile_list "List3" List3@ Value3$)
(action_tile "List1"   "(set_list_value "List1@" "Value1$")")
(action_tile "List2"   "(set_list_value "List2@" "Value2$")")
(action_tile "List3"   "(set_list_value "List3@" "Value3$")")
(setq Return# (start_dialog))
(unload_dialog Dcl_Id$)
(setq *Blins@ (list nil Value1$ Value2$ Value3$))
(princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;;; Block Inserter
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun Blins ()
 (setq Value1$ (nth 1 *Blins@)
Value2$ (nth 2 *Blins@)
Value3$ (nth 3 *Blins@)
List1@ (list
   " "
   "Existing Storm Sewer"
   "Existing Storm Sewer to be Removed"
   "Existing Storm Sewer to be Relaid"
   "Existing Foul Sewer"
   "Existing Foul Sewer to be Removed"
   "Existing Foul Sewer to be Relaid"
   "Existing Filter Drains"
   "Existing Filter Drains to be Removed"
   "Proposed Concrete Class H Piped Culvert"
   "Proposed Ductile Iron Storm Sewer"
   "Proposed Filter Drain with Geotextile"
  )
List2@
 (list " " "Type 1" "Type 2" "Type 3" "Type 4")
List3@
 (list " " "Type A" "Type B" "Type C" "Type D")
 )
 (setq Dcl_Id$ (load_dialog "Blins.dcl"))
 (new_dialog "Blins" Dcl_Id$)
 (set_tile_list "List1" List1@ Value1$)
 (set_tile_list "List2" List2@ Value2$)
 (set_tile_list "List3" List3@ Value3$)
 (action_tile
   "List1"
   "(set_list_value "List1@" "Value1$")"
 )
 (action_tile
   "List2"
   "(set_list_value "List2@" "Value2$")"
 )
 (action_tile
   "List3"
   "(set_list_value "List3@" "Value3$")"
 )
 (setq Return# (start_dialog))
 (unload_dialog Dcl_Id$)
 (setq *Blins@ (list nil Value1$ Value2$ Value3$))
 (princ)
)