[LISP函数]：ObjectDCL问题---望XD赐教

hqd9639

如下面CODE是定义“移出”按钮的正确CODE
(defun c:DclForm2_TextButton3_OnClicked ()
       (Setq rValue (Odcl_ListBox_GetAnchorIndex acadview_DclForm2_ListBox1))
       (Odcl_ListBox_DeleteString acadview_DclForm2_ListBox1 rValue)
)

而把改成下面代码
(defun c:DclForm2_TextButton3_OnClicked ()
       (Odcl_ListBox_DeleteString acadview_DclForm2_ListBox1 nSelection )
)

则每次删除的是LIST的第一项，而不是你选取的那项

XDSoft

最初由 hqd9639 发布
[B]如下面CODE是定义“移出”按钮的正确CODE
(defun c:DclForm2_TextButton3_OnClicked ()
       (Setq rValue (Odcl_ListBox_GetAnchorIndex acadview_DclForm2_ListBox1))
       (Odcl_ListBox_DeleteString aca... [/B]

你找到正确方法了？

hqd9639

上述看图程序的改进版，增加一些新功能，界面完善。改进中......

Qlin

GetAnchorIndex一般用在多选列表框，用来
确定当前光标所在位置，对于单选的列表框，
用下面的方法也可以

2. 
   
3. (defun c:DclForm2_TextButton3_OnClicked (/ n)
   
4.   (setq n (Odcl_ListBox_GetCurSel acadview_DclForm2_ListBox1))
   
5.   (if (>= n 0)
   
6.     (Odcl_ListBox_DeleteString acadview_DclForm2_ListBox1 n)
   
7.   )
   
8. )
   

<br /> (defun c:DclForm2_TextButton3_OnClicked (/ n)<br />   (setq n (Odcl_ListBox_GetCurSel acadview_DclForm2_ListBox1))<br />   (if (>= n 0)<br />     (Odcl_ListBox_DeleteString acadview_DclForm2_ListBox1 n) <br />   )<br /> )<br />

在你第二段代码中，因为nSelection并不是TextButton3控件
OnClicked事件回调函数的形参，并且在你这段函数内没有
对它赋值，所以它的值是与列表框无关的。

hqd9639

按理解，nSelection应指列表框中当前项的序号，
否则如何引用其值呢? Qlin能否举个例说说。

Qlin

比如说，你的acadview_DclForm2_ListBox1设置了OnSelChanged事件，
它的回调函数是这个样子的：

2. 
   
3. (defun c:DclForm2_ListBox1_OnSelChanged (nSelection sSelText / n)
   
4.     (setq n nSelection)
   
5. )
   

<br /> (defun c:DclForm2_ListBox1_OnSelChanged (nSelection sSelText / n)<br />     (setq n nSelection)<br /> )<br />

在这个函数内对用nSelection对n赋值是有效的，需要的话可以
设置一个全局变量来保留这个值

hqd9639

图层列表

hqd9639

ODCL 中 listview 应用示例：

2. 
   
3. [FONT=courier new]
   
4. ;;;
   
5. ;;;编写：HQD9639
   
6. ;;;
   
7. ;;;日期：2002/11/13
   
8. ;;;
   
9. ;;;==========================================================================
   
10. (Defun objectdcl_loadarx ()
    
11.   (IF (NOT (MEMBER "objectdcl.arx" (ARX)))
    
12.     (ARXLOAD "objectdcl.arx" "ObjectDCL.arx not found.")
    
13.   )
    
14. )
    
15. 
    
16. (Defun c:laylist ()
    
17.         (objectdcl_loadarx)                               
    
18.         (Odcl_LoadProject "laylist" T)               
    
19.         (Odcl_Form_Show  laylist_DclForm1)   
    
20.         (laylst)     
    
21. )
    
22. 
    
23. (defun c:DclForm1_OnInitialize ()
    
24. 
    
25.     (Odcl_Control_SetProperty laylist_DclForm1_Label1 "Caption" laynum)
    
26. 
    
27.     (setq Col1Width
    
28.         (Odcl_ListView_CalcColWidth laylist_DclForm1_ListView1 "层名")
    
29.       Col2Width
    
30.         (Odcl_ListView_CalcColWidth laylist_DclForm1_ListView1 "颜色")
    
31.       Col3Width
    
32.         (Odcl_ListView_CalcColWidth laylist_DclForm1_ListView1 "线型")
    
33.     )
    
34. 
    
35.     (Odcl_ListView_AddColumns laylist_DclForm1_ListView1
    
36.       (list
    
37.         (list 0 "层名" 0 Col1Width 0)
    
38.         (list 1 "颜色" 0 Col2Width 1)
    
39.         (list 2 "线型" 0 Col3Width 2)
    
40.       )
    
41.     )
    
42. 
    
43.     (Odcl_ListView_FillList laylist_DclForm1_ListView1 allst)
    
44. 
    
45.    (Odcl_ListView_SetColWidth laylist_DclForm1_ListView1 0 100)
    
46.    (Odcl_ListView_SetColWidth laylist_DclForm1_ListView1 1 100)
    
47.    (Odcl_ListView_SetColWidth laylist_DclForm1_ListView1 2 100)
    
48. 
    
49. )
    
50. 
    
51. (defun c:DclForm1_TextButton1_OnClicked ()
    
52.     (Odcl_Form_Close  laylist_DclForm1)
    
53. )
    
54. 
    
55. ;;;==================================================================[/FONT]

<br /> [FONT=courier new]<br /> ;;;<br /> ;;;编写：HQD9639<br /> ;;;<br /> ;;;日期：2002/11/13<br /> ;;;<br /> ;;;==========================================================================<br /> (Defun objectdcl_loadarx ()<br />   (IF (NOT (MEMBER "objectdcl.arx" (ARX)))<br />     (ARXLOAD "objectdcl.arx" "ObjectDCL.arx not found.")<br />   )<br /> )<br /> <br /> (Defun c:laylist ()<br />         (objectdcl_loadarx)                                <br />         (Odcl_LoadProject "laylist" T)                <br />         (Odcl_Form_Show  laylist_DclForm1)   <br />         (laylst)     <br /> )<br /> <br /> (defun c:DclForm1_OnInitialize ()<br /> <br />     (Odcl_Control_SetProperty laylist_DclForm1_Label1 "Caption" laynum)<br /> <br />     (setq Col1Width <br />         (Odcl_ListView_CalcColWidth laylist_DclForm1_ListView1 "层名")<br />       Col2Width <br />         (Odcl_ListView_CalcColWidth laylist_DclForm1_ListView1 "颜色")<br />       Col3Width <br />         (Odcl_ListView_CalcColWidth laylist_DclForm1_ListView1 "线型")<br />     )<br /> <br />     (Odcl_ListView_AddColumns laylist_DclForm1_ListView1<br />       (list<br />         (list 0 "层名" 0 Col1Width 0)<br />         (list 1 "颜色" 0 Col2Width 1)<br />         (list 2 "线型" 0 Col3Width 2)<br />       )<br />     )<br /> <br />     (Odcl_ListView_FillList laylist_DclForm1_ListView1 allst)<br /> <br />    (Odcl_ListView_SetColWidth laylist_DclForm1_ListView1 0 100)<br />    (Odcl_ListView_SetColWidth laylist_DclForm1_ListView1 1 100)<br />    (Odcl_ListView_SetColWidth laylist_DclForm1_ListView1 2 100)<br /> <br /> )<br /> <br /> (defun c:DclForm1_TextButton1_OnClicked ()<br />     (Odcl_Form_Close  laylist_DclForm1)<br /> )<br /> <br /> ;;;==================================================================[/FONT]

qfcad

已学习，多谢！

zhuxiaoming

正急需呢,多些啊