对话框实战之图层综合功能源码解析——（二）显示图层信息

林霄云

对话框实战之图层综合功能源码解析——（二）显示图层信息

接前文，对话框使用流程简单的说，就是load——>new——>start——>done——>unload

一、显示图层信息对话框界面及dcl文件
界面如下

涉及的控件为text，list_box，各控件均应设置key属性，以便调用。
另外boxed_column和boxed_row等容器控件为布局和显示标签的作用。

1. :column {
   
2.             :row {
   
3.                 :boxed_column {
   
4.                     label = "颜色" ;
   
5.                     width = 8 ;
   
6.                     :text {
   
7.                         key = "lay-color" ;
   
8.                         
   
9.                     }
   
10.                 }
    
11.                 :boxed_column {
    
12.                     label = "线型" ;
    
13.                     width = 16 ;
    
14.                     :text {
    
15.                         key = "lay-linet" ;
    
16.                         
    
17.                     }
    
18.                 }
    
19.                 :boxed_column {
    
20.                     label = "线宽" ;
    
21.                     width = 8 ;
    
22.                     :text {
    
23.                         key = "lay-linew" ;
    
24.                         value = "-3" ;
    
25.                     }
    
26.                 }
    
27.                 :boxed_column {
    
28.                     label = "打印" ;
    
29.                     width = 8 ;
    
30.                     :text {
    
31.           key = "lay-print" ;
    
32.                         value = "P" ;
    
33.                     }
    
34.                 }
    
35.             }
    
36.             :boxed_row {
    
37.                 label = "图层列表" ;
    
38.                 :list_box {
    
39.                     key = "lay-name" ;
    
40.                 }
    
41.             }
    
42.         }

:column {<br />             :row {<br />                 :boxed_column {<br />                     label = "颜色" ;<br />                     width = 8 ;<br />                     :text {<br />                         key = "lay-color" ;<br />                         <br />                     }<br />                 }<br />                 :boxed_column {<br />                     label = "线型" ;<br />                     width = 16 ;<br />                     :text {<br />                         key = "lay-linet" ;<br />                         <br />                     }<br />                 }<br />                 :boxed_column {<br />                     label = "线宽" ;<br />                     width = 8 ;<br />                     :text {<br />                         key = "lay-linew" ;<br />                         value = "-3" ;<br />                     }<br />                 }<br />                 :boxed_column {<br />                     label = "打印" ;<br />                     width = 8 ;<br />                     :text {<br />           key = "lay-print" ;<br />                         value = "P" ;<br />                     }<br />                 }<br />             }<br />             :boxed_row {<br />                 label = "图层列表" ;<br />                 :list_box {<br />                     key = "lay-name" ;<br />                 }<br />             }<br />         }

二、控件值的读取和设置

（一）text控件值的set
采用set_tile命令，传递控制key值和value值，注意value为字符串。如：
(set_tile "lay-color" (itoa (abs(cdr(assoc 62 ent)))))
注意到图层信息显示均采用text控件，故将其封装为函数，（showlayinfo）

1. (defun showlayinfo( / layname ent temp strtemp )
   
2. (setq layname (nth (atoi (get_tile "lay-name")) hnu:layname-list-c))
   
3. (setq ent (entget(tblobjname  "LAYER" layname)))
   
4. ;
   
5. (setq temp (cdr(assoc 62 ent)))
   
6. (if (< temp 0) (setq strtemp "关闭") (setq strtemp "打开"))
   
7. (set_tile "lay-color" (itoa (abs(cdr(assoc 62 ent)))))
   
8. ;(set_tile "lay-color-choose" (itoa (cdr(assoc 62 ent))))
   
9. 
   
10. (set_tile "lay-linet"  (cdr(assoc 6 ent )))
    
11. (set_tile "lay-linew" (itoa (cdr(assoc 370 ent))))
    
12. (set_tile "lay-print" (nth (cdr(assoc 290 ent)) hnu:layprint-list))
    
13. ;……
    
14. 
    
15. )

