无聊,发个对话框玩玩,求高手改进~~~~

77077

2. (defun MAKE-EditDCL  (lst FILENAME / F1 I)
   
3. ;
   
4. FILENAME 对话框文件保存位置
   
5. ;lst 点对表((标签1 . 值1) (标签2 . 值2) (标签3 . 值3) (标签4 . 值4))
   
6.   (if  (setq F1 (open FILENAME "w"))
   
7.     (progn
   
8.       (write-line "EditDCL: dialog{ label = "测试对话框";" F1 )
   
9.       (write-line ":boxed_column { label="内容列表";"  F1)
   
10.       (setq I 1)
    
11.       (foreach n lst
    
12.        (progn
    
13.           (write-line (strcat  ":edit_box{ label="" (vl-princ-to-string (car n)) ""; value="" (vl-princ-to-string (cdr n)) "";  key = "KEY" (itoa I) "";  }" ) F1 )
    
14.           (setq I (1+ I))
    
15.        )
    
16.       )
    
17.       (write-line "}" F1)
    
18.       (write-line "ok_only;" F1)
    
19.       (write-line "}" F1)
    
20.       (close F1)
    
21.       t
    
22.     )
    
23.   )
    
24. )
    
25. 
    
26. ;测试测试~~~
    
27. (defun c:tt()
    
28. (setq lst '((标签1 . 值1) (标签2 . 值2) (标签3 . 值3) (标签4 . 值4)))
    
29. (MAKE-EditDCL lst "d:\\11.dcl")
    
30. )

(defun MAKE-EditDCL  (lst FILENAME / F1 I)<br /> ;<br /> FILENAME 对话框文件保存位置<br /> ;lst 点对表((标签1 . 值1) (标签2 . 值2) (标签3 . 值3) (标签4 . 值4))<br />   (if  (setq F1 (open FILENAME "w"))<br />     (progn<br />       (write-line "EditDCL: dialog{ label = "测试对话框";" F1 )<br />       (write-line ":boxed_column { label="内容列表";"  F1)<br />       (setq I 1)<br />       (foreach n lst<br />        (progn<br />           (write-line (strcat  ":edit_box{ label="" (vl-princ-to-string (car n)) ""; value="" (vl-princ-to-string (cdr n)) "";  key = "KEY" (itoa I) "";  }" ) F1 )<br />           (setq I (1+ I))<br />        )<br />       )<br />       (write-line "}" F1)<br />       (write-line "ok_only;" F1)<br />       (write-line "}" F1)<br />       (close F1)<br />       t<br />     )<br />   )<br /> )<br /> <br /> ;测试测试~~~<br /> (defun c:tt()<br /> (setq lst '((标签1 . 值1) (标签2 . 值2) (标签3 . 值3) (标签4 . 值4)))<br /> (MAKE-EditDCL lst "d:\\11.dcl")<br /> )

测试生成的文件:

2. EditDCL: dialog{ label = "测试对话框";
   
3. :boxed_column { label="内容列表";
   
4. :edit_box{ label="标签1"; value="值1";  key = "KEY1";  }
   
5. :edit_box{ label="标签2"; value="值2";  key = "KEY2";  }
   
6. :edit_box{ label="标签3"; value="值3";  key = "KEY3";  }
   
7. :edit_box{ label="标签4"; value="值4";  key = "KEY4";  }
   
8. }
   
9. ok_only;
   
10. }

EditDCL: dialog{ label = "测试对话框";<br /> :boxed_column { label="内容列表";<br /> :edit_box{ label="标签1"; value="值1";  key = "KEY1";  }<br /> :edit_box{ label="标签2"; value="值2";  key = "KEY2";  }<br /> :edit_box{ label="标签3"; value="值3";  key = "KEY3";  }<br /> :edit_box{ label="标签4"; value="值4";  key = "KEY4";  }<br /> }<br /> ok_only;<br /> }

根据点对表,生成相应的对话框.
求改进,如果列表太长,屏幕显示不过来,求以10分栏显示.

xyp1964

2. (defun c:tt (/ ilst)
   
3.   (xyp-initSet '(t1 t2 t3 t4) '("值1" "值2" "值3" "值4"))
   
4.   (setq ilst '(("t1" "标签1" "str" "8")
   
5.                ("t2" "标签2" "str" "8")
   
6.                ("t3" "标签3" "str" "8")
   
7.                ("t4" "标签4" "str" "8")
   
8.                "spacer;"
   
9.               )
   
10.   )
    
11.   (xyp-Dcl-Init Ilst "【测试对话框】" t)
    
12.   (princ)
    
13. )

(defun c:tt (/ ilst)<br />   (xyp-initSet '(t1 t2 t3 t4) '("值1" "值2" "值3" "值4"))<br />   (setq ilst '(("t1" "标签1" "str" "8")<br />                ("t2" "标签2" "str" "8")<br />                ("t3" "标签3" "str" "8")<br />                ("t4" "标签4" "str" "8")<br />                "spacer;"<br />               )<br />   )<br />   (xyp-Dcl-Init Ilst "【测试对话框】" t)<br />   (princ)<br /> )

叶曲冰寒

我想问，你想干嘛？

77077

xyp1964 发表于 2014-6-6 14:39

院长,没解决实际问题啊,我问的是:将文本框每10个分一栏.
举个例子说,如果表数据超过30,看起来就是一个细长细长的对话框,很难看.分栏显示效果会好些~~~

ZZXXQQ

2. (defun MAKE-EditDCL (lst FILENAME / F1 I)
   
3. ;FILENAME 对话框文件保存位置
   
4. ;lst 点对表((标签1 . 值1) (标签2 . 值2) (标签3 . 值3) (标签4 . 值4))
   
5. (if (setq F1 (open FILENAME "w")) (progn
   
6.   (write-line "EditDCL:dialog{label="测试对话框";" F1)
   
7.   (write-line ":boxed_column{label="内容列表";" F1)
   
8.   (write-line ":row{\n:column{" F1)
   
9.   (setq I 1)
   
10.   (foreach n lst
    
11.    (write-line
    
12.     (strcat ":edit_box{label="" (vl-princ-to-string (car n))
    
13.             "";value="" (vl-princ-to-string (cdr n))
    
14.             "";key="KEY" (itoa I) "";}" ) F1)
    
15.    (if (= (rem i 10) 0) (write-line "}\n:column{" F1))
    
16.    (setq I (1+ I))
    
17.   )
    
18. (if (/= (rem (1- i) 10) 0) (write-line "}" F1))
    
19.   (write-line "}\n}" F1)
    
20.   (write-line "ok_only;" F1)
    
21.   (write-line "}" F1)
    
22.   (close F1)
    
23.   t
    
24. ))
    
25. )
    

(defun MAKE-EditDCL (lst FILENAME / F1 I)<br /> ;FILENAME 对话框文件保存位置<br /> ;lst 点对表((标签1 . 值1) (标签2 . 值2) (标签3 . 值3) (标签4 . 值4))<br /> (if (setq F1 (open FILENAME "w")) (progn<br />   (write-line "EditDCL:dialog{label="测试对话框";" F1)<br />   (write-line ":boxed_column{label="内容列表";" F1)<br />   (write-line ":row{\n:column{" F1)<br />   (setq I 1)<br />   (foreach n lst<br />    (write-line<br />     (strcat ":edit_box{label="" (vl-princ-to-string (car n))<br />             "";value="" (vl-princ-to-string (cdr n))<br />             "";key="KEY" (itoa I) "";}" ) F1)<br />    (if (= (rem i 10) 0) (write-line "}\n:column{" F1))<br />    (setq I (1+ I))<br />   )<br /> (if (/= (rem (1- i) 10) 0) (write-line "}" F1))<br />   (write-line "}\n}" F1)<br />   (write-line "ok_only;" F1)<br />   (write-line "}" F1)<br />   (close F1)<br />   t<br /> ))<br /> )<br />

77077

rem，Z版就是热心肠，问题解决！

xyp1964

表数据超过30——啥功能这么复杂？

77077

在做城市规划的时候,地块属性包括
地块编号
用地性质名称
用地性质代码
地块面积
容积率(上限)
容积率(下限)
建筑密度(上限)
绿地率(上限)
绿地率(下限)
建筑限高
配套公建
项目类型
项目名称
项目规模
备注
建筑面积
绿地面积
道路面积
人口
户数
机动车位
自行车位
兼容用地
兼容比例
地下开发深度
地下性质
建筑后退(东)
建筑后退(南)
建筑后退(西)
建筑后退(北)
出入口方位
其他
^^^^^^
如果再算上地块的用水\用电\燃气这些指标,你说有可能超过30没?

ZZXXQQ

5楼改了，再试试。

77077

2. (defun MAKE-EditDCL (lst DlgName FILENAME / F1 I)
   
3. ;FILENAME 对话框文件保存位置
   
4. ;lst 表
   
5. (if (setq F1 (open FILENAME "w")) (progn
   
6.   (write-line (strcat "EditDCL:dialog{label="" (car DlgName) "";") F1)
   
7.   (write-line (strcat ":boxed_column{label="" (cadr DlgName) "";") F1)
   
8.       (foreach n lst
   
9.        (progn
   
10.           (write-line
    
11.                                         (strcat  ":edit_box{ label="" (vl-princ-to-string (car n)) ""; value="" (vl-princ-to-string (cadr n)) "";  key = "" (vl-princ-to-string (caddr n)) "";  }" )
    
12.                                         F1 )
    
13.        )
    
14.       )
    
15.       (write-line "}" F1)
    
16.       (write-line "ok_only;" F1)
    
17.       (write-line "}" F1)
    
18.       (close F1)
    
19.       t
    
20.     )
    
21.   )
    
22. )
    
23. 
    
24. (defun c:tt()
    
25. (setq lst '(("标签1" "str" "key1")
    
26.              ("标签2" "str" "key2")
    
27.              ("标签3" "str" "key3")
    
28.              ("标签4" "str" "key4")
    
29.              )
    
30.   )
    
31. (MAKE-EditDCL lst '("【对话框名称】" "列表项目") "d:\\11.dcl" )
    
32. )

(defun MAKE-EditDCL (lst DlgName FILENAME / F1 I)<br /> ;FILENAME 对话框文件保存位置<br /> ;lst 表<br /> (if (setq F1 (open FILENAME "w")) (progn<br />   (write-line (strcat "EditDCL:dialog{label="" (car DlgName) "";") F1)<br />   (write-line (strcat ":boxed_column{label="" (cadr DlgName) "";") F1)<br />       (foreach n lst<br />        (progn<br />           (write-line <br />                                         (strcat  ":edit_box{ label="" (vl-princ-to-string (car n)) ""; value="" (vl-princ-to-string (cadr n)) "";  key = "" (vl-princ-to-string (caddr n)) "";  }" )<br />                                         F1 )<br />        )<br />       )<br />       (write-line "}" F1)<br />       (write-line "ok_only;" F1)<br />       (write-line "}" F1)<br />       (close F1)<br />       t<br />     )<br />   )<br /> )<br /> <br /> (defun c:tt()<br /> (setq lst '(("标签1" "str" "key1")<br />              ("标签2" "str" "key2")<br />              ("标签3" "str" "key3")<br />              ("标签4" "str" "key4")<br />              )<br />   )<br /> (MAKE-EditDCL lst '("【对话框名称】" "列表项目") "d:\\11.dcl" )<br /> )