为应用程序数据提供一个简单的修改界面

vectra

这是一个简单的表数据编辑器，用于编辑形如(("Width" . 10) ("Height" . 100.0) ("Extendedable" . "Yes"))的表
按确定返回修改后的表，按取消返回nil。

1. (defun edit (lst / update-textbox update-list)
   
2.   (defun update-textbox  (index)
   
3.     (set_tile "value"
   
4.         (vl-princ-to-string (cdr (nth (atoi index) lst)))
   
5.     )
   
6.   )
   
7. 
   
8.   (defun update-list (value / index new old)
   
9.     (setq index  (atoi (get_tile "name"))
   
10.     old  (nth index lst)
    
11.     )
    
12.     (if  (/= (cdr old) value)
    
13.       (progn
    
14.   (setq new (strcat (car old) "\t" value))
    
15. 
    
16.   (start_list "name" 1 index) ;_ 指定修改 index 位置上的数据
    
17.   (add_list new)
    
18.   (end_list)
    
19. 
    
20.   (setq lst (subst (cons (car old) value) old lst))
    
21.       )
    
22.     )
    
23.   )
    
24. 
    
25.   (defun make-load-dcl (/ dclfile dlg file)
    
26.     (setq dclfile (vl-filename-mktemp nil nil ".dcl")
    
27.     file    (open dclfile "w")
    
28.     )
    
29. 
    
30.     (write-line
    
31.       "PropertyEditForm:dialog{label=\"属性编辑\";
    
32.       :row{:list_box{key=\"name\";height=25;width=50;tabs=25;}
    
33.       :row{:edit_box{key=\"value\";width=30;}}}
    
34.       ok_cancel;}"
    
35.       file
    
36.     )
    
37. 
    
38.     (close file)
    
39.     (setq dlg (load_dialog dclfile))
    
40.     (vl-file-delete dclfile)
    
41.     dlg
    
42.   )
    
43. 
    
44.   (new_dialog "PropertyEditForm" (make-load-dcl))
    
45.   (start_list "name")
    
46.   (mapcar
    
47.     'add_list
    
48.     (mapcar
    
49.       '(lambda (e) (strcat (car e) "\t" (vl-princ-to-string (cdr e))))
    
50.       lst
    
51.     )
    
52.   )
    
53.   (end_list)
    
54. 
    
55.   (action_tile "name" "(update-textbox $VALUE)")
    
56.   (action_tile "value" "(update-list $VALUE)")
    
57.   (if (= (start_dialog) 1)
    
58.     lst
    
59.   )
    
60. )

(defun edit (lst / update-textbox update-list)<br />   (defun update-textbox  (index)<br />     (set_tile "value"<br />         (vl-princ-to-string (cdr (nth (atoi index) lst)))<br />     )<br />   )<br /> <br />   (defun update-list (value / index new old)<br />     (setq index  (atoi (get_tile "name"))<br />     old  (nth index lst)<br />     )<br />     (if  (/= (cdr old) value)<br />       (progn<br />   (setq new (strcat (car old) "\t" value))<br /> <br />   (start_list "name" 1 index) ;_ 指定修改 index 位置上的数据<br />   (add_list new)<br />   (end_list)<br /> <br />   (setq lst (subst (cons (car old) value) old lst))<br />       )<br />     )<br />   )<br /> <br />   (defun make-load-dcl (/ dclfile dlg file)<br />     (setq dclfile (vl-filename-mktemp nil nil ".dcl")<br />     file    (open dclfile "w")<br />     )<br /> <br />     (write-line<br />       "PropertyEditForm:dialog{label=\"属性编辑\";<br />       :row{:list_box{key=\"name\";height=25;width=50;tabs=25;}<br />       :row{:edit_box{key=\"value\";width=30;}}}<br />       ok_cancel;}"<br />       file<br />     )<br /> <br />     (close file)<br />     (setq dlg (load_dialog dclfile))<br />     (vl-file-delete dclfile)<br />     dlg<br />   )<br /> <br />   (new_dialog "PropertyEditForm" (make-load-dcl))<br />   (start_list "name")<br />   (mapcar<br />     'add_list<br />     (mapcar<br />       '(lambda (e) (strcat (car e) "\t" (vl-princ-to-string (cdr e))))<br />       lst<br />     )<br />   )<br />   (end_list)<br /> <br />   (action_tile "name" "(update-textbox $VALUE)")<br />   (action_tile "value" "(update-list $VALUE)")<br />   (if (= (start_dialog) 1)<br />     lst<br />   )<br /> )

_$ (edit '(("Width" . 10) ("Height" . 100.0) ("Extendedable" . "Yes")))

修改并确定后返回

(("Width" . "20") ("Height" . "2") ("Extendedable" . "NO"))

USER2128

2. ;;; 楼主为我们提供了一个很好的实用程序，我做了少少修改，楼主莫生气。
   
3. ;;; 增加(mode_tile "value" 2)，可减少鼠标动作，便于快速修改参数
   
4. ;;; 返回值保证与原始参数的格式一致，按"取消"键时仍有返回，只是无修改
   
5. ;;; 如有不妥之处，再次请求楼主见谅。
   
6. ;;; 原作者：vectra； 修改： HLCAD(USER2128)
   
7. (defun edit (Lst0 / Lst update-textbox update-list make-load-dcl)
   
8.   (defun update-textbox (index)
   
9.     (set_tile "value" (vl-princ-to-string (cdr (nth (atoi index) Lst))))
   
10.     )
    
11. ;;;
    
12.   (defun update-list (value / index new old)
    
13.     (setq index (atoi (get_tile "name"))
    
14.           old   (nth index Lst)
    
15.           )
    
16.     (if (/= (cdr old) value)
    
17.       (progn
    
18.         (setq new (strcat (car old) "\t" value))
    
19.         (start_list "name" 1 index) ;_指定修改 index 位置上的数据
    
20.         (add_list new)
    
21.         (end_list)
    
22.         (setq Lst (subst (cons (car old) value) old Lst))
    
23.         )
    
24.       )
    
25.     )
    
26. ;;;
    
27.   (defun make-load-dcl (/ dclfile dlg file)
    
28.     (setq dclfile (vl-filename-mktemp nil nil ".dcl")
    
29.           file    (open dclfile "w")
    
30.           )
    
31.     (write-line
    
32.       "PropertyEditForm:dialog{label="属性编辑";
    
33.       :column{
    
34.         :list_box{key="name";height=15;width=50;tabs=25;}
    
35.         :edit_box{key="value";width=30;}
    
36.         }
    
37.       ok_cancel;}"
    
38.       file
    
39.       )
    
40.     (close file)
    
41.     (setq dlg (load_dialog dclfile))
    
42.     (vl-file-delete dclfile)
    
43.     dlg
    
44.     )
    
45. ;;;
    
46.   (setq Lst Lst0)
    
47.   (new_dialog "PropertyEditForm" (make-load-dcl))
    
48.   (start_list "name")
    
49.   (mapcar
    
50.     'add_list
    
51.     (mapcar '(lambda(e) (strcat (car e) "\t" (vl-princ-to-string (cdr e)))) Lst)
    
52.     )
    
53.   (end_list)
    
54. ;;;
    
55.   (action_tile "name"  "(update-textbox $VALUE) (mode_tile "value" 2)")
    
56.   (action_tile "value" "(update-list $VALUE)")
    
57.   (if (= (start_dialog) 1)
    
58.     (mapcar '(lambda(x / a b c)
    
59.       (progn
    
60.         (setq a (car x)
    
61.               b (cdr x)
    
62.               c (cdr (assoc a Lst))
    
63.               )
    
64.         (cond ((= (type b) 'INT)  (cons a (atoi c)))
    
65.               ((= (type b) 'REAL) (cons a (atof c)))
    
66.               (t (cons a c))
    
67.               )
    
68.         )) Lst0)
    
69.     Lst0)
    
70.   )
    
71. 
    
72. ;_$ (edit '(("Width" . 10) ("Height" . 100.0) ("Extendedable" . "Yes")))
    
73. ;修改并确定后返回
    
74. ;(("Width" . 20) ("Height" . 2.0) ("Extendedable" . "NO"))
    
75. ;按"取消"后返原值(("Width" . 10) ("Height" . 100.0) ("Extendedable" . "Yes"))
    

;;; 楼主为我们提供了一个很好的实用程序，我做了少少修改，楼主莫生气。<br /> ;;; 增加(mode_tile "value" 2)，可减少鼠标动作，便于快速修改参数<br /> ;;; 返回值保证与原始参数的格式一致，按"取消"键时仍有返回，只是无修改<br /> ;;; 如有不妥之处，再次请求楼主见谅。<br /> ;;; 原作者：vectra； 修改： HLCAD(USER2128)<br /> (defun edit (Lst0 / Lst update-textbox update-list make-load-dcl)<br />   (defun update-textbox (index)<br />     (set_tile "value" (vl-princ-to-string (cdr (nth (atoi index) Lst))))<br />     )<br /> ;;;<br />   (defun update-list (value / index new old)<br />     (setq index (atoi (get_tile "name"))<br />           old   (nth index Lst)<br />           )<br />     (if (/= (cdr old) value)<br />       (progn<br />         (setq new (strcat (car old) "\t" value))<br />         (start_list "name" 1 index) ;_指定修改 index 位置上的数据<br />         (add_list new)<br />         (end_list)<br />         (setq Lst (subst (cons (car old) value) old Lst))<br />         )<br />       )<br />     )<br /> ;;;<br />   (defun make-load-dcl (/ dclfile dlg file)<br />     (setq dclfile (vl-filename-mktemp nil nil ".dcl")<br />           file    (open dclfile "w")<br />           )<br />     (write-line<br />       "PropertyEditForm:dialog{label="属性编辑";<br />       :column{<br />         :list_box{key="name";height=15;width=50;tabs=25;}<br />         :edit_box{key="value";width=30;}<br />         }<br />       ok_cancel;}"<br />       file<br />       )<br />     (close file)<br />     (setq dlg (load_dialog dclfile))<br />     (vl-file-delete dclfile)<br />     dlg<br />     )<br /> ;;;<br />   (setq Lst Lst0)<br />   (new_dialog "PropertyEditForm" (make-load-dcl))<br />   (start_list "name")<br />   (mapcar<br />     'add_list<br />     (mapcar '(lambda(e) (strcat (car e) "\t" (vl-princ-to-string (cdr e)))) Lst)<br />     )<br />   (end_list)<br /> ;;;<br />   (action_tile "name"  "(update-textbox $VALUE) (mode_tile "value" 2)")<br />   (action_tile "value" "(update-list $VALUE)")<br />   (if (= (start_dialog) 1)<br />     (mapcar '(lambda(x / a b c)<br />       (progn<br />         (setq a (car x)<br />               b (cdr x)<br />               c (cdr (assoc a Lst))<br />               )<br />         (cond ((= (type b) 'INT)  (cons a (atoi c)))<br />               ((= (type b) 'REAL) (cons a (atof c)))<br />               (t (cons a c))<br />               )<br />         )) Lst0)<br />     Lst0)<br />   )<br /> <br /> ;_$ (edit '(("Width" . 10) ("Height" . 100.0) ("Extendedable" . "Yes")))<br /> ;修改并确定后返回<br /> ;(("Width" . 20) ("Height" . 2.0) ("Extendedable" . "NO"))<br /> ;按"取消"后返原值(("Width" . 10) ("Height" . 100.0) ("Extendedable" . "Yes"))<br />

lucas_3333

USER2128 发表于 2015-5-5 16:56

感谢俩位大师分享！ 来一个成品如何？

USER2128

lucas_3333 发表于 2015-5-5 17:37
感谢俩位大师分享！ 来一个成品如何？

这个程序早晚要用起来，今要出差几天，如有应用，将及时贴出。
谢谢你的奖励！

vectra

我只是发了个非常简单的雏形，还有很大完善的空间，比如提供下拉列表选项，不同数据类型的编辑，帮助信息等。希望大家一起参与，更加完善。

fl202

ctrl + 1  特性版工具栏里， 与此有何区别？

sibelle_hu

USER2128 发表于 2015-5-6 07:44
这个程序早晚要用起来，今要出差几天，如有应用，将及时贴出。
谢谢你的奖励！

想看看成品

edata

提点建议，如果要改首项呢，修改前是数字，修改后也应该是数字，缺少判断，列表框只显示名称，不知道值，需要点击才能显示，可不可以换种方式，名称和值都能出来，一目了然，数量多的时候比较明显，如果采用双列表呢，一个名称，一个值，点那边都能改。

lucas_3333

edata 发表于 2015-8-21 07:28
提点建议，如果要改首项呢，修改前是数字，修改后也应该是数字，缺少判断，列表框只显示名称，不知道值，需 ...

E大,好早啊, 支持提议, 也希望早日见到各位的成果

@vectra  , @USER2128