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

hehoubin

zzxxQQ ，你好，能帮我完成这个吗？谢谢 。。
  "    :radio_button{key=\"k1\";label=\"当前图层\";}"

29.
   "    :radio_button{key=\"k2\";label=\"打开图层\";}"

30.
   "    :radio_button{key=\"k3\";label=\"关闭图层\";}"

31.
   "    :radio_button{key=\"k4\";label=\"锁定图层\";}"

32.
   "    :radio_button{key=\"k5\";label=\"解锁图层\";}"

33.
   "    :radio_button{key=\"k6\";label=\"冻结图层\";}"

34.
   "    :radio_button{key=\"k7\";label=\"解冻图层\";}"

35.
   "    :radio_button{key=\"k8\";label=\"选物改层\";}"

36.
   "    :radio_button{key=\"k9\";label=\"选物改色\";}"

37.
   "    :radio_button{key=\"k10\";label=\"选物改线性\";}"

我一直都无法点击或拉选左边的图层去执行K1-K10;能帮我完成下吗，谢谢  

hehoubin

请帮忙写个这样在命令
如何给 专用图层赋值对应的颜色，
(SETQ COLOR1’("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "243" "85"))
          给图层 A1~A14， ACX， BH。

(SETQ COLOR2’ ("4" "2" "6"))
给图层 WALL， WINDOWS， DOOR。


如何启动 K1-K10 执行复选列表框选择的图层，(列表框的图层包括了专用图层和所有图层）
请帮忙加一个批量建立专用图层（当下拉列表框为模型专用图层时，批量建立图层 A1~A14， ACX， BH；）
                                                 （当下拉列表框为模型专用图层时，批量建立图层 WALL， WINDOWS， DOOR；）

1. ;主程序
   
2. 
   
3. (vl-load-com)
   
4. (defun c:TC (/ fname fn x dclid lin)
   
5. 
   
6. (setvar "CMDECHO" 0)
   
7. ;;;这里要如何给 专用图层赋值颜色；
   
8. (setq lst1 '("a01" "a02" "a03" "a04" "a05" "a06" "a07" "a08" "a09" "a10" "a11" "a12" "a13" "a14" "acx" "bh")
   
9.       lst2 '("WALL" "WINDOWS" "DOOR")
   
10.       lst0 '("模型专用图层" "设计专用图层" "所有图层"))
    
11. 
    
12. (setq lst3 (list) lent nil)
    
13. (while (setq lent (tblnext "LAYER" (not lent)))
    
14. 
    
15. (setq lst3 (cons (cdr(assoc 2 lent))lst3))
    
16. 
    
17. )
    
18. (setq fname (vl-filename-mktemp nil nil ".dcl"))
    
19. 
    
20. (setq fn (open fname "w"))
    
21. 
    
22. 
    
23. (foreach x
    
24. 
    
25. '("agtckz : dialog{"
    
26. 
    
27.    " label=\"《&Havis&CAD》--图层控制--TC\";"
    
28.    "  :row{"
    
29.    " :boxed_column{"
    
30. 
    
31.    "  label=\"用  户  图  层\";"
    
32. 
    
33.    "  :row{"
    
34. 
    
35.    "   :column{"
    
36. 
    
37.    "    :popup_list{key=\"ky\";list=\"\";}"
    
38. 
    
39.    "    :list_box{key=\"t0\";multiple_select=true;list=\"\";width=18;height=25;}"
    
40. 
    
41.   "   }"
    
42. 
    
43. "   :radio_column{"
    
44. 
    
45.    "    label=\"图层处理\";key=cl;width=5;height=30;"
    
46. 
    
47.    "    :radio_button{key=\"k1\";label=\"当前图层\";}"
    
48. 
    
49.    "    :radio_button{key=\"k2\";label=\"打开图层\";}"
    
50. 
    
51.    "    :radio_button{key=\"k3\";label=\"关闭图层\";}"
    
52. 
    
53.    "    :radio_button{key=\"k4\";label=\"锁定图层\";}"
    
54. 
    
55.    "    :radio_button{key=\"k5\";label=\"解锁图层\";}"
    
56. 
    
57.    "    :radio_button{key=\"k6\";label=\"冻结图层\";}"
    
58. 
    
59.    "    :radio_button{key=\"k7\";label=\"解冻图层\";}"
    
60. 
    
61.    "    :radio_button{key=\"k8\";label=\"选物改层\";}"
    
62. 
    
63.    "    :radio_button{key=\"k9\";label=\"选物改色\";}"
    
64. 
    
65.    "    :radio_button{key=\"k10\";label=\"选物改线性\";}"
    
66. 
    
67.                      "      }"
    
68. 
    
69.                      "     :column{"
    
70.                      "      label=\"图层批量处理\";";width=1;"               
    
71.                      "     :column{"
    
72.                      "     :button{key=\"29\";label=\"新建专用层NE\";width=1;}"
    
73.                      "     :button{key=\"30\";label=\"打开专用层KL\";width=1;}"
    
74.                      "     :button{key=\"31\";label=\"关闭专用层FL\";width=1;}"
    
75.                      "     :button{key=\"32\";label=\"锁定专用层SL\";width=1;}"
    
76.                      "     :button{key=\"33\";label=\"解锁专用层UL\";width=1;}"
    
77.                      "     :button{key=\"34\";label=\"冻结专用层ZL\";width=1;}"
    
78.                      "     :button{key=\"35\";label=\"解冻专用层WL\";width=1;}"
    
79.                      "     :button{key=\"36\";label=\"隐藏专用层YL\";width=1;}"
    
80.                      "     :button{key=\"37\";label=\"恢复专用层HL\";width=1;}"
    
81.                      "     :button{key=\"38\";label=\"隐藏非专用层YFL\";width=1;}"
    
82.                      "     :button{key=\"39\";label=\"关闭非专用层FFL\";width=1;}"
    
83.                      "     :button{key=\"40\";label=\"锁定非专用层SFL\";width=1;}"
    
84.                      "     :button{key=\"41\";label=\"冻结非专用层ZFL\";width=1;}"
    
85.                      "     :button{key=\"42\";label=\"清理无用图层QLL\";width=1;}"
    
86.                      "     }"
    
87.                      "     }"
    
88. 
    
89.                      "     }"
    
90.                      "     }"
    
91. 
    
92.                      "      }"
    
93.                      "    ok_cancel_help;"
    
94.                      "      }"
    
95. 
    
96. 
    
97. );end ;endlist
    
98. 
    
99. (princ x fn)
    
100. 
     
101. (princ "\n" fn)
     
102. 
     
103. );end foreach
     
104. 
     
105. (close fn)
     
106. 
     
107. (setq fn (open fname "r"))
     
108. 
     
109. (setq dclid (load_dialog fname))
     
110. 
     
111. (while (or (eq (substr
     
112. 
     
113.    (setq lin (vl-string-right-trim "\" fn)" (vl-string-left-trim "(write-line \"" (read-line fn))))
     
114. 
     
115.    1 2) "//")
     
116. 
     
117.    (eq (substr lin 1 (vl-string-search " " lin)) "")
     
118. 
     
119.    (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog")))
     
120. 
     
121. )
     
122. 
     
123. (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
     
124. 
     
125. (start_list "t0") (mapcar 'add_list lst1) (end_list)
     
126. 
     
127. (start_list "ky") (mapcar 'add_list lst0) (end_list)
     
128. (readata )
     
129. (action_tile "ky" "(chlst)")
     
130. (action_tile "k1" "(H_ddl)")
     
131.        (action_tile "29" "(done_dialog 29)" )
     
132.        (action_tile "help" "(done_dialog 43)")
     
133.        (action_tile "cancel" "(done_dialog 0)" )
     
134.        (setq re (start_dialog))
     
135.        (cond
     
136. 
     
137.               ((= re 29) (xjmxtc))
     
138.              ((= re 43) (h_help))        
     
139.       );end cond
     
140.        (unload_dialog dclid)
     
141.        (close fn)
     
142.        (vl-file-delete fname)
     
143.        (princ))
     
144. 
     
145. ;end defun
     
146. 
     
147. (defun readata ()
     
148. 
     
149. (setq ky (atoi (get_tile "ky"))
     
150. 
     
151.        cl (get_tile "cl")
     
152. 
     
153.        xz (get_tile "t0"))
     
154. )
     
155. 
     
156. (defun chlst ()
     
157. 
     
158. (setq ky (atoi (get_tile "ky")))
     
159. 
     
160. (start_list "t0")
     
161. 
     
162. (cond
     
163. 
     
164. ((= ky 0)  (mapcar 'add_list lst1) (end_list))
     
165. 
     
166. ((= ky 1)  (mapcar 'add_list lst2) (end_list))
     
167. 
     
168. ((= ky 2)  (mapcar 'add_list lst3) (end_list))
     
169. 
     
170. ((mapcar 'add_list (eval(read(strcat "lst" (get_tile "ky"))))))
     
171. )
     
172.   (end_list)
     
173. 
     
174. )
     
175. 
     
176. 
     
177. 
     
178. 
     
179. ;;;这里如何 写 执行key= K1(打开) 和 K2(关闭)……在文本框里拉选和单选的图层;;;;;
     
180. 
     
181. ;;;这里如何 写 执行key= 29(新建专用图层) ; 30(打开专用图层)…… 文本框里的专用图层;;;;;
     
182. 
     
183. 
     
184. 
     
185. 例：
     
186. 
     
187. 
     
188. 新建建筑模型专业图层
     
189. (DEFUN xjmxtc()
     
190.        (command ".-layer" "n" "a01" "c" "1" "a01" "")
     
191.        (command ".-layer" "n" "a02" "c" "2" "a02" "")
     
192.        (command ".-layer" "n" "a03" "c" "3" "a03" "")
     
193.        (command ".-layer" "n" "a04" "c" "4" "a04" "")
     
194.        (command ".-layer" "n" "a05" "c" "5" "a05" "")
     
195.        (command ".-layer" "n" "a06" "c" "6" "a06" "")
     
196.        (command ".-layer" "n" "a07" "c" "7" "a07" "")
     
197.        (command ".-layer" "n" "a08" "c" "8" "ao8" "")
     
198.        (command ".-layer" "n" "a09" "c" "9" "a09" "")
     
199.        (command ".-layer" "n" "a10" "c" "10" "a10" "")
     
200.        (command ".-layer" "n" "a11" "c" "11" "a11" "")
     
201.        (command ".-layer" "n" "a12" "c" "12" "a12" "")
     
202.        (command ".-layer" "n" "a13" "c" "13" "a13" "")
     
203.        (command ".-layer" "n" "a14" "c" "14" "a14" "")
     
204.        (command ".-layer" "n" "bh" "c" "243" "bh" "")
     
205.        (command ".-layer" "n" "acx" "c" "85" "acx" "")
     
206.        (princ "\n           新建图层              :)")
     
207.        (princ))
     

;主程序<br /> <br /> (vl-load-com)<br /> (defun c:TC (/ fname fn x dclid lin)<br /> <br /> (setvar "CMDECHO" 0)<br /> ;;;这里要如何给 专用图层赋值颜色；<br /> (setq lst1 '("a01" "a02" "a03" "a04" "a05" "a06" "a07" "a08" "a09" "a10" "a11" "a12" "a13" "a14" "acx" "bh")<br />       lst2 '("WALL" "WINDOWS" "DOOR")<br />       lst0 '("模型专用图层" "设计专用图层" "所有图层"))<br /> <br /> (setq lst3 (list) lent nil)<br /> (while (setq lent (tblnext "LAYER" (not lent)))<br /> <br /> (setq lst3 (cons (cdr(assoc 2 lent))lst3))<br /> <br /> )<br /> (setq fname (vl-filename-mktemp nil nil ".dcl"))<br /> <br /> (setq fn (open fname "w"))<br /> <br /> <br /> (foreach x<br /> <br /> '("agtckz : dialog{" <br /> <br />    " label=\"《&Havis&CAD》--图层控制--TC\";"<br />    "  :row{" <br />    " :boxed_column{"<br /> <br />    "  label=\"用  户  图  层\";"<br /> <br />    "  :row{" <br /> <br />    "   :column{"<br /> <br />    "    :popup_list{key=\"ky\";list=\"\";}" <br /> <br />    "    :list_box{key=\"t0\";multiple_select=true;list=\"\";width=18;height=25;}" <br /> <br />   "   }"<br /> <br /> "   :radio_column{"<br /> <br />    "    label=\"图层处理\";key=cl;width=5;height=30;"<br /> <br />    "    :radio_button{key=\"k1\";label=\"当前图层\";}"<br /> <br />    "    :radio_button{key=\"k2\";label=\"打开图层\";}"<br /> <br />    "    :radio_button{key=\"k3\";label=\"关闭图层\";}"<br /> <br />    "    :radio_button{key=\"k4\";label=\"锁定图层\";}"<br /> <br />    "    :radio_button{key=\"k5\";label=\"解锁图层\";}"<br /> <br />    "    :radio_button{key=\"k6\";label=\"冻结图层\";}"<br /> <br />    "    :radio_button{key=\"k7\";label=\"解冻图层\";}"<br /> <br />    "    :radio_button{key=\"k8\";label=\"选物改层\";}"<br /> <br />    "    :radio_button{key=\"k9\";label=\"选物改色\";}"<br /> <br />    "    :radio_button{key=\"k10\";label=\"选物改线性\";}" <br /> <br />                      "      }" <br /> <br />                      "     :column{"<br />                      "      label=\"图层批量处理\";";width=1;"               <br />                      "     :column{"<br />                      "     :button{key=\"29\";label=\"新建专用层NE\";width=1;}"<br />                      "     :button{key=\"30\";label=\"打开专用层KL\";width=1;}" <br />                      "     :button{key=\"31\";label=\"关闭专用层FL\";width=1;}" <br />                      "     :button{key=\"32\";label=\"锁定专用层SL\";width=1;}" <br />                      "     :button{key=\"33\";label=\"解锁专用层UL\";width=1;}" <br />                      "     :button{key=\"34\";label=\"冻结专用层ZL\";width=1;}" <br />                      "     :button{key=\"35\";label=\"解冻专用层WL\";width=1;}" <br />                      "     :button{key=\"36\";label=\"隐藏专用层YL\";width=1;}"<br />                      "     :button{key=\"37\";label=\"恢复专用层HL\";width=1;}"<br />                      "     :button{key=\"38\";label=\"隐藏非专用层YFL\";width=1;}"<br />                      "     :button{key=\"39\";label=\"关闭非专用层FFL\";width=1;}"<br />                      "     :button{key=\"40\";label=\"锁定非专用层SFL\";width=1;}"<br />                      "     :button{key=\"41\";label=\"冻结非专用层ZFL\";width=1;}"<br />                      "     :button{key=\"42\";label=\"清理无用图层QLL\";width=1;}"<br />                      "     }"<br />                      "     }"<br /> <br />                      "     }"<br />                      "     }"<br /> <br />                      "      }" <br />                      "    ok_cancel_help;" <br />                      "      }" <br /> <br /> <br /> );end ;endlist<br /> <br /> (princ x fn)<br /> <br /> (princ "\n" fn)<br /> <br /> );end foreach<br /> <br /> (close fn)<br /> <br /> (setq fn (open fname "r"))<br /> <br /> (setq dclid (load_dialog fname))<br /> <br /> (while (or (eq (substr<br /> <br />    (setq lin (vl-string-right-trim "\" fn)" (vl-string-left-trim "(write-line \"" (read-line fn))))<br /> <br />    1 2) "//")<br /> <br />    (eq (substr lin 1 (vl-string-search " " lin)) "")<br /> <br />    (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog")))<br /> <br /> )<br /> <br /> (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)<br /> <br /> (start_list "t0") (mapcar 'add_list lst1) (end_list)<br /> <br /> (start_list "ky") (mapcar 'add_list lst0) (end_list)<br /> (readata )<br /> (action_tile "ky" "(chlst)")<br /> (action_tile "k1" "(H_ddl)")<br />        (action_tile "29" "(done_dialog 29)" )<br />        (action_tile "help" "(done_dialog 43)")<br />        (action_tile "cancel" "(done_dialog 0)" )<br />        (setq re (start_dialog))<br />        (cond<br /> <br />               ((= re 29) (xjmxtc))<br />              ((= re 43) (h_help))        <br />       );end cond<br />        (unload_dialog dclid)<br />        (close fn)<br />        (vl-file-delete fname)<br />        (princ))<br /> <br /> ;end defun<br /> <br /> (defun readata ()<br /> <br /> (setq ky (atoi (get_tile "ky"))<br /> <br />        cl (get_tile "cl")<br /> <br />        xz (get_tile "t0"))<br /> )<br /> <br /> (defun chlst ()<br /> <br /> (setq ky (atoi (get_tile "ky")))<br /> <br /> (start_list "t0")<br /> <br /> (cond<br /> <br /> ((= ky 0)  (mapcar 'add_list lst1) (end_list))<br /> <br /> ((= ky 1)  (mapcar 'add_list lst2) (end_list))<br /> <br /> ((= ky 2)  (mapcar 'add_list lst3) (end_list))<br /> <br /> ((mapcar 'add_list (eval(read(strcat "lst" (get_tile "ky"))))))<br /> )<br />   (end_list)<br /> <br /> )<br /> <br /> <br /> <br /> <br /> ;;;这里如何 写 执行key= K1(打开) 和 K2(关闭)……在文本框里拉选和单选的图层;;;;;<br /> <br /> ;;;这里如何 写 执行key= 29(新建专用图层) ; 30(打开专用图层)…… 文本框里的专用图层;;;;;<br /> <br /> <br /> <br /> 例：<br /> <br /> <br /> 新建建筑模型专业图层<br /> (DEFUN xjmxtc()<br />        (command ".-layer" "n" "a01" "c" "1" "a01" "")<br />        (command ".-layer" "n" "a02" "c" "2" "a02" "")<br />        (command ".-layer" "n" "a03" "c" "3" "a03" "")<br />        (command ".-layer" "n" "a04" "c" "4" "a04" "")<br />        (command ".-layer" "n" "a05" "c" "5" "a05" "")<br />        (command ".-layer" "n" "a06" "c" "6" "a06" "")<br />        (command ".-layer" "n" "a07" "c" "7" "a07" "")<br />        (command ".-layer" "n" "a08" "c" "8" "ao8" "")<br />        (command ".-layer" "n" "a09" "c" "9" "a09" "")<br />        (command ".-layer" "n" "a10" "c" "10" "a10" "")<br />        (command ".-layer" "n" "a11" "c" "11" "a11" "")<br />        (command ".-layer" "n" "a12" "c" "12" "a12" "")<br />        (command ".-layer" "n" "a13" "c" "13" "a13" "")<br />        (command ".-layer" "n" "a14" "c" "14" "a14" "")<br />        (command ".-layer" "n" "bh" "c" "243" "bh" "")<br />        (command ".-layer" "n" "acx" "c" "85" "acx" "")<br />        (princ "\n           新建图层              :)")<br />        (princ))<br />

hehoubin

自己顶下别沉了，希望高手来帮忙！先谢谢。。

zhongzilei

支持高手来帮忙

风雨依然

高手们的东西要收藏 呵呵 谢谢了

jyzas

不错，支持

theisland

ZZXXQQ 发表于 2012-12-1 11:40
能多选了，可后面程序不知道如何处理。
[/post]

怎么看不了？

海盗曹

来学习一下dcl

沐春风

学习一下程序

ymcui

收藏 呵呵 谢谢