(XD::Dcl:ListAction)批量列表填充及动作定义

Free-Lancer · 发表于 2014-10-6 09:03:32

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

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

×

本帖最后由 Free-Lancer 于 2014-10-10 20:13 编辑

(defun XD::Dcl:ListAction (_$klst _$val _$itemL
_$callbackL / _sListAction
)
(defun _sListAction (_$key _val _$callback)
(if (and _$val (eval _val))
(if _$callback
(action_tile
_$key
(strcat
"(set (read \""
_$key
"\") "
"(if (distof $value) "
"(nth (atoi $value) "
(vl-symbol-name _val)
")"
"(if (xdrx_string_split $value \" \")"
"(mapcar '(lambda (x) (nth (atoi x) "
(vl-symbol-name _val)
"))(xdrx_string_split $value \" \")))))"
"("
_$callback
")"
)
) ;_记录索引并设定 action
(action_tile
_$key
(strcat "(set (read \""
_$key
"\") (nth (atoi $value) "
(vl-symbol-name _val)
"))"
)
) ;_仅记录索引项
)
)
)
(XD::DCL:AddList _$klst _$val _$itemL)
(if (= (type _$klst) 'STR)
(_sListAction _$klst _$val _$callbackL)
(while _$klst
(if (or _$klst _$val _$callbackL)
(_sListAction (car _$klst) (car _$val) (car _$callbackL))
)
(setq _$klst (cdr _$klst)
_$val (cdr _$val)
_$callbackL (cdr _$callbackL)
)
)
)
)

(defun XD::Dcl:ListAction (_$klst        _$val             _$itemL 
                           _$callbackL        /             _sListAction 
                          ) 
  (defun _sListAction (_$key _val _$callback) 
    (if        (and _$val (eval _val)) 
      (if _$callback 
        (action_tile 
          _$key 
          (strcat 
            "(set (read  \"" 
            _$key 
            "\") " 
            "(if (distof $value) " 
            "(nth (atoi $value) " 
            (vl-symbol-name _val) 
            ")" 
            "(if (xdrx_string_split $value \" \")" 
            "(mapcar '(lambda (x) (nth (atoi x) " 
            (vl-symbol-name _val) 
            "))(xdrx_string_split $value \" \")))))" 
            "(" 
            _$callback 
            ")" 
          ) 
        ) ;_记录索引并设定 action 
        (action_tile 
          _$key 
          (strcat "(set  (read \"" 
                  _$key 
                  "\") (nth (atoi $value) " 
                  (vl-symbol-name _val) 
                  "))" 
          ) 
        ) ;_仅记录索引项 
      ) 
    ) 
  ) 
  (XD::DCL:AddList _$klst _$val _$itemL) 
  (if (= (type _$klst) 'STR) 
    (_sListAction _$klst _$val _$callbackL) 
    (while _$klst 
      (if (or _$klst _$val _$callbackL) 
        (_sListAction (car _$klst) (car _$val) (car _$callbackL)) 
      ) 
      (setq _$klst        (cdr _$klst) 
            _$val        (cdr _$val) 
            _$callbackL        (cdr _$callbackL) 
      ) 
    ) 
  ) 
)

Free-Lancer · 发表于 2014-10-6 09:37:38

本帖最后由 Free-Lancer 于 2014-10-10 20:42 编辑

一个示例

77077 · 发表于 2014-10-6 21:18:28

(strcat "(setq "
                     (vl-symbol-name z)
                     " (nth (atoi $value) "
                     (vl-symbol-name y)
                     "))"
               )

悄悄的学习了!

Free-Lancer · 发表于 2014-10-6 21:41:25

本帖最后由 Free-Lancer 于 2014-10-6 21:45 编辑

77077 发表于 2014-10-6 21:18
(strcat "(setq "
(vl-symbol-name z)
" (nth (atoi ...

呵呵，这是封装的关键
action 动作要 string ，而 lisp 的变量名与值是统一的，仅取名字是要 ' ，另外还有 vl-symbol-name / value 为这种应用提供了可能

lucas3 · 发表于 2014-10-10 16:19:54

本帖最后由 lucas3 于 2014-10-10 20:40 编辑

Free-Lancer 发表于 2014-10-6 21:41
呵呵，这是封装的关键
action 动作要 string ，而 lisp 的变量名与值是统一的，仅取名字是要 ' ，另外 ...

Free-Lancer 大师，之个示例，用你的这些新函数测试，发现，1.默认的图层不存在也不报错， 2.运行后，默认的图层也不亮显，贴出完整的代码与演示供分析！
1.默认的图层不存在也不报错，命令栏仍然显示选择的是0与1

2.默认的图层也不亮显

Free-Lancer · 发表于 2014-10-10 17:29:52

lucas3 发表于 2014-10-10 16:19
Free-Lancer 大师，之个示例，我用之前你封装的那个函数lib-dcl 是可以正常运行，默认的图层在列表中亮显 ...

2014.10.10 更新，修改回调函数定义

lucas3 · 发表于 2014-10-10 18:31:15

本帖最后由 lucas3 于 2014-10-10 18:45 编辑

Free-Lancer 发表于 2014-10-10 17:29
2014.10.10 更新，修改回调函数定义

大师，替换函数后（dcl:listaction 与dcl:addlist 都替换了）显示：参数太少 …… 好像您这一更新，又跟XDAPI 搭上关系了{:soso_e109:}

st788796 · 发表于 2014-10-10 18:43:48

lucas3 发表于 2014-10-10 18:31
大师，替换函数后显示：参数太少 …… 好像您这一跟新，又跟XDAPI 搭上关系了

这个即使搭上关系也用不到api, 开源的自己收集即可

lucas3 · 发表于 2014-10-10 18:48:26

st788796 发表于 2014-10-10 18:43
这个即使搭上关系也用不到api, 开源的自己收集即可

里面有 xdrx_string_split $value 难道不需要API吗，大师？

st788796 · 发表于 2014-10-10 18:59:40

本帖最后由 st788796 于 2014-10-10 19:02 编辑

lucas3 发表于 2014-10-10 18:48
里面有 xdrx_string_split $value 难道不需要API吗，大师？

这个是在多选时分割函数，太简单了，自己替换
API有这么可怕？
用API 多了一条阳关大道，没必要总在小巷子里转悠

lucas3 · 发表于 2014-10-10 19:15:20

st788796 发表于 2014-10-10 18:59
这个是在多选时分割函数，太简单了，自己替换
API有这么可怕？

太强大了，不敢用{:soso_e113:}，能力有限，（另外一个重要原因是，更新频繁，万一哪天，关键时刻API时间到了，用不了了，又没有网络，又或者晓东论坛访问不上了，那不是……）只是为什么加载API后一样显示参数太少，还是请Free-Lancer大师来指点一下吧，随便如果不用API那就太好了，{:soso_e179:}

Free-Lancer · 发表于 2014-10-10 19:28:49

lucas3 发表于 2014-10-10 19:15
太强大了，不敢用，能力有限，（另外一个重要原因是，更新频繁，万一哪天，关键时刻API时间 ...

增加了一个参数，用于支持自定义回调函数，填 nil

如果不进行动作定义就用 xd::dcl:addlist

lucas3 · 发表于 2014-10-10 19:48:06

Free-Lancer 发表于 2014-10-10 19:28
增加了一个参数，用于支持自定义回调函数，填 nil

如果不进行动作定义就用 xd::dcl:addlist

大师，不懂啊，你能帮忙把5楼的代码修改了能正常使用吗？

Free-Lancer · 发表于 2014-10-10 20:14:44

本帖最后由 Free-Lancer 于 2014-10-10 20:44 编辑

lucas3 发表于 2014-10-10 19:48
大师，不懂啊，你能帮忙把5楼的代码修改了能正常使用吗？

感谢测试，重新下载一楼函数

(defun c:tt (/ strl lyrlst fn id)
(setq strl '("temp:dialog {"
"label = \"List text\";"
":row {"
":list_box { key = \"lyr1\"; height = 16; width = 8;}"
":list_box { key = \"lyr2\"; height = 16; width = 8;}"
"}"
"ok_cancel;}"
)
lyrlst (fy:table "layer")
fn (xd::dcl:make strl)
id (xd::dcl:load fn "temp")
)
(xd::dcl:listaction
'("lyr1" "lyr2") ;_key list，单个列表时用 key string
'(lyrlst lyrlst) ;_引用的变量名，加 '，单个列表时 'lyrlst
'(0 0) ;_lyr1 lyr2 为全局变量, 指定初始索引
nil;_ 不指定回调函数时记录索引值
)
(xd::dcl:accept nil);_不取值仅定义 ok cancel
(if (= (xd::dcl:start id fn) 1)
(progn
(princ (strcat "\nListBox1 select " lyr1))
(princ (strcat "\nListBox2 select " lyr2))
)
)
(princ)
)

(defun c:tt (/ strl lyrlst fn id) 
  (setq        strl   '("temp:dialog {" 
                 "label = \"List text\";" 
                 ":row  {" 
                 ":list_box { key = \"lyr1\"; height = 16; width = 8;}" 
                 ":list_box { key = \"lyr2\"; height = 16; width = 8;}" 
                 "}" 
                 "ok_cancel;}" 
                ) 
        lyrlst (fy:table "layer") 
        fn     (xd::dcl:make strl) 
        id     (xd::dcl:load fn "temp") 
  ) 
  (xd::dcl:listaction 
    '("lyr1" "lyr2") ;_key list， 单个列表时用 key string 
    '(lyrlst lyrlst) ;_引用的变量名，加 '， 单个列表时 'lyrlst 
    '(0 0) ;_lyr1 lyr2 为全局变量, 指定初始索引 
    nil;_ 不指定回调函数时记录索引值 
  ) 
  (xd::dcl:accept nil);_不取值仅定义 ok cancel 
  (if (= (xd::dcl:start id fn) 1) 
    (progn 
      (princ (strcat "\nListBox1 select " lyr1)) 
      (princ (strcat "\nListBox2 select " lyr2)) 
    ) 
  ) 
  (princ) 
)

lucas3 · 发表于 2014-10-10 21:16:10

Free-Lancer 发表于 2014-10-10 20:14
感谢测试，重新下载一楼函数

大师，好像还有问题，可是当我运行后，0层是处于亮显状态，但是当我不更改图层（不选择其它图层），而是直接按下确定，就会显示“; 错误: 参数类型错误: stringp nil”
;;===============================
(xd::dcl:listaction
'("lyr1" "lyr2") ;_key list，单个列表时用 key string
'(lyrlst lyrlst) ;_引用的变量名，加 '，单个列表时 'lyrlst
'(0 0) ;_lyr1 lyr2 为全局变量, 指定初始索引
nil;_ 不指定回调函数时记录索引值
);;===============================
另外这里的代码中红色的'(0 0) 是什么意思啊？怎么改默认图层名呢？另外当选择一次后，要记住选择的

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

[对话框] (XD::Dcl:ListAction)批量列表填充及动作定义

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

评分

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评