求一个完整简洁的示例

lucas3

csharp 发表于 2014-10-5 21:32
每个 list. 要有一个表用来填充，再有一个变量设置默认及记录选择

要示例代码啊，{:soso_e150:} 你高估我了，我不会啊

Free-Lancer

lucas3 发表于 2014-10-5 21:39
要示例代码啊， 你高估我了，我不会啊

支持多个列表的 Dcl:ListAction 函数，下载 lib-dcl.fas

1. (defun c:tt (/ strl lyrlst fn)
   
2.   (setq        strl         '("temp:dialog {"
   
3.                    "label = \"List text\";"
   
4.                    ":row  {"
   
5.                    ":list_box { key = \"lyr1\"; height = 16; width = 8;}"
   
6.                    ":list_box { key = \"lyr2\"; height = 16; width = 8;}"
   
7.                    "}"
   
8.                    "ok_cancel;}"
   
9.                   )
   
10.         lyrlst         (fy:table "layer")
    
11.         fn         (dcl:make strl)
    
12.         id         (dcl:load fn "temp")
    
13.         lst1_def "0"
    
14.         lst2_def "1"
    
15.   )
    
16.   (dcl:listaction
    
17.     '("lyr1" "lyr2");_key list， 单个列表时用 key string
    
18.     '(lyrlst lyrlst);_引用的变量名，加 '， 单个列表时 'lyrlst
    
19.     '(lst1_def lst2_def);_默认值及记录选择的变量，加 ‘ , 单个列表时  'lst1_def
    
20.   )
    
21.   (dcl:start id fn)
    
22.   (princ (strcat "\nListBox1 select " lst1_def))
    
23.   (princ (strcat "\nListBox2 select " lst2_def))
    
24.   (princ)
    
25. )

(defun c:tt (/ strl lyrlst fn)<br />   (setq        strl         '("temp:dialog {"<br />                    "label = \"List text\";"<br />                    ":row  {"<br />                    ":list_box { key = \"lyr1\"; height = 16; width = 8;}"<br />                    ":list_box { key = \"lyr2\"; height = 16; width = 8;}"<br />                    "}"<br />                    "ok_cancel;}"<br />                   )<br />         lyrlst         (fy:table "layer")<br />         fn         (dcl:make strl)<br />         id         (dcl:load fn "temp")<br />         lst1_def "0"<br />         lst2_def "1"<br />   )<br />   (dcl:listaction<br />     '("lyr1" "lyr2");_key list， 单个列表时用 key string<br />     '(lyrlst lyrlst);_引用的变量名，加 '， 单个列表时 'lyrlst <br />     '(lst1_def lst2_def);_默认值及记录选择的变量，加 ‘ , 单个列表时  'lst1_def<br />   )<br />   (dcl:start id fn)<br />   (princ (strcat "\nListBox1 select " lst1_def))<br />   (princ (strcat "\nListBox2 select " lst2_def))<br />   (princ)<br /> )

lucas3

Free-Lancer 发表于 2014-10-5 23:54
支持多个列表的 DclistAction 函数，下载 lib-dcl.fas

谢谢大师，今天一直在忙着出图，没有时间测试，等有空测试了，再来反馈结果！{:soso_e178:}

lucas3

Free-Lancer 发表于 2014-10-5 23:54
支持多个列表的 DclistAction 函数，下载 lib-dcl.fas

Free-Lancer大师，您好！抽空测试了下，很好！ 您这里也贴出了这个示例，http://bbs.xdcad.org/thread-676328-1-1.html {:soso_e113:}

lucas3

Free-Lancer 发表于 2014-10-5 23:54
支持多个列表的 DclistAction 函数，下载 lib-dcl.fas

大师，这两句连在一起，要怎样写呢？
(if (not lst1_def)
   (setq lst1_def "图层1")
)
(if (not lst2_def)
   (setq lst2_def "图层2")
)

wangxf888

先收藏  有空在学