请帮忙完成DCL@LSP 图层列表框和复选框问题。谢谢。。

hehoubin

请大侠们帮忙完成这个点对话框的图层控制。谢谢！
                                                        我想当 下拉列表框为模型专用图层时，复选框为A01-A14,ACX,ABH,
                                                        下拉列表框为设计专用图层时，复选框为WALL，WINDOWS，DOOR。、
                                   下拉列表框为设计专用图层时，复选框为搜索文件里的所有图层。
                                   复选框可以拉选多个图层进行右边的操作。

2. 主程序
   
3. (vl-load-com)
   
4. (defun c:TC (/ fname fn x dclid lin)
   
5. (setvar "CMDECHO" 0)
   
6. (setq d0lst '("a01" "a02" "a03" "a04" "a05" "a06" "a07" "a08" "a09" "a10" "a11" "a12" "a13" "a14" "acx" "bh"))
   
7. (setq d0lst1 '("模型专用图层" "设计专用图层" "所有图层" ))
   
8.       (setq fname (vl-filename-mktemp nil nil ".dcl" ))
   
9.        (setq fn (open fname "W"  ))
   
10.        (foreach x '(
    
11.                      "  agtckz : dialog{"
    
12.                      "  label="《 &Havis&CAD 》--图层控制--TC";"
    
13.                      "     :row{"
    
14.                      "     :column { "
    
15.                      "     label = "用  户  图  层";"
    
16.                      "     :row{"
    
17.                      "     :column { "
    
18.                      "     :popup_list { "
    
19.                      "     key = "ky";"
    
20.                      "     list = "";"
    
21.                      "     }"
    
22.                      "    :list_box { width=18;height=25;"
    
23.                      "     key = "t0";"
    
24.                      "     list = "";"
    
25.                      "     }"
    
26.                      "     }"
    
27. 
    
28.                      "    :column { "
    
29.                      "     label = "图层处理";width=5;height=30;"
    
30.                      "     :radio_button { "
    
31.                      "      label = "当前图层";width=1;height=1;"
    
32.                      "     key = "k1";"
    
33.                      "      }"
    
34.                      "     :radio_button { "
    
35.                      "      label = "打开图层";width=1;"
    
36.                      "     key = "k2";"
    
37.                      "      }"
    
38.                      "     :radio_button { "
    
39.                      "      label = "关闭图层";width=1;"
    
40.                      "     key = "k3";"
    
41.                      "      }"
    
42.                      "     :radio_button { "
    
43.                      "      label = "锁定图层";width=1;"
    
44.                      "     key = "k4";"
    
45.                      "      }"
    
46.                      "     :radio_button { "
    
47.                      "      label = "解锁图层";width=1;"
    
48.                      "     key = "k5";"
    
49.                      "      }"
    
50.                      "     :radio_button { "
    
51.                      "      label = "冻结图层";width=1;"
    
52.                      "     key = "k6";"
    
53.                      "      }"
    
54.                      "     :radio_button { "
    
55.                      "      label = "解冻图层";width=1;"
    
56.                      "     key = "k7";"
    
57.                      "      }"
    
58.                      "     :radio_button { "
    
59.                      "      label = "选物改层";width=1;"
    
60.                      "     key = "k8";"
    
61.                      "      }"
    
62.                      "     :radio_button { "
    
63.                      "      label = "选物改色";width=1;"
    
64.                      "     key = "k9";"
    
65.                      "      }"
    
66.                      "     :radio_button { "
    
67.                      "      label = "选物改线性";width=1;"
    
68.                      "     key = "k10";"
    
69.                      "      }"
    
70.                      "      }"
    
71.                      "      }"
    
72.                      "      }"
    
73.                      "      }"
    
74.                      "    ok_cancel_help;"
    
75.                      "      }"
    
76. 
    
77.              );end ;endlist
    
78.               (princ x fn)
    
79.               (write-line "" fn)
    
80.        );end foreach
    
81.        (close fn)
    
82.        (setq fn (open fname "r" ))
    
83.        (setq dclid (load_dialog fname))
    
84.        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))
    
85.        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
    
86. 
    
87.    (start_list "t0")
    
88. 
    
