(XD::DCL:EditBoxAction)编辑框控件定义

Free-Lancer · 发表于 2014-10-6 21:13:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::DCL:EditboxAction (klst syml)
(if (listp syml)
(mapcar '(lambda (x y)
(set_tile x (vl-princ-to-string (vl-symbol-value y)))
(action_tile
x
(strcat "(setq " (vl-symbol-name y) " $value)")
)
)
klst
syml
)
(progn
(set_tile klst (vl-symbol-value syml))
(action_tile
klst
(strcat "(setq " (vl-symbol-name syml) " $value)")
)
)
)
)

Free-Lancer · 发表于 2014-10-6 21:14:02

Sample

(defun c:tt (/ strl fn id)
(setq strl '("temp:dialog {"
" label = \"toggle test\";"
" : row {"
" : boxed_column {"
" label = \"Params\";"
" :edit_box { label = \"文字1\"; key = \"k1\";}"
" :edit_box { label = \"数字1\"; key = \"k2\";}"
" :edit_box { label = \"文字2\"; key = \"k3\";}"
" }"
" : boxed_radio_column {"
" label = \"选项\";"
" :edit_box { label = \"数字2\"; key = \"k4\";}"
" :edit_box { label = \"数字3\"; key = \"k5\";}"
" :edit_box { label = \"文字3\"; key = \"k6\";}"
" }"
" }"
" ok_cancel;"
" errtile;}"
)
fn (xd::dcl:make strl) ;_写出 DCL
id (xd::dcl:load fn "temp") ;_加载 DCL
txt1 "one"
txt2 "two"
txt3 "three"
num1 100.
num2 200.
num3 300.
)
(XD::DCL:numEditBoxAction
'("k2" "k4" "k5") ;_控件名
'(num1 num2 num3) ;_变量名表
) ;_定义数字格式 edit_box
(XD::DCL:EditBoxAction
'("k1" "k3" "k6") ;_控件名
'(txt1 txt2 txt3) ;_变量名表
) ;_ string 格式获取
(if (= (xd::dcl:start id fn) 1)
(progn
(foreach x (list txt1 txt2 txt3 num1 num2 num3)
(princ (strcat "\n" (vl-princ-to-string (type x)) " is "))
(princ x)
)
)
)
(princ)
)

(defun c:tt (/ strl fn id) 
  (setq        strl '("temp:dialog {" 
               " label = \"toggle test\";" 
               " : row {" 
               "  : boxed_column {" 
               "    label = \"Params\";" 
               "    :edit_box { label = \"文字1\"; key = \"k1\";}" 
               "    :edit_box { label = \"数字1\"; key = \"k2\";}" 
               "    :edit_box { label = \"文字2\"; key = \"k3\";}" 
               "    }" 
               "  : boxed_radio_column {" 
               "    label = \"选项\";" 
               "    :edit_box { label = \"数字2\"; key = \"k4\";}" 
               "    :edit_box { label = \"数字3\"; key = \"k5\";}" 
               "    :edit_box { label = \"文字3\"; key = \"k6\";}" 
               "    }" 
               "  }" 
               " ok_cancel;" 
               " errtile;}" 
              ) 
        fn   (xd::dcl:make strl) ;_写出 DCL 
        id   (xd::dcl:load fn "temp") ;_加载 DCL 
        txt1 "one" 
        txt2 "two" 
        txt3 "three" 
        num1 100. 
        num2 200. 
        num3 300. 
  ) 
  (XD::DCL:numEditBoxAction 
    '("k2" "k4" "k5") ;_控件名 
    '(num1 num2 num3) ;_变量名表 
  ) ;_定义 数字格式 edit_box 
  (XD::DCL:EditBoxAction 
    '("k1" "k3" "k6") ;_控件名 
    '(txt1 txt2 txt3) ;_变量名表 
  ) ;_ string 格式获取 
  (if (= (xd::dcl:start id fn) 1) 
    (progn 
      (foreach x (list txt1 txt2 txt3 num1 num2 num3) 
        (princ (strcat "\n" (vl-princ-to-string (type x)) " is ")) 
        (princ x) 
      ) 
    ) 
  ) 
  (princ) 
)

Free-Lancer · 发表于 2014-10-6 22:47:18

本帖最后由 Free-Lancer 于 2014-10-6 22:49 编辑

经常用到数字获取，单独写一个

(defun XD::DCL:numEditboxAction (klst syml)
(if (listp syml)
(mapcar '(lambda (x y)
(set_tile x (vl-princ-to-string (vl-symbol-value y)))
(action_tile
x
(strcat "(XD::DCL:CheckIn $value \"数字\" $key)"
"(setq "
(vl-symbol-name y)
"(distof $value))"
)
)
)
klst
syml
)
(progn
(set_tile klst (vl-symbol-value syml))
(action_tile
klst
(strcat "(XD::DCL:CheckIn $value \"数字\" $key)"
"(setq "
(vl-symbol-name syml)
"(distof $value))"
)
)
)
)
)

nirs_674971560 · 发表于 2016-5-12 23:44:06

本帖最后由 nirs_674971560 于 2016-5-12 23:45 编辑

XD::DCL:numEditBoxAction 的代码在这里找到了，哈哈哈哈哈哈

dyjwyqz5221 · 发表于 2018-2-22 10:10:29

很好，非常好，借用下，再自己扩充扩充！

dyjwyqz5221 · 发表于 2018-8-9 09:48:53

怎么样使对话框变量的值下次使用时默认为上次输入的值呢？

账号		自动登录	找回密码
密码			立即注册

[对话框] (XD::DCL:EditBoxAction)编辑框控件定义

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。