用grid控件实现简单的表格输入(源码)

ycllzhou

谢谢了，一直没有搞明白

skg123

学习了一下，也在上面修改了一下，通过读取文本录入数据

2. (DEFUN c:test ( /  )
   
3. ;文本数据格式：
   
4. ;钢管 123 65.8
   
5. ;钢板 1232 78
   
6. ;混凝土 121 34
   
7. 
   
8. ; (setq gVar '( ("钢管"     "1724"    "65.8")
   
9. ;             ("钢筋"     "26.23"   "4564.3")
   
10. ;            ("模板"     "1853"  "9.7")
    
11.   ;           ("混凝土1" "449.2" "370")
    
12.    ;          ("混凝土2" "449.2" "380")
    
13.     ;         ("混凝土3" "454.2" "300")
    
14.      ;        ("混凝土4" "1002" "390")
    
15.       ;       ("混凝土5" "449.2" "390" )
    
16. ;       ))
    
17. 
    
18. 
    
19. ;;=================================
    
20. (setq gVar nil)
    
21. (if        (and (setq FILE        (getfiled "选择参数数据文件:名称 数量 单价"
    
22.                                   ""
    
23.                                   "txt"
    
24.                                   4
    
25.                         )
    
26.              )
    
27.              ;;读模式打开lsp文件
    
28.              (setq F1 (open FILE "r"))
    
29. )
    
30.         (progn
    
31.             ;;逐行读入
    
32.      (while (setq STR (read-line F1))
    
33.                (setq LST (read (strcat "(" STR ")")))
    
34.             (setq LST_s (list (mapcar 'vl-prin1-to-string LST)) )
    
35. ;(setq LST_s (mapcar 'vl-prin1-to-string '(钢筋 2 3 4) ));这个对于汉字可行；返回("钢筋" "2" "3" "4" )
    
36. ;(setq LST_Cc (mapcar 'itoa lst ));这个对于数字可行
    
37.           ;  (setq LST_s (mapcar 'itoa 'LST) )
    
38.                 (if (= (length LST) 3)  (setq gVar (append LST_s gVar ))  );end if
    
39.              );end while
    
40.     );end progn
    
41. (close File)
    
42. );end if
    
43. (setq gVar (reverse gVar))
    
44. ;;;;=================================
    
45. 
    
46.   (setvar "CMDECHO" 0)
    
47.   (if (null (vl-symbol-value 'dcl_getversionex))  (loadRtime))
    
48. 
    
49.   ;; (Dcl_Project_Import (vl-get-resource "test.odcl"))   ;;程序打包时使用
    
50. 
    
51.    (dcl_Project_Load "test.odcl")  ;;调试时使用，编译时屏蔽
    
52.    (dcl_FORM_SHOW test_Dtest)
    
53.        ;;控制交给对话框
    
54.    (dcl_Project_Unload "test")  
    
55. 
    
56. Reture
    
57. )
    
58. 
    
59. 
    
60. 
    
61. (defun c:test_Dtest_OnInitialize (/)
    
62. 
    
63.   (setq i (length gvar)) ;;默认数据的长度
    
64.   ;(setq i (length LST_CS)) ;;默认数据的长度
    
65.   (Odcl_Grid_full_Fun i)
    
66. (Odcl_Grid_Set_Fun gvar)   ;;默认赋值
    
67. ;(Odcl_Grid_Set_Fun LST_CS)   ;;默认赋值
    
68. 
    
69. ;;初始化下拉列表
    
70. (dcl_Control_SetList test_Dtest_ComboBox1 '("1" "2" "3" "4" "5" "6" "7" "8" "9" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    
71. (dcl_ComboBox_SetCurSel test_Dtest_ComboBox1 (- i 1))
    
72. )
    
73. 
    
74. 
    
75. 
    
76. (defun c:test_Dtest_Grid1_OnSelChanged (nRow nCol /)
    
77.   (dcl_Control_SetText test_Dtest_TextBox1 (dcl_Grid_GetCellText test_Dtest_Grid1  nRow nCol))
    
78. )
    
79. 
    
80. 
    
81. 
    
82. 
    
83. 
    
84. ;;返回下拉列表的值，填充Grid
    
85. (defun c:test_Dtest_ComboBox1_OnSelChanged (ItemIndexOrCount Value /)
    
86.   (setq i (atoi Value))
    
87.   (Odcl_Grid_full_Fun i)
    
88. )
    
89. 
    
90. 
    
91. ;;计算
    
92. (defun c:test_Dtest_Cmd2_OnClicked (/)
    
93. 
    
94.   (setq na (dcl_Grid_GetRowCount test_Dtest_Grid1)) ;;行
    
95.   (setq a 0)
    
96.   (repeat na
    
97.            (dcl_Grid_SetCellText test_Dtest_Grid1 a 4 (rtos
    
98.             (* (atof (dcl_Grid_GetCellText test_Dtest_Grid1 a 2))
    
99.            (atof (dcl_Grid_GetCellText test_Dtest_Grid1 a 3)))))
    
100.           (setq a (+ a 1))
     
101.   )
     
102.    (setq Reture (Odcl_Grid_Get_Fun))
     
103. )
     
104. 
     
105. 
     
106. ;;填充Grid列表框函数
     
107. (defun Odcl_Grid_full_Fun(i / a b c)
     
108.   (setq a 0)
     
109.   (dcl_Grid_Clear test_Dtest_Grid1) ;;清除
     
110. 
     
111.   (repeat i (Dcl_Grid_Addrow test_Dtest_Grid1 (itoa (setq a (+ a 1))) "") )
     
112. (setq b 1)  ;;列
     
113. (repeat 4   ;;按列
     
114.        (setq a 0)
     
115.        (repeat i   
     
116.            (if (= b 1)(setq c 6)(setq c 9))
     
117.            (dcl_Grid_SetCellStyle test_Dtest_Grid1 a b c)
     
118.        (setq a (+ a 1))
     
119.    )(setq b (+ b 1))
     
120. )
     
121. )
     
122. 
     
123. 
     
124. ;;给Grid赋值
     
125. (defun Odcl_Grid_Set_Fun( va / a b)
     
126. (setq a 0 ) ;;行
     
127. (repeat (length va)
     
128.      (setq b 0)  ;;列
     
129.      (repeat (length (nth 0 va))
     
130.          (dcl_Grid_SetCellText test_Dtest_Grid1 a (+ b 1) (nth b (nth a va)))
     
131.          (setq b (+ b 1))
     
132.      )
     
133.     (setq a (+ a 1))
     
134.   )  
     
135. )
     
136. 
     
137. 
     
138. ;;提取Grid数据
     
139. (defun Odcl_Grid_Get_Fun( / na nb a b ab sab)
     
140.   (setq na (dcl_Grid_GetRowCount test_Dtest_Grid1)) ;;行
     
141.   (setq nb (dcl_Grid_GetColumnCount test_Dtest_Grid1)) ;;列
     
142. (setq Sab '() ab '())
     
143. (setq a 0)
     
144. (repeat na
     
145.       (setq b 0)
     
146.       (repeat nb
     
147.              (setq ab (cons (dcl_Grid_GetCellText test_Dtest_Grid1 a b) ab))
     
148.              (setq b (+ b 1))
     
149.       )
     
150.      (setq Sab (cons (reverse ab) Sab))
     
151.      (setq a (+ a 1))
     
152.      (setq ab '())
     
153. )
     
154.   (setq Sab (reverse Sab));reverse 函数是将表的顺序反向
     
155. )
     
156. 
     
157. 
     
158. ;;关闭主窗口
     
159. (defun c:Untitled_dtest_cmd1_OnClicked (/)
     
160. (dcl_Form_Close test_Dtest)
     
161. )
     
162. 
     
163. 
     
164. 
     
165. ;;禁止回车键关闭窗口，但会使窗口右上角的 x 关闭按钮失效
     
166. (defun c:test_Dtest_OnCancelClose (Reason /)
     
167.   (/= Reason T)
     
168. )
     
169. 
     
170. 
     
171. ;;加载 OpenDCL.xx.arx链接库文件
     
172. (defun loadRtime ( / acadversion arxname dclarxfile)
     
173.   (setq acadversion (substr (getvar "acadver") 1 2))
     
174.   (setq arxname (strcat "OpenDCL."acadversion".arx"))
     
175.   (setq dclarxfile (findfile arxname))
     
176.   (if (and (= (member arxname (arx) ) nil) (/= dclarxfile nil))
     
177.      (arxload dclarxfile)
     
178.      (alert (strcat "\n找不到" arxname "文件,请确认OpenDCL文件是否放在acad搜索路径中" ))
     
179.   )
     
180. )
     
181. 
     
182. 
     

(DEFUN c:test ( /  )<br /> ;文本数据格式：<br /> ;钢管 123 65.8<br /> ;钢板 1232 78<br /> ;混凝土 121 34<br /> <br /> ; (setq gVar '( ("钢管"     "1724"    "65.8") <br /> ;             ("钢筋"     "26.23"   "4564.3") <br /> ;            ("模板"     "1853"  "9.7")<br />   ;           ("混凝土1" "449.2" "370")<br />    ;          ("混凝土2" "449.2" "380")<br />     ;         ("混凝土3" "454.2" "300")<br />      ;        ("混凝土4" "1002" "390")<br />       ;       ("混凝土5" "449.2" "390" )<br /> ;       ))<br /> <br /> <br /> ;;=================================<br /> (setq gVar nil)<br /> (if        (and (setq FILE        (getfiled "选择参数数据文件:名称 数量 单价"<br />                                   ""<br />                                   "txt"<br />                                   4<br />                         )<br />              )<br />              ;;读模式打开lsp文件<br />              (setq F1 (open FILE "r"))<br /> )<br />         (progn<br />             ;;逐行读入<br />      (while (setq STR (read-line F1))<br />                (setq LST (read (strcat "(" STR ")")))<br />             (setq LST_s (list (mapcar 'vl-prin1-to-string LST)) )<br /> ;(setq LST_s (mapcar 'vl-prin1-to-string '(钢筋 2 3 4) ));这个对于汉字可行；返回("钢筋" "2" "3" "4" )<br /> ;(setq LST_Cc (mapcar 'itoa lst ));这个对于数字可行<br />           ;  (setq LST_s (mapcar 'itoa 'LST) )<br />                 (if (= (length LST) 3)  (setq gVar (append LST_s gVar ))  );end if<br />              );end while<br />     );end progn<br /> (close File)<br /> );end if<br /> (setq gVar (reverse gVar))<br /> ;;;;=================================<br /> <br />   (setvar "CMDECHO" 0)<br />   (if (null (vl-symbol-value 'dcl_getversionex))  (loadRtime))<br /> <br />   ;; (Dcl_Project_Import (vl-get-resource "test.odcl"))   ;;程序打包时使用<br /> <br />    (dcl_Project_Load "test.odcl")  ;;调试时使用，编译时屏蔽<br />    (dcl_FORM_SHOW test_Dtest)<br />        ;;控制交给对话框<br />    (dcl_Project_Unload "test")  <br /> <br /> Reture<br /> )<br /> <br /> <br /> <br /> (defun c:test_Dtest_OnInitialize (/)<br /> <br />   (setq i (length gvar)) ;;默认数据的长度<br />   ;(setq i (length LST_CS)) ;;默认数据的长度<br />   (Odcl_Grid_full_Fun i)<br /> (Odcl_Grid_Set_Fun gvar)   ;;默认赋值<br /> ;(Odcl_Grid_Set_Fun LST_CS)   ;;默认赋值<br /> <br /> ;;初始化下拉列表<br /> (dcl_Control_SetList test_Dtest_ComboBox1 '("1" "2" "3" "4" "5" "6" "7" "8" "9" "1" "2" "3" "4" "5" "6" "7" "8" "9"))<br /> (dcl_ComboBox_SetCurSel test_Dtest_ComboBox1 (- i 1))<br /> )<br /> <br /> <br /> <br /> (defun c:test_Dtest_Grid1_OnSelChanged (nRow nCol /) <br />   (dcl_Control_SetText test_Dtest_TextBox1 (dcl_Grid_GetCellText test_Dtest_Grid1  nRow nCol))<br /> )<br /> <br /> <br /> <br /> <br /> <br /> ;;返回下拉列表的值，填充Grid<br /> (defun c:test_Dtest_ComboBox1_OnSelChanged (ItemIndexOrCount Value /)<br />   (setq i (atoi Value))<br />   (Odcl_Grid_full_Fun i)<br /> )<br /> <br /> <br /> ;;计算<br /> (defun c:test_Dtest_Cmd2_OnClicked (/)<br /> <br />   (setq na (dcl_Grid_GetRowCount test_Dtest_Grid1)) ;;行<br />   (setq a 0)<br />   (repeat na<br />            (dcl_Grid_SetCellText test_Dtest_Grid1 a 4 (rtos<br />             (* (atof (dcl_Grid_GetCellText test_Dtest_Grid1 a 2))<br />            (atof (dcl_Grid_GetCellText test_Dtest_Grid1 a 3)))))<br />           (setq a (+ a 1))<br />   )<br />    (setq Reture (Odcl_Grid_Get_Fun))<br /> )<br /> <br /> <br /> ;;填充Grid列表框函数<br /> (defun Odcl_Grid_full_Fun(i / a b c)<br />   (setq a 0)<br />   (dcl_Grid_Clear test_Dtest_Grid1) ;;清除<br /> <br />   (repeat i (Dcl_Grid_Addrow test_Dtest_Grid1 (itoa (setq a (+ a 1))) "") )<br /> (setq b 1)  ;;列<br /> (repeat 4   ;;按列<br />        (setq a 0)<br />        (repeat i   <br />            (if (= b 1)(setq c 6)(setq c 9))<br />            (dcl_Grid_SetCellStyle test_Dtest_Grid1 a b c)<br />        (setq a (+ a 1))<br />    )(setq b (+ b 1))<br /> )<br /> )<br /> <br /> <br /> ;;给Grid赋值<br /> (defun Odcl_Grid_Set_Fun( va / a b)<br /> (setq a 0 ) ;;行<br /> (repeat (length va)<br />      (setq b 0)  ;;列<br />      (repeat (length (nth 0 va))<br />          (dcl_Grid_SetCellText test_Dtest_Grid1 a (+ b 1) (nth b (nth a va)))<br />          (setq b (+ b 1))<br />      )<br />     (setq a (+ a 1))<br />   )  <br /> )<br /> <br /> <br /> ;;提取Grid数据<br /> (defun Odcl_Grid_Get_Fun( / na nb a b ab sab)<br />   (setq na (dcl_Grid_GetRowCount test_Dtest_Grid1)) ;;行<br />   (setq nb (dcl_Grid_GetColumnCount test_Dtest_Grid1)) ;;列<br /> (setq Sab '() ab '())<br /> (setq a 0)<br /> (repeat na<br />       (setq b 0)<br />       (repeat nb<br />              (setq ab (cons (dcl_Grid_GetCellText test_Dtest_Grid1 a b) ab))<br />              (setq b (+ b 1))<br />       )<br />      (setq Sab (cons (reverse ab) Sab))<br />      (setq a (+ a 1))<br />      (setq ab '())<br /> )<br />   (setq Sab (reverse Sab));reverse 函数是将表的顺序反向<br /> )<br /> <br /> <br /> ;;关闭主窗口<br /> (defun c:Untitled_dtest_cmd1_OnClicked (/)<br /> (dcl_Form_Close test_Dtest)<br /> )<br /> <br /> <br /> <br /> ;;禁止回车键关闭窗口，但会使窗口右上角的 x 关闭按钮失效<br /> (defun c:test_Dtest_OnCancelClose (Reason /)<br />   (/= Reason T)<br /> )<br /> <br /> <br /> ;;加载 OpenDCL.xx.arx链接库文件<br /> (defun loadRtime ( / acadversion arxname dclarxfile)<br />   (setq acadversion (substr (getvar "acadver") 1 2))<br />   (setq arxname (strcat "OpenDCL."acadversion".arx"))<br />   (setq dclarxfile (findfile arxname))<br />   (if (and (= (member arxname (arx) ) nil) (/= dclarxfile nil))<br />      (arxload dclarxfile)<br />      (alert (strcat "\n找不到" arxname "文件,请确认OpenDCL文件是否放在acad搜索路径中" ))<br />   )<br /> )<br /> <br /> <br />

664571221

这个怎么用

革天明

yxp 发表于 2013-7-7 23:15
初学，这是我的第一个练习的ODCL
新的odcl在这里
http://bbs.mjtd.com/thread-101970-1-1.html

请问单元格有没有某行（或者某个单无格被点击的事件或状态？

773786668

学习谢谢楼主

anwil

这插件很给力，谢谢分享。

人生华华

楼主，请教一下，OPENDCL的表格   (dcl_Grid_SetCellText aaa_Form2_格1 2 1 "ddddffff")  用这个无法赋值啊，。好像我打开对话框，默认表格是不可编辑的状态

pengfei2010

感谢楼主的无私分享 谢谢

LIULISHENG

学习了，顶楼主一个