89.    (mapcar 'add_list d0lst)
    
90. 
    
91.    (end_list)
    
92. 
    
93.    (start_list "ky")
    
94. 
    
95.    (mapcar 'add_list d0lst1)
    
96. 
    
97.    (end_list)
    
98. 
    
99.        (action_tile "k1" "(done_dialog 1)" )
    
100. (setq re (start_dialog))
     
101.        (cond
     
102.               ((= re 1) (tcgb))
     
103. 
     
104.   );end cond
     
105.        (unload_dialog dclid)
     
106.        (close fn)
     
107.        (vl-file-delete fname)
     
108.        (princ))
     
109. 
     

主程序<br /> (vl-load-com)<br /> (defun c:TC (/ fname fn x dclid lin)<br /> (setvar "CMDECHO" 0)<br /> (setq d0lst '("a01" "a02" "a03" "a04" "a05" "a06" "a07" "a08" "a09" "a10" "a11" "a12" "a13" "a14" "acx" "bh"))<br /> (setq d0lst1 '("模型专用图层" "设计专用图层" "所有图层" ))<br />       (setq fname (vl-filename-mktemp nil nil ".dcl" ))<br />        (setq fn (open fname "W"  ))<br />        (foreach x '(<br />                      "  agtckz : dialog{" <br />                      "  label="《 &Havis&CAD 》--图层控制--TC";"<br />                      "     :row{"<br />                      "     :column { "<br />                      "     label = "用  户  图  层";"<br />                      "     :row{" <br />                      "     :column { "<br />                      "     :popup_list { "<br />                      "     key = "ky";" <br />                      "     list = "";" <br />                      "     }" <br />                      "    :list_box { width=18;height=25;" <br />                      "     key = "t0";" <br />                      "     list = "";" <br />                      "     }" <br />                      "     }" <br /> <br />                      "    :column { "<br />                      "     label = "图层处理";width=5;height=30;"<br />                      "     :radio_button { "<br />                      "      label = "当前图层";width=1;height=1;"<br />                      "     key = "k1";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "打开图层";width=1;"<br />                      "     key = "k2";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "关闭图层";width=1;"<br />                      "     key = "k3";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "锁定图层";width=1;"<br />                      "     key = "k4";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "解锁图层";width=1;"<br />                      "     key = "k5";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "冻结图层";width=1;"<br />                      "     key = "k6";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "解冻图层";width=1;"<br />                      "     key = "k7";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "选物改层";width=1;"<br />                      "     key = "k8";" <br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "选物改色";width=1;"<br />                      "     key = "k9";"<br />                      "      }"<br />                      "     :radio_button { "<br />                      "      label = "选物改线性";width=1;" <br />                      "     key = "k10";"<br />                      "      }"<br />                      "      }" <br />                      "      }" <br />                      "      }" <br />                      "      }" <br />                      "    ok_cancel_help;" <br />                      "      }" <br /> <br />              );end ;endlist<br />               (princ x fn)<br />               (write-line "" fn)<br />        );end foreach<br />        (close fn)<br />        (setq fn (open fname "r" ))<br />        (setq dclid (load_dialog fname))<br />        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))<br />        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)<br /> <br />    (start_list "t0")<br /> <br />    (mapcar 'add_list d0lst)<br /> <br />    (end_list)<br /> <br />    (start_list "ky")<br /> <br />    (mapcar 'add_list d0lst1)<br /> <br />    (end_list)<br /> <br />        (action_tile "k1" "(done_dialog 1)" )<br /> (setq re (start_dialog))<br />        (cond<br />               ((= re 1) (tcgb))<br /> <br />   );end cond<br />        (unload_dialog dclid)<br />        (close fn)<br />        (vl-file-delete fname)<br />        (princ))<br /> <br />

hehoubin

大侠能帮忙写下吗

ZZXXQQ

能多选了，可后面程序不知道如何处理。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

hehoubin

谢谢你。zzxxQQ  你好，当 下拉列表为 所有图层 的时候，复选列表框为CAD 文件里的所有图层。能帮我在加上去吗，
将所有图层复制给(setq d0lst2  (搜索CAD文件里的所有图层))这里要怎么写
((= ky 2) (start_list "t0") (mapcar 'add_list d0lst2) (end_list))

ZZXXQQ

板凳改了。

hehoubin

你好，那个当列表枉是所有图层 的时候 复选框还是有问题。。
能再帮看看吗？

hehoubin

它把复选框的图层赋值到了列表框

xyp1964

2. 
   
3. (defun c:test1163 (/ ilst ll1 ll2)
   
4.   (cmdla0)
   
5.   (defun main-pro ()
   
6.     (princ "\n")
   
7.   )
   
8.   (defun apo1 ()
   
9.     (xyp-Dcl-Gettile '("po1"))
   
10.     (cond ((= po1 "0") (xyp-show-list "li1" lst0))
    
11.    ((= po1 "1") (xyp-show-list "li1" lst2))
    
12.    ((= po1 "2") (xyp-show-list "li1" lst3))
    
13.     )
    
14.   )
    
15.   (setq ll1 '(k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 li1 po1)
    
16. ll2 '("1" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0")
    
17.   )
    
18.   (xyp-initSet ll1 ll2)
    
19.   (setq lst0 '("a01" "a02" "a03" "a04" "a05" "a06" "a07" "a08" "a09" "a10" "a11" "a12" "a13" "a14" "ACX" "ABH")
    
20. lst1 '("模型专用图层" "设计专用图层" "所有图层")
    
21. lst2 '("WALL" "WINDOWS" "DOOR")
    
22. lst3 (xyp-get-layers)
    
23. ilst '(("" "用户图层" ":boxed_row{")
    
24.         ":column{"
    
25.         ("po1" "" "poplist" "lst1" "12" "(apo1)")
    
26.         ("li1" "" "list" "lst0" "12" "14")
    
27.         "}"
    
28.         ("" "图层处理" ":boxed_radio_column{")
    
29.         ("k1" "当前图层" "radio")
    
30.         ("k2" "打开图层" "radio")
    
31.         ("k3" "关闭图层" "radio")
    
32.         ("k4" "锁定图层" "radio")
    
33.         ("k5" "解锁图层" "radio")
    
34.         ("k6" "冻结图层" "radio")
    
35.         ("k7" "解冻图层" "radio")
    
36.         ("k8" "选物改层" "radio")
    
37.         ("k9" "选物改色" "radio")
    
38.         ("k10" "选物改线性" "radio")
    
39.         "spacer;"
    
40.         "}"
    
41.         "}"
    
42.         "spacer;"
    
43.        )
    
44.   )
    
45.   (if (= (xyp-Dcl-Init Ilst "【图层控制】" t) 1)
    
46.     (main-pro)
    
47.   )
    
48.   (cmdla1)
    
49. )
    

<br /> (defun c:test1163 (/ ilst ll1 ll2)<br />   (cmdla0)<br />   (defun main-pro ()<br />     (princ "\n")<br />   )<br />   (defun apo1 ()<br />     (xyp-Dcl-Gettile '("po1"))<br />     (cond ((= po1 "0") (xyp-show-list "li1" lst0))<br />    ((= po1 "1") (xyp-show-list "li1" lst2))<br />    ((= po1 "2") (xyp-show-list "li1" lst3))<br />     )<br />   )<br />   (setq ll1 '(k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 li1 po1)<br /> ll2 '("1" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0")<br />   )<br />   (xyp-initSet ll1 ll2)<br />   (setq lst0 '("a01" "a02" "a03" "a04" "a05" "a06" "a07" "a08" "a09" "a10" "a11" "a12" "a13" "a14" "ACX" "ABH")<br /> lst1 '("模型专用图层" "设计专用图层" "所有图层")<br /> lst2 '("WALL" "WINDOWS" "DOOR")<br /> lst3 (xyp-get-layers)<br /> ilst '(("" "用户图层" ":boxed_row{")<br />         ":column{"<br />         ("po1" "" "poplist" "lst1" "12" "(apo1)")<br />         ("li1" "" "list" "lst0" "12" "14")<br />         "}"<br />         ("" "图层处理" ":boxed_radio_column{")<br />         ("k1" "当前图层" "radio")<br />         ("k2" "打开图层" "radio")<br />         ("k3" "关闭图层" "radio")<br />         ("k4" "锁定图层" "radio")<br />         ("k5" "解锁图层" "radio")<br />         ("k6" "冻结图层" "radio")<br />         ("k7" "解冻图层" "radio")<br />         ("k8" "选物改层" "radio")<br />         ("k9" "选物改色" "radio")<br />         ("k10" "选物改线性" "radio")<br />         "spacer;"<br />         "}"<br />         "}"<br />         "spacer;"<br />        )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【图层控制】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )<br />

hehoubin

谢谢

hehoubin

非常感谢两位高手。让学生受益匪浅。