[求助][1127]dcl下拉选单疑问[烦请cy956版大解惑一番]

eachy

用 菜单 + Autoload 也不错

xyz518mm

请问cy956版主:
您的程序我这样理解叙述正确吗?

另外以下述叙可以讲解一下吗?
'car (#这叙述不是很清楚)
(if mlm mlm (car mlbt) (#这叙述不是很清楚)

如果要将未执行动作产生此讯息 (alert "未完成任何动作!!!")

加在哪里正确?

(setq mlbt (mapcar 'car mltxt)
           mlm (dos_combolist  "--by陈勇--"  "选择一个命令"  mlbt
                 (if mlm mlm (car mlbt)))
       mlm1 (if mlm  (dxf mlm mltxt) nil
===>加在这里好像会出问题?   (t (alert "未完成任何动作!!!"))
                 )
)

  (if mlm1 (eval (read mlm1)))


;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
程序理解叙述:

(setq mlbt (mapcar 'car mltxt)
;使用 mapcar 将变数 mltxt 的字串,由 'car (#这叙述不是很清楚) 取出,并设定为 mlbt变数.

       mlm (dos_combolist "--by陈勇--" "选择一个命令"
      mlbt (if mlm mlm (car mlbt))
           )
;使用 dos_combolist设定 ,对话框标题"--by陈勇--" ,框架名称"选择一个命令",
;将新字串  mlbt变数带入 ,假设 (if mlm mlm (car mlbt) (#这叙述不是很清楚)

      mlm1 (dxf mlm mltxt)
;使用 dxf函数带入 mlm mltxt ,设定为 mlm1变数.
)

===> mlm1 (if mlm  (dxf mlm mltxt) nil)
;使用 dxf函数带入 mlm mltxt ,且假设 mlm成立 ,设定为 mlm1变数.

     (eval (read mlm1))
;使用eval传回 read 字串中的结果

===> (if mlm1 (eval (read mlm1)))
;假设 mlm1成立 ,则使用 eval传回 read字串中的结果.

(defun dxf (#code #list)
           (cdr (assoc #code #list))
)
;将代码及字串设定为 dxf 函数使用
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

tctabc

最初由 eachy 发布
[B]用 菜单 + Autoload 也不错 [/B]

这样的做法该怎样做呢?

cy956

最初由 xyz518mm 发布
[B]请问cy956版主:
您的程序我这样理解叙述正确吗?

另外以下述叙可以讲解一下吗?
'car (#这叙述不是很清楚)
(if mlm mlm (car mlbt) (#这叙述不是很清楚)

如果要将未执行动作产生此讯息 (alert "未完成任何动... [/B]

流程基本理解正确，函数有些理解错误：D

比如（mapcar 'car....这段，功能就是形成一个命令表，
准备给doslib函数用的，你看看帮助的mapcar用法就明白；

再比如(if mlm mlm (car mlbt) ，就是缺省值赋值，
如果你选过命令，下一次会自动按上次选的提亮。
如果没选过或上次选的无效，自动按第一个命令选项
提亮。

。。。。
结论：还要多看书。:)

xyz518mm

感谢cy956版主的解答
再来好好看书吧~

zb_lou

最初由 eachy 发布
[B]用 菜单 + Autoload 也不错 [/B]

不知道具体是怎么做的？