DCL中两个下拉列表框popup_list如何关联？

xyz002

如何实现选择a中不同列表值时，b中列表关联变化，值也不同？
如a1对应a1b1,a1b2,a1b3;
a2对应a2b1,a2b2,a2b3;
a3对应a3b1,a3b2;

redcat

拿去吧，比xyp1964要大方

1. 
   
2. (defun c:ttt (/ data dcl_inf dclhandle)
   
3.   (defun *error* (msg)
   
4.     ;; Error Handler - will unload the dialog
   
5.     ;; from memory should the user decide to hit Esc
   
6.     (if dclHandle
   
7.       (unload_dialog dclHandle)
   
8.     )
   
9.     (or (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")
   
10. (princ (strcat "\n** Error: " msg " **"))
    
11.     )
    
12.     (princ)
    
13.   )
    
14. 
    
15.   (defun updatelist (key lst)
    
16.     (start_list key)
    
17.     (mapcar 'add_list lst)
    
18.     (end_list)
    
19.   )
    
20.   (defun makedcl_str2lst (str_lst / dclfile fileID dclHandle)
    
21.     (setq dclfile (vl-filename-mktemp nil nil ".dcl")
    
22.    fileID  (open dclfile "w")
    
23.     )
    
24.     (cond
    
25.       ((= (type str_lst) 'str)
    
26.        (write-line str_lst fileID)
    
27.       )
    
28.       ((= (type str_lst) 'list)
    
29.        (foreach n str_lst (write-line n fileID))
    
30.       )
    
31.     )
    
32.     (close fileID)
    
33.     (setq dclHandle (load_dialog dclfile))
    
34.     (vl-file-delete dclfile)
    
35.     dclHandle
    
36.   )
    
37.   (setq dcl_inf "lbox : list_box { width = 25; fixed_width = true; alignment = centered; }\n
    
38.                      listboxexample : dialog { label =\"列表对话框教程\";\n
    
39.                      spacer;\n: row {\n: lbox { key = \"lst1\"; label = \"列表_1\" ; }\n
    
40.                      :lbox { key = \"lst2\"; label = \"列表1关联数据\"; }\n
    
41.                      }\n
    
42.                      ok_only; \n}"
    
43. dclHandle   (makedcl_str2lst dcl_inf)
    
44.   )
    
45. 
    
46.   ;; Data used to Populate List_Boxes:
    
47.   ;; I've chosen to use this list structure because it suits the data, but there are many other possibilities.
    
48.   (setq Data
    
49.   '(("Audi" ("TTS Quattro" "TT RS" "S3 Quattro" "S4 Quattro" "S5 Quattro" "RS5 Quattro" "RS6 Quattro"))
    
50.     ("BMW" ("M3" "M5" "M6" "X5" "Z3" "Z4"))
    
51.     ("orsche" ("911" "924" "928" "930" "944" "Boxster" "Cayenne" "Cayman"))
    
52.     ("Jaguar" ("XF" "XJ6" "XJR" "XKR" "X-Type" "S-Type"))
    
53.    )
    
54.   )
    
55.   (cond
    
56.     ((not (new_dialog "listboxexample" dclHandle))
    
57.      (setq dclHandle (unload_dialog dclHandle))
    
58.      (princ "\n** Dialog Definition not Found **")
    
59.     )
    
60.     (t
    
61.      (or *Make* (setq *Make* "0"))
    
62.      (or *Model* (setq *Model* "0"))
    
63.      ;; Lets set up some default selections, for the first-time running of the program.
    
64.      ;; The variables *Make* & *Model* are intended to be global and hence will remember the user's last selections.
    
65.      ;; Now to populate the List_Boxes: List_Box 'lst1'
    
66.      (UpdateList "lst1" (mapcar 'car Data))
    
67.      (set_tile "lst1" *Make*)
    
68.      ;; List_Box 'lst2'
    
69.      (UpdateList "lst2" (cadr (nth (atoi *Make*) Data)))
    
70.      (set_tile "lst2" *Model*)
    
71.      (action_tile
    
72.        "lst1"
    
73.        (strcat "(UpdateList \"lst2\" (setq lst2 (cadr (nth (atoi (setq *Make* $value)) Data))))"
    
74.         "(setq *Model*"       "  (set_tile \"lst2\""
    
75.         " (if (< (atoi *Model*) (length lst2)) *Model* \"0\")"  "))"
    
76.        )
    
77.      )
    
78.      (action_tile "lst2" "(setq *Model* $value)")
    
79.      (start_dialog)
    
80.      (setq dclHandle (unload_dialog dclHandle))
    
81.     )
    
82.   )
    
83.   
    
84.   (princ)
    
85. )
    
86. 
    
87. 
    
88. 
    

<br /> (defun c:ttt (/ data dcl_inf dclhandle)<br />   (defun *error* (msg)<br />     ;; Error Handler - will unload the dialog<br />     ;; from memory should the user decide to hit Esc<br />     (if dclHandle<br />       (unload_dialog dclHandle)<br />     ) <br />     (or (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")<br /> (princ (strcat "\n** Error: " msg " **"))<br />     ) <br />     (princ)<br />   ) <br /> <br />   (defun updatelist (key lst)<br />     (start_list key)<br />     (mapcar 'add_list lst)<br />     (end_list)<br />   ) <br />   (defun makedcl_str2lst (str_lst / dclfile fileID dclHandle)<br />     (setq dclfile (vl-filename-mktemp nil nil ".dcl")<br />    fileID  (open dclfile "w")<br />     ) <br />     (cond<br />       ((= (type str_lst) 'str)<br />        (write-line str_lst fileID)<br />       )<br />       ((= (type str_lst) 'list)<br />        (foreach n str_lst (write-line n fileID))<br />       )<br />     ) <br />     (close fileID)<br />     (setq dclHandle (load_dialog dclfile))<br />     (vl-file-delete dclfile)<br />     dclHandle<br />   ) <br />   (setq dcl_inf "lbox : list_box { width = 25; fixed_width = true; alignment = centered; }\n<br />                      listboxexample : dialog { label =\"列表对话框教程\";\n<br />                      spacer;\n: row {\n: lbox { key = \"lst1\"; label = \"列表_1\" ; }\n<br />                      :lbox { key = \"lst2\"; label = \"列表1关联数据\"; }\n<br />                      }\n<br />                      ok_only; \n}"<br /> dclHandle   (makedcl_str2lst dcl_inf)<br />   ) <br /> <br />   ;; Data used to Populate List_Boxes:<br />   ;; I've chosen to use this list structure because it suits the data, but there are many other possibilities.<br />   (setq Data<br />   '(("Audi" ("TTS Quattro" "TT RS" "S3 Quattro" "S4 Quattro" "S5 Quattro" "RS5 Quattro" "RS6 Quattro"))<br />     ("BMW" ("M3" "M5" "M6" "X5" "Z3" "Z4"))<br />     ("<img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />orsche" ("911" "924" "928" "930" "944" "Boxster" "Cayenne" "Cayman"))<br />     ("Jaguar" ("XF" "XJ6" "XJR" "XKR" "X-Type" "S-Type"))<br />    )<br />   ) <br />   (cond<br />     ((not (new_dialog "listboxexample" dclHandle))<br />      (setq dclHandle (unload_dialog dclHandle))<br />      (princ "\n** Dialog Definition not Found **")<br />     )<br />     (t<br />      (or *Make* (setq *Make* "0"))<br />      (or *Model* (setq *Model* "0"))<br />      ;; Lets set up some default selections, for the first-time running of the program.<br />      ;; The variables *Make* & *Model* are intended to be global and hence will remember the user's last selections.<br />      ;; Now to populate the List_Boxes: List_Box 'lst1'<br />      (UpdateList "lst1" (mapcar 'car Data))<br />      (set_tile "lst1" *Make*)<br />      ;; List_Box 'lst2'<br />      (UpdateList "lst2" (cadr (nth (atoi *Make*) Data)))<br />      (set_tile "lst2" *Model*)<br />      (action_tile<br />        "lst1"<br />        (strcat "(UpdateList \"lst2\" (setq lst2 (cadr (nth (atoi (setq *Make* $value)) Data))))"<br />         "(setq *Model*"       "  (set_tile \"lst2\""<br />         " (if (< (atoi *Model*) (length lst2)) *Model* \"0\")"  "))"<br />        ) <br />      ) <br />      (action_tile "lst2" "(setq *Model* $value)")<br />      (start_dialog)<br />      (setq dclHandle (unload_dialog dclHandle))<br />     )<br />   )<br />   <br />   (princ)<br /> ) <br /> <br /> <br /> <br />

xyp1964

(defun c:tt (/ elst lst1 lst21 lst22 lst23)
  (defun ap1 ()
    (xyp-Dcl-Gettile '("li1" "li2"))
    (cond ((= li1 "0") (xyp-show-list "li2" lst21))
   ((= li1 "1") (xyp-show-list "li2" lst22))
   ((= li1 "2") (xyp-show-list "li2" lst23)))
    (set_tile "li2" li2))
  (xyp-initSet '(li1 li2) '("0" "0"))
  (setq lst1  '("a1" "a2" "a3")
lst21 '("a1b1" "a1b2" "a1b3")
lst22 '("a2b1" "a2b2" "a2b3")
lst23 '("a3b1" "a3b2" "a3b3")
elst  '(("" "tt" ":boxed_column{")
  ("li1" "a" "poplist" "lst1" "16" "(ap1)")
  ("li2" "b" "poplist" "lst21" "16")
  "spacer;"
  "}"
  "spacer;"
  (nil nil "user" "(ap1)")))
  (xyp-Dcl-Init elst "【tt】" t)
  (princ)
)

洪少(刀模)

我还是不是很明白，重新发了贴了。希望能理解

ZZXXQQ

……
(setq pop1 '("a1" "a2" "a3"))
(setq pop2 '(("a1b1" "a1b2" "a1b3") ("a2b1" "a2b2" "a2b3") ("a3b1" "a3b2")))
……
(action_tile "a" "(chpop (atoi $value))")
……
(defun chpop (c)
(start_list "b")
(mapcar 'add_list (nth c pop2))
(end_list)
)

xyz002

多谢二位版主，XYP-INITSET函数在哪下载？

xyz002

多谢redcat

zhuquanmao

ZZXXQQ 发表于 2011-2-12 16:21
……
(setq pop1 '("a1" "a2" "a3"))
(setq pop2 '(("a1b1" "a1b2" "a1b3") ("a2b1" "a2b2" "a2b3") ("a3 ...

stat_LIST是笔误 改为了start_LIST还是不行呢？

jyzas

正在找下拉资料，谢谢楼上的分享

jyzas

请教下怎样在下拉框里输入数字

Kye

ZZXXQQ 发表于 2011-2-12 16:21
……
(setq pop1 '("a1" "a2" "a3"))
(setq pop2 '(("a1b1" "a1b2" "a1b3") ("a2b1" "a2b2" "a2b3") ("a3 ...

感谢Z版，把(action_tile "a" ( "(chpop (atoi $value))"))=>(action_tile "a" "(chpop (atoi $value))") 就OK了，再次膜拜Z版