[练习]DCL列示选单的延伸开启设定

xyz518mm

[练习]DCL列示选单的延伸开启设定

参考了 FSXM 所做的 "listdcl的编缉器" ,
想像这编辑器一样有可以弹出设定的功能,
就练习做了一下,
不知道这样做的正不正确,
请各位高手大侠批评指教.

另外关于 无痕 或 FSXM 两位高手,
所编写出来的 LSP编码转 DCL 文件,
这原理及所暂时产生出来的对话框文件,
为何找不到呢?
还是说可以隐藏起来.
不知道有人去研究吗?

相关引用网址:
http://www.mjtd.com/bbs/dispbbs. ... p;skin=0&Star=1
http://www.mjtd.com/bbs/dispbbs. ... p;skin=0&Star=1

2. 
   
3. (Defun MKLA (a b)
   
4. (If (= (Tblsearch "layer" a) nil)
   
5. (Command "layer" "m" a "c" b a "")
   
6. (Command "layer" "t" a "s" a "c" b a "u" a "on" a "")
   
7. )
   
8. )
   
9. 
   
10. (DEFUN C:TEST
    
11.        ( / *MYLISTDATA@ BOX1$ BOX2$ BOX3$ DCL_STR FDT_LIST STR_A STR_B STR_DATA)
    
12. 
    
13. (DEFUN SUB_LSTDT_TO_LSTBOX ( *MYLISTDATA@ / )
    
14. (SETQ FDT_LIST (LIST
    
15.   (STRCAT "图层名称: =>" (NTH 0 *MYLISTDATA@))
    
16.   (STRCAT "颜色号码: =>" (NTH 1 *MYLISTDATA@))
    
17.   ) ;_ 结束LIST
    
18. )
    
19. FDT_LIST
    
20. )
    
21. 
    
22. (DEFUN SUB_SETRANNGE (vvs / )
    
23. (PRINT "$value 函数值:") (PRINC (atoi vvs))
    
24. (PRINT (TYPE vvs))
    
25. (setq DCL_STR (nth (SETQ NB (atoi vvs)) FDT_LIST))
    
26. (SETQ STR_DATA NIL)
    
27. (COND
    
28. ((= NB 0)
    
29. (setq STR_A (substr DCL_STR 13))
    
30. (SETQ DCL_ID% (LOAD_DIALOG "TEST.DCL")) ;;TEST
    
31. (NEW_DIALOG "TEST_432_A" DCL_ID%)
    
32. (SET_TILE "ED_LAYNA" STR_A)
    
33. (action_tile "ED_LAYNA" "(SETQ BOX1$ $value)")
    
34. (SETQ RETURN# (START_DIALOG))
    
35. (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$))
    
36. (SETQ FDT_LIST (SUB_LSTDT_TO_LSTBOX *MYLISTDATA@))
    
37. (START_LIST "listbox")(MAPCAR 'ADD_LIST FDT_LIST)(END_LIST)
    
38. )
    
39. 
    
40. ((= NB 1)
    
41. (setq STR_B (substr DCL_STR 13))
    
42. (SETQ DCL_ID% (LOAD_DIALOG "TEST.DCL")) ;;TEST
    
43. (NEW_DIALOG "TEST_432_B" DCL_ID%)
    
44. (SET_TILE "ED_LAYCL" STR_B)
    
45. (action_tile "ED_LAYCL" "(SETQ BOX2$ $value)")
    
46. (SETQ RETURN# (START_DIALOG))  
    
47. (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$))
    
48. (SETQ FDT_LIST (SUB_LSTDT_TO_LSTBOX *MYLISTDATA@))
    
49. (START_LIST "listbox")(MAPCAR 'ADD_LIST FDT_LIST)(END_LIST)
    
50. )
    
51. ) ;_ 结束COND
    
52. )
    
53. 
    
54. (SETQ BOX1$ "")
    
55. (SETQ BOX2$ "")
    
56. (SETQ BOX3$ NIL)
    
57. (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$))
    
58. (SETQ FDT_LIST (SUB_LSTDT_TO_LSTBOX *MYLISTDATA@))
    
59. (SETQ DCL_ID% (LOAD_DIALOG "TEST.DCL")) ;;TEST
    
60. (NEW_DIALOG "TEST_432" DCL_ID%)
    
61. (START_LIST "listbox")(MAPCAR 'ADD_LIST FDT_LIST)(END_LIST)
    
62. (action_tile "listbox" "(SUB_SETRANNGE $value)")
    
63. (SETQ RETURN# (START_DIALOG))
    
64. (UNLOAD_DIALOG DCL_ID%)
    
65. (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$))
    
66. (SETQ BOX1$ (NTH 0 *MYLISTDATA@))
    
67. (SETQ BOX2$ (NTH 1 *MYLISTDATA@))
    
68. (SETQ BOX3$ (ATOI BOX2$))
    
69. 
    
70. (IF (AND (AND (/= BOX1$ "") (/= BOX2$ "") )
    
71.   (= (TYPE BOX1$) 'STR)
    
72.   (= (TYPE BOX3$) 'INT)
    
73.   (< BOX3$ 256)
    
74.   )
    
75. (MKLA BOX1$ BOX3$)
    
76. )
    
77. 
    
78. )
    
79. 
    
80. //###############################
    
81. TEST_432 :dialog{ label="新增图层";
    
82. :boxed_column{
    
83. :list_box{
    
84.     key="listbox";
    
85.     height=20;
    
86.     width=30;
    
87.     fixed_width_font=true;
    
88.   }
    
89. }
    
90. spacer_1;
    
91. ok_cancel;
    
92. }
    
93. 
    
94. //###############################
    
95. TEST_432_A :dialog{label="图层名称设定";
    
96. :boxed_column { :row {
    
97. :edit_box {key="ED_LAYNA"; label="图层名称"; edit_width=30;}
    
98. } }
    
99. ok_cancel;
    
100. }
     
101. 
     
102. //###############################
     
103. TEST_432_B :dialog{label="图层颜色设定";
     
104. :boxed_column { :row {
     
105. :edit_box {key="ED_LAYCL"; label="图层颜色"; edit_width=30;}
     
106. } }
     
107. ok_cancel;
     
108. }
     
109. 
     
110. 
     

<br /> (Defun MKLA (a b)<br /> (If (= (Tblsearch "layer" a) nil)<br /> (Command "layer" "m" a "c" b a "")<br /> (Command "layer" "t" a "s" a "c" b a "u" a "on" a "")<br /> )<br /> )<br /> <br /> (DEFUN C:TEST<br />        ( / *MYLISTDATA@ BOX1$ BOX2$ BOX3$ DCL_STR FDT_LIST STR_A STR_B STR_DATA)<br /> <br /> (DEFUN SUB_LSTDT_TO_LSTBOX ( *MYLISTDATA@ / )<br /> (SETQ FDT_LIST (LIST<br />   (STRCAT "图层名称: =>" (NTH 0 *MYLISTDATA@))<br />   (STRCAT "颜色号码: =>" (NTH 1 *MYLISTDATA@))<br />   ) ;_ 结束LIST<br /> )<br /> FDT_LIST<br /> )<br /> <br /> (DEFUN SUB_SETRANNGE (vvs / )<br /> (PRINT "$value 函数值:") (PRINC (atoi vvs))<br /> (PRINT (TYPE vvs))<br /> (setq DCL_STR (nth (SETQ NB (atoi vvs)) FDT_LIST))<br /> (SETQ STR_DATA NIL)<br /> (COND<br /> ((= NB 0)<br /> (setq STR_A (substr DCL_STR 13))<br /> (SETQ DCL_ID% (LOAD_DIALOG "TEST.DCL")) ;;TEST<br /> (NEW_DIALOG "TEST_432_A" DCL_ID%)<br /> (SET_TILE "ED_LAYNA" STR_A)<br /> (action_tile "ED_LAYNA" "(SETQ BOX1$ $value)")<br /> (SETQ RETURN# (START_DIALOG))<br /> (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$))<br /> (SETQ FDT_LIST (SUB_LSTDT_TO_LSTBOX *MYLISTDATA@))<br /> (START_LIST "listbox")(MAPCAR 'ADD_LIST FDT_LIST)(END_LIST)<br /> )<br /> <br /> ((= NB 1)<br /> (setq STR_B (substr DCL_STR 13))<br /> (SETQ DCL_ID% (LOAD_DIALOG "TEST.DCL")) ;;TEST<br /> (NEW_DIALOG "TEST_432_B" DCL_ID%)<br /> (SET_TILE "ED_LAYCL" STR_B)<br /> (action_tile "ED_LAYCL" "(SETQ BOX2$ $value)")<br /> (SETQ RETURN# (START_DIALOG))  <br /> (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$))<br /> (SETQ FDT_LIST (SUB_LSTDT_TO_LSTBOX *MYLISTDATA@))<br /> (START_LIST "listbox")(MAPCAR 'ADD_LIST FDT_LIST)(END_LIST)<br /> )<br /> ) ;_ 结束COND<br /> )<br /> <br /> (SETQ BOX1$ "")<br /> (SETQ BOX2$ "")<br /> (SETQ BOX3$ NIL)<br /> (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$))<br /> (SETQ FDT_LIST (SUB_LSTDT_TO_LSTBOX *MYLISTDATA@))<br /> (SETQ DCL_ID% (LOAD_DIALOG "TEST.DCL")) ;;TEST<br /> (NEW_DIALOG "TEST_432" DCL_ID%)<br /> (START_LIST "listbox")(MAPCAR 'ADD_LIST FDT_LIST)(END_LIST)<br /> (action_tile "listbox" "(SUB_SETRANNGE $value)")<br /> (SETQ RETURN# (START_DIALOG))<br /> (UNLOAD_DIALOG DCL_ID%)<br /> (SETQ *MYLISTDATA@ (LIST BOX1$ BOX2$)) <br /> (SETQ BOX1$ (NTH 0 *MYLISTDATA@))<br /> (SETQ BOX2$ (NTH 1 *MYLISTDATA@))<br /> (SETQ BOX3$ (ATOI BOX2$))<br /> <br /> (IF (AND (AND (/= BOX1$ "") (/= BOX2$ "") )<br />   (= (TYPE BOX1$) 'STR)<br />   (= (TYPE BOX3$) 'INT)<br />   (< BOX3$ 256)<br />   )<br /> (MKLA BOX1$ BOX3$)<br /> )<br /> <br /> )<br /> <br /> //###############################<br /> TEST_432 :dialog{ label="新增图层";<br /> :boxed_column{<br /> :list_box{<br />     key="listbox";<br />     height=20;<br />     width=30;<br />     fixed_width_font=true;<br />   }<br /> }<br /> spacer_1;<br /> ok_cancel;<br /> }<br /> <br /> //###############################<br /> TEST_432_A :dialog{label="图层名称设定";<br /> :boxed_column { :row {<br /> :edit_box {key="ED_LAYNA"; label="图层名称"; edit_width=30;}<br /> } }<br /> ok_cancel;<br /> }<br /> <br /> //###############################<br /> TEST_432_B :dialog{label="图层颜色设定";<br /> :boxed_column { :row {<br /> :edit_box {key="ED_LAYCL"; label="图层颜色"; edit_width=30;}<br /> } }<br /> ok_cancel;<br /> }<br /> <br /> <br />

ddk113

哦呀，脑壳都昏了。。。。。。。。。。。。