通用数据编辑器

wzg356

我来改老版http://bbs.mjtd.com/thread-113678-1-1.html的母文件
加入判断输入是否非法，暂仅判断输入'INT 'REAL 'STR
输入非法不修改，按取消不修改
;;; 原作者：vectra
(defun PropertyEdit (Lst0 / Lst update-textbox update-list make-load-dcl)
  (defun update-textbox (index)
    (set_tile "value" (vl-princ-to-string (cdr (nth (atoi index) Lst))))
    );依list_boxd的定位index（索引）值自表lst取值，向edit_box赋值
  (defun update-list (value / newadd_list index old typ0 typ)
        (defun newadd_list (value index / new)
                (setq new (strcat (car old) "\t" value))
            (start_list "name" 1 index) ;_指定修改 index 位置上的数据
            (add_list new)
            (end_list)
        )  
    (setq index (atoi (get_tile "name"))
          old   (nth index Lst)
          typ0 (type (cdr old));'INT 'REAL 'STR.....
          typ (type (read value))
    )
    (cond  
            ((= 'INT typ0 typ)
                    (newadd_list value index)(setq Lst (subst (cons (car old) (atoi value)) old Lst))
            )
            ((and (= 'REAL typ0)(member typ (list 'INT 'REAL)))
              (newadd_list value index)(setq Lst (subst (cons (car old) (atof value)) old Lst))
            )
                ((= 'STR typ0);
                        (newadd_list value index) (setq Lst (subst (cons (car old) value) old Lst))
                )
            (t (alert "数据类型非法！"))   
    )
  );;依value返回值并判断数据类型更新list_boxd及表lst
  (defun make-load-dcl (/ dclfile dlg file)
    (setq dclfile (vl-filename-mktemp nil nil ".dcl")
          file    (open dclfile "w")
          )
    (write-line
      "PropertyEditForm:dialog{label=\"属性编辑\";
      :row{:list_box{key=\"name\";height=25;width=50;tabs=25;}
      :row{:edit_box{key=\"value\";width=30;}}}
      ok_cancel;}"
      file
    )
    (close file)
    (setq dlg (load_dialog dclfile))
    (vl-file-delete dclfile)
    dlg
    );;;写对话框文件
  (setq Lst Lst0)
  (new_dialog "PropertyEditForm" (make-load-dcl))
  (start_list "name")
  (mapcar  'add_list
    (mapcar '(lambda(e) (strcat (car e) "\t" (vl-princ-to-string (cdr e)))) Lst)
    )
  (end_list)
  (action_tile "name"  "(update-textbox $VALUE) (mode_tile \"value\" 2)");点击执行的动作
  (action_tile "value" "(update-list $VALUE)")
  (if (= (start_dialog) 1) lst  Lst0)
  )

yoyoho

感谢 vectra 分享程序!!!!

lmh47

研究一下！！！！！！！

tanjurun

好东西喔。不错

伪书虫86

收藏了半年终于明白了用处，但是发现了一个问题，值为0.85之类小于1的小数时，更新的话，会变成.85，小数点前的0会消失，不知道该怎么处理



问题已解决，过来填个坑。
value为propertybag-edit的返回值，由于源程序返回值，如果填入的是数，返回的仍是数，会有可能导致写入属性块的时候有异常，故只需将返回值稍作处理即可，代码如下：

• (setq value (mapcar '(lambda(x) (if (numberp (cdr x)) (cons (car x) (rtos (cdr x) 2)) x)) value))