(defun showlayinfo( / layname ent temp strtemp )<br /> (setq layname (nth (atoi (get_tile "lay-name")) hnu:layname-list-c))<br /> (setq ent (entget(tblobjname  "LAYER" layname)))<br /> ;<br /> (setq temp (cdr(assoc 62 ent)))<br /> (if (< temp 0) (setq strtemp "关闭") (setq strtemp "打开"))<br /> (set_tile "lay-color" (itoa (abs(cdr(assoc 62 ent)))))<br /> ;(set_tile "lay-color-choose" (itoa (cdr(assoc 62 ent))))<br /> <br /> (set_tile "lay-linet"  (cdr(assoc 6 ent )))<br /> (set_tile "lay-linew" (itoa (cdr(assoc 370 ent))))<br /> (set_tile "lay-print" (nth (cdr(assoc 290 ent)) hnu:layprint-list))<br /> ;……<br /> <br /> )

为了使得每次能取得实时的图层名，图层名通过get_tile命令从对话框中读取，而非作为参数传递。因为在使用（showlayinfo）函数的时候，对话框一定存在。

（二）list_box控件值的set/get

list_box的显示

填充一个list_box可定义如下函数

1. (defun show_list(key newlist) ;调用显示选单数据子程序
   
2. (start_list key)             ;开始处理选单对象
   
3. (mapcar 'add_list newlist)   ;逐一加入信息至选单
   
4. (end_list)                   ;结束处理选单
   
5. )

(defun show_list(key newlist) ;调用显示选单数据子程序<br /> (start_list key)             ;开始处理选单对象<br /> (mapcar 'add_list newlist)   ;逐一加入信息至选单<br /> (end_list)                   ;结束处理选单<br /> )

故list_box的显示列表与一个list是一一对应的。可设置一个全局变量保存该list。
本例中，考虑到所有图层和当前图层列表显示的全部图层的关系，设置两个全局变量分开保存，hnu:layname-list，hnu:layname-list-c。
后者由前者通过函数处理(layname-fil）得出。

1.   ;处理图层名称列表
   
2.   (show_list "lay-name"  (layname-fil lay-fil-n lay-fil-n2)) ;在layname-fil里设置nil为0

  ;处理图层名称列表<br />   (show_list "lay-name"  (layname-fil lay-fil-n lay-fil-n2)) ;在layname-fil里设置nil为0

list_box的get

取的值是是在列表中的序号，从0开始，与nth和vl_position函数相同。且注意到get_tile获得的值均以字符串方式显示，故需要使用atoi。

1. (setq layname (nth (atoi (get_tile "lay-name")) hnu:layname-list-c))

(setq layname (nth (atoi (get_tile "lay-name")) hnu:layname-list-c))

list_box的set

也是通过set_tile设置序号，注意使用itoa。

三、对话框的控制流程
和顺序、选择、循环三大简单的执行流程相比，对话框的控制是通过action_tile命令设置回调函数。比如按钮的点击、列表的选择都会触发回调函数。
本例图层信息的显示即通过对图层列表的list_box设置一个回调函数即可。

1. (action_tile "lay-name" "(showlayinfo)")

(action_tile "lay-name" "(showlayinfo)")

四、对话框使用流程
再次强调对话框的流程load——>new——>start——>done——>unload
前面所说的控件的显示、回调函数的设置，均在new初始化之后，start之前。要知道，start对话框后，对话框便显示出来，你便只有点击对话框的命了。
为了增强控制，done_dialog提供一个参数，该参数作为start_dialog的返回值，这便是对话框内容更新的原因，也使得对话框循环成为可能。

cghdy

优质教学贴

hhh454

写的非常棒，学习了

chenbj0

又一位lisp高手冉冉升起

999999

谢谢大神的分享，收下学习了

趣意人生

谢谢大神的分享