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

xyz518mm

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

请问可以使用dcl的下拉选单来执行
写在txt档中的执行命令吗?
想要做成使用dcl下拉选单来执行很多lisp的程序命令
但程序的名称及使用命令
都在txt档案中
这样做得到吗?

烦请各位版主及高手可以解答一下
若有范例可以参考会更好
谢谢各位了~

xyp1964

为什么不直接编辑下拉菜单文件？
帮助文件：

xyz518mm

XYP版主说的对
但是一想到要编辑这么多的程序
就头痛了
所以想说如果可以运用对话框程序
将所有的程序只需做个连结及说明
就可以按一个按钮来选定执行
这样管理起来也方便不是吗?

连结的选单.TXT档案内容:
第一段是说明  第二段是命令的执行,希望可以带入 LOAD 中来完成命令执行
"01-线段总长" "test001"
"02-打碎黄色多义线" "test002"
"03-改字母大小写" "test003"
"04-炸碎文字" "test004"
"05-字按线对齐" "test005"
"06-面积求和" "test006"

附上选单的功能表的图样及程序
tslisp02:dialog{
   label="LISP程式列表";
   :list_box{
      label="选单";
      key="klist";
      width=30;
      height=10;
   }
   :edit_box{
      label="执行";
      key="wordstr";
   }
   spacer_1;
   ok_cancel;
}

另外说明一点
以上纯粹是小弟的想法
如果不能实现此做法
也请各位告知一下
好让这想法可以结束~

cy956

1。直接用菜单简单；
2。建议你用doslib，几行内解决问题，不用管dcl。其他api可能也有相似功能。
可以这样写：

2. 
   
3. (defun c:mlm()
   
4.   (setq mltxt(list '("命令说明1" . "(c:m1)")
   
5.           '("命令说明2" . "(c:m2)")
   
6.           '("命令说明3" . "(c:m3)")
   
7.           '("命令说明4" . "(c:m4)")));;;命令名表
   
8.   (setq mlbt(mapcar 'car mltxt)
   
9.           mlm(dos_combolist "--by陈勇--" "选择一个命令" mlbt
   
10.                            (if mlm mlm (car mlbt)))
    
11.           mlm1(dxf mlm mltxt))
    
12.    (eval (read mlm1))
    
13. )
    
14. (defun dxf (#code #list)(cdr (assoc #code #list))
    
15. 
    
16. 命令提示和命令名要自己编，
    
17.   加载后敲mlm即可运行命令
    

<br /> (defun c:mlm()<br />   (setq mltxt(list '("命令说明1" . "(c:m1)")<br />           '("命令说明2" . "(c:m2)")<br />           '("命令说明3" . "(c:m3)")<br />           '("命令说明4" . "(c:m4)")));;;命令名表<br />   (setq mlbt(mapcar 'car mltxt)<br />           mlm(dos_combolist "--by陈勇--" "选择一个命令" mlbt<br />                            (if mlm mlm (car mlbt)))<br />           mlm1(dxf mlm mltxt))<br />    (eval (read mlm1))<br /> )<br /> (defun dxf (#code #list)(cdr (assoc #code #list))<br /> <br /> 命令提示和命令名要自己编，<br />   加载后敲mlm即可运行命令<br />

xyz518mm

cy956版主所说的doslib 是指 doslib.arx 这个吗?
另外是不是整个程序就只要填入您所提供的就可以执行了呢?

似水无痕

我编写了一个，程序不太完善，仅仅提供一个思路！
lsp文件：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test2 (/ dcl_id do_what)
   
5.   (if (> 0 (setq dcl_id (load_dialog "tslisp02.dcl")))
   
6.     (progn
   
7.       (princ "\n未能加载对话框文件：tslisp02.dcl")
   
8.       (setq dialogloaded nil)
   
9.     )
   
10.   )
    
11.   (setq do_what 2)
    
12.   (while (>= do_what 2)
    
13.     (if        (= null (new_dialog "tslisp02" dcl_id))
    
14.       (progn
    
15.         (princ "\n未能显示输入键槽参数对话框。")
    
16.         (setq dialogshow nil)
    
17.         (exit)
    
18.       )                                        ;progn结束
    
19.     )
    
20.     (action_tile "p_list" "(p_list)")
    
21.     (action_tile
    
22.       "accept"
    
23.       "(done_dialog 1)"
    
24.     )
    
25.     (action_tile "cancel" "(done_dialog 0)")
    
26.     (setq do_what (start_dialog))
    
27.     (cond ((= do_what 1)
    
28.            (command p_command)
    
29.           )
    
30.           ((= do_what 0)
    
31.            (exit)
    
32.            (prompt "\n对话框被取消。")
    
33.           )
    
34.     )
    
35.     (unload_dialog dcl_id)
    
36.   )
    
37. )
    
38. (defun p_list ()
    
39.   (setq        pr_index  (get_tile "p_list")
    
40.         pr_list          '("line" "circle")
    
41.         p_command (nth (atoi pr_index) pr_list)
    
42.   )
    
43. )
    
44.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test2 (/ dcl_id do_what)<br />   (if (> 0 (setq dcl_id (load_dialog "tslisp02.dcl")))<br />     (progn<br />       (princ "\n未能加载对话框文件：tslisp02.dcl")<br />       (setq dialogloaded nil)<br />     )<br />   )<br />   (setq do_what 2)<br />   (while (>= do_what 2)<br />     (if        (= null (new_dialog "tslisp02" dcl_id))<br />       (progn<br />         (princ "\n未能显示输入键槽参数对话框。")<br />         (setq dialogshow nil)<br />         (exit)<br />       )                                        ;progn结束<br />     )<br />     (action_tile "p_list" "(p_list)")<br />     (action_tile<br />       "accept"<br />       "(done_dialog 1)"<br />     )<br />     (action_tile "cancel" "(done_dialog 0)")<br />     (setq do_what (start_dialog))<br />     (cond ((= do_what 1)<br />            (command p_command)<br />           )<br />           ((= do_what 0)<br />            (exit)<br />            (prompt "\n对话框被取消。")<br />           )<br />     )<br />     (unload_dialog dcl_id)<br />   )<br /> )<br /> (defun p_list ()<br />   (setq        pr_index  (get_tile "p_list")<br />         pr_list          '("line" "circle")<br />         p_command (nth (atoi pr_index) pr_list)<br />   )<br /> )<br />   [/FONT]<br />

DCL文件：

2. 
   
3.   [FONT=courier new]
   
4. tslisp02:dialog{
   
5.         label="LISP程式列表";
   
6.         spacer;
   
7.                 :popup_list{
   
8.                         label="列表：";
   
9.                         key="p_list";
   
10.                         width=12;
    
11.                         list="line\ncircle";
    
12.                         value="line";
    
13.                 }
    
14.                 spacer;
    
15.         ok_cancel;
    
16. }
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> tslisp02:dialog{<br />         label="LISP程式列表";<br />         spacer;<br />                 :popup_list{<br />                         label="列表：";<br />                         key="p_list";<br />                         width=12;<br />                         list="line\ncircle";<br />                         value="line";<br />                 }<br />                 spacer;<br />         ok_cancel;<br /> }<br />   [/FONT]<br />

cy956

最初由 xyz518mm 发布
[B]cy956版主所说的doslib 是指 doslib.arx 这个吗?
另外是不是整个程序就只要填入您所提供的就可以执行了呢? [/B]

是，要doslib5.0以上版本。上面的程序我补充了，你重下试试看。

xyz518mm

[请cy956 版主或是其他高手解答一下了]

请问cy956 版主:
小弟已经照您的写法来执行
但是却发现无法执行 LISPOK.lsp 内的命令
是哪里出了问题吗?

错误的讯息为:"ts [no function definition: DXF]"

ts.lsp主要程序
(defun c:ts ()
(LOAD "C:/LISPOK.lsp")
(setq mltxt(list
'("命令说明3-设置线宽" . "(c:LOK003)")
'("命令说明2-拾取数字差" . "(c:LOK002)")
'("命令说明1-内容改为当前日期" . "(c:LOK001)")

));;;命令名表
          
  (setq mlbt(mapcar 'car mltxt)
          mlm(dos_combolist "--by陈勇--" "选择一个命令" mlbt
                           (if mlm mlm (car mlbt)))
          mlm1(dxf mlm mltxt))
         
   (read mlm1)
(prin1))
++++++++++++++++++++++++++++++++++++
被呼叫连结的 LISPOK.lsp 程序
(defun c:LOK003 (/ d i ss tt c e v xx)
(setq olderr  *error*             ; Initialize variables
         *error* aaa)
(prompt "一般选择可用窗口选 如C,W\n")
     (setvar "cmdecho" 0)
     (princ "请设置线宽(wide)<")
(princ rr_1)
  (setq d (getreal ">:?"))
(if (/= d nil)(setq rr_1 d))
(prompt "\n请选择要修改的实体<--->")
   (initget "a b A B ")
(setq i (getkword "A--按实体类型选择,B--一般选择\n请选择<B>(A or B) "))
(cond ((or (eq i "a")(eq i "A"))
                 (setq ss (xc)))

     ((or (eq i "b")(eq i "B"))
        (setq ss (ssget)))
       (T (setq ss (ssget)))
     )
(setq tt (sslength ss))
(setq c 0)
(repeat tt
     (setq e (ssname ss c))
(setq v (entget e))
(setq xx (cdr (assoc 0 v)))
(cond ((= xx "POLYLINE")(command "pedit" e "w" rr_1 ""))
    ((or (= xx "ARC")(= xx "LINE"))(command "pedit" e "y" "w" rr_1 ""))
; (if (or (/= xx "POLYLINE")(/= xx "LINE")(/= xx "ARC")) (prompt "不能编辑此实体"))
)
     (setq c (1+ c))
  )
(setvar "cmdecho" 1)
  )

(defun c:LOK002  (/ psub1 ss totn)                ;拾取数字差(可作减法)
  (defun psub1 (ss / tot n en adn)
    (setq tot 0.0
          n   0
    )
    (while (setq en (ssname ss n))
      (setq adn (atof (cdr (assoc 1 (entget en)))))
      (setq tot        (+ tot adn)
            n        (1+ n)
      )
    )
    tot
  )

  (prompt "\n拾取数字求差: ")
  (prompt "\n请先选择被减的数字: ")
  (setq        ss   (ssget '())
        totn (psub1 ss)
  )
  (prompt "\n再选择要减去的数字: ")
  (setq        ss   (ssget '())
        totn (- totn (psub1 ss))
  )
  (princ (strcat "\n数字差: "))
  (princ totn)
  (princ)
)

(defun c:LOK001 (/ entn entl text high)
(setq entn (car (entsel "选择要将内容改为当前日期的文字")))
(setq entl (entget entn))
(setq ti (rtos (getvar "cdate") 2 6))
(setq yy (substr ti 1 4))
(setq mm (substr ti 5 2))
(setq mm (atoi mm))
(setq mm (itoa mm))
(setq dd (substr ti 7 2))
(setq dd (atoi dd))
(setq dd (itoa dd))
(setq text (strcat yy "." mm "." dd))
(setq entl (subst (cons 1 text) (assoc 1 entl) entl))
(entmod entl)
(princ)
)
;;;*******************************************************





doslib 下载位置:
http://www.xdcad.net/forum/showt ... 1703675#post1703675
或
http://geol-dh.narod.ru/en_news.html

http://rapidshare.de/files/72508 ... vember2005.rar.html

讨论的网站
http://geol-dh.narod.ru/en_index.html
http://www.mjtd.com/data/apihelp/doslib001.htm
http://geol-dh.ru/spds/setup-lsp-acad.html

因为程度很差
如果资讯有误请更正吧

cy956

在4楼改好了，加了dxf，改了一处错误。内部变量清零及lsp格式书写等工作你自己调吧。
程序的功能我试过了。

2. 
   
3. (defun c:ts (/ MLBT MLM1)
   
4. ;;;  (LOAD "C:/LISPOK.lsp")
   
5.   (setq        mltxt (list
   
6.                 '("命令说明3-设置线宽" . "(c:LOK003)")
   
7.                 '("命令说明2-拾取数字差" . "(c:LOK002)")
   
8.                 '("命令说明1-内容改为当前日期" . "(c:LOK001)")
   
9. 
   
10.               )
    
11.   );;;命令名表
    
12.   (setq        mlbt (mapcar 'car mltxt)
    
13.         mlm  (dos_combolist  "--by陈勇--"  "选择一个命令"  mlbt
    
14.                (if mlm mlm (car mlbt)))
    
15.         mlm1 (dxf mlm mltxt)
    
16.   )
    
17.   (eval (read mlm1))
    
18.   (prin1)
    
19. )
    
20. (defun c:LOK003        (/ d i ss tt c e v xx)
    
21.   (setq        olderr        *error*                        ; Initialize variables
    
22.         *error*        aaa
    
23.   )
    
24.   (prompt "一般选择可用窗口选 如C,W\n")
    
25.   (setvar "cmdecho" 0)
    
26.   (princ "请设置线宽(wide)<")
    
27.   (princ rr_1)
    
28.   (setq d (getreal ">:?"))
    
29.   (if (/= d nil)
    
30.     (setq rr_1 d)
    
31.   )
    
32.   (prompt "\n请选择要修改的实体<--->")
    
33.   (initget "a b A B ")
    
34.   (setq i (getkword "A--按实体类型选择,B--一般选择\n请选择(A or B) "))
    
35.   (cond        ((or (eq i "a") (eq i "A"))
    
36.          (setq ss (xc))
    
37.         )
    
38. 
    
39.         ((or (eq i "b") (eq i "B"))
    
40.          (setq ss (ssget))
    
41.         )
    
42.         (T (setq ss (ssget)))
    
43.   )
    
44.   (setq tt (sslength ss))
    
45.   (setq c 0)
    
46.   (repeat tt
    
47.     (setq e (ssname ss c))
    
48.     (setq v (entget e))
    
49.     (setq xx (cdr (assoc 0 v)))
    
50.     (cond ((= xx "POLYLINE") (command "pedit" e "w" rr_1 ""))
    
51.           ((or (= xx "ARC") (= xx "LINE"))
    
52.            (command "pedit" e "y" "w" rr_1 "")
    
53.           )
    
54.                                         ; (if (or (/= xx "POLYLINE")(/= xx "LINE")(/= xx "ARC")) (prompt "不能编辑此实体"))
    
55.     )
    
56.     (setq c (1+ c))
    
57.   )
    
58.   (setvar "cmdecho" 1)
    
59. )
    
60. 
    
61. 
    
62. (defun c:LOK002        (/ psub1 ss totn)        ;拾取数字差(可作减法)
    
63.   (defun psub1 (ss / tot n en adn)
    
64.     (setq tot 0.0
    
65.           n   0
    
66.     )
    
67.     (while (setq en (ssname ss n))
    
68.       (setq adn (atof (cdr (assoc 1 (entget en)))))
    
69.       (setq tot        (+ tot adn)
    
70.             n        (1+ n)
    
71.       )
    
72.     )
    
73.     tot
    
74.   )
    
75. 
    
76. 
    
77.   (prompt "\n拾取数字求差: ")
    
78.   (prompt "\n请先选择被减的数字: ")
    
79.   (setq        ss   (ssget '())
    
80.         totn (psub1 ss)
    
81.   )
    
82.   (prompt "\n再选择要减去的数字: ")
    
83.   (setq        ss   (ssget '())
    
84.         totn (- totn (psub1 ss))
    
85.   )
    
86.   (princ (strcat "\n数字差: "))
    
87.   (princ totn)
    
88.   (princ)
    
89. )
    
90. 
    
91. 
    
92. (defun c:LOK001        (/ entn entl text high)
    
93.   (setq entn (car (entsel "选择要将内容改为当前日期的文字")))
    
94.   (setq entl (entget entn))
    
95.   (setq ti (rtos (getvar "cdate") 2 6))
    
96.   (setq yy (substr ti 1 4))
    
97.   (setq mm (substr ti 5 2))
    
98.   (setq mm (atoi mm))
    
99.   (setq mm (itoa mm))
    
100.   (setq dd (substr ti 7 2))
     
101.   (setq dd (atoi dd))
     
102.   (setq dd (itoa dd))
     
103.   (setq text (strcat yy "." mm "." dd))
     
104.   (setq entl (subst (cons 1 text) (assoc 1 entl) entl))
     
105.   (entmod entl)
     
106.   (princ)
     
107. )
     

<br /> (defun c:ts (/ MLBT MLM1)<br /> ;;;  (LOAD "C:/LISPOK.lsp")<br />   (setq        mltxt (list<br />                 '("命令说明3-设置线宽" . "(c:LOK003)")<br />                 '("命令说明2-拾取数字差" . "(c:LOK002)")<br />                 '("命令说明1-内容改为当前日期" . "(c:LOK001)")<br /> <br />               )<br />   );;;命令名表<br />   (setq        mlbt (mapcar 'car mltxt)<br />         mlm  (dos_combolist  "--by陈勇--"  "选择一个命令"  mlbt<br />                (if mlm mlm (car mlbt)))<br />         mlm1 (dxf mlm mltxt)<br />   )<br />   (eval (read mlm1))<br />   (prin1)<br /> )<br /> (defun c:LOK003        (/ d i ss tt c e v xx)<br />   (setq        olderr        *error*                        ; Initialize variables<br />         *error*        aaa<br />   )<br />   (prompt "一般选择可用窗口选 如C,W\n")<br />   (setvar "cmdecho" 0)<br />   (princ "请设置线宽(wide)<")<br />   (princ rr_1)<br />   (setq d (getreal ">:?"))<br />   (if (/= d nil)<br />     (setq rr_1 d)<br />   )<br />   (prompt "\n请选择要修改的实体<--->")<br />   (initget "a b A B ")<br />   (setq i (getkword "A--按实体类型选择,B--一般选择\n请选择(A or B) "))<br />   (cond        ((or (eq i "a") (eq i "A"))<br />          (setq ss (xc))<br />         )<br /> <br />         ((or (eq i "b") (eq i "B"))<br />          (setq ss (ssget))<br />         )<br />         (T (setq ss (ssget)))<br />   )<br />   (setq tt (sslength ss))<br />   (setq c 0)<br />   (repeat tt<br />     (setq e (ssname ss c))<br />     (setq v (entget e))<br />     (setq xx (cdr (assoc 0 v)))<br />     (cond ((= xx "POLYLINE") (command "pedit" e "w" rr_1 ""))<br />           ((or (= xx "ARC") (= xx "LINE"))<br />            (command "pedit" e "y" "w" rr_1 "")<br />           )<br />                                         ; (if (or (/= xx "POLYLINE")(/= xx "LINE")(/= xx "ARC")) (prompt "不能编辑此实体"))<br />     )<br />     (setq c (1+ c))<br />   )<br />   (setvar "cmdecho" 1)<br /> )<br /> <br /> <br /> (defun c:LOK002        (/ psub1 ss totn)        ;拾取数字差(可作减法)<br />   (defun psub1 (ss / tot n en adn)<br />     (setq tot 0.0<br />           n   0<br />     )<br />     (while (setq en (ssname ss n))<br />       (setq adn (atof (cdr (assoc 1 (entget en)))))<br />       (setq tot        (+ tot adn)<br />             n        (1+ n)<br />       )<br />     )<br />     tot<br />   )<br /> <br /> <br />   (prompt "\n拾取数字求差: ")<br />   (prompt "\n请先选择被减的数字: ")<br />   (setq        ss   (ssget '())<br />         totn (psub1 ss)<br />   )<br />   (prompt "\n再选择要减去的数字: ")<br />   (setq        ss   (ssget '())<br />         totn (- totn (psub1 ss))<br />   )<br />   (princ (strcat "\n数字差: "))<br />   (princ totn)<br />   (princ)<br /> )<br /> <br /> <br /> (defun c:LOK001        (/ entn entl text high)<br />   (setq entn (car (entsel "选择要将内容改为当前日期的文字")))<br />   (setq entl (entget entn))<br />   (setq ti (rtos (getvar "cdate") 2 6))<br />   (setq yy (substr ti 1 4))<br />   (setq mm (substr ti 5 2))<br />   (setq mm (atoi mm))<br />   (setq mm (itoa mm))<br />   (setq dd (substr ti 7 2))<br />   (setq dd (atoi dd))<br />   (setq dd (itoa dd))<br />   (setq text (strcat yy "." mm "." dd))<br />   (setq entl (subst (cons 1 text) (assoc 1 entl) entl))<br />   (entmod entl)<br />   (princ)<br /> )<br />

xyz518mm

请问cy956 版主:
是否程序中都需要加入了 (defun dxf (#code #list)(cdr (assoc #code #list))

那在后来的程序中是否也要加入使用呢?

最后就是此对话框该怎样设定他的大小
我试过好像可以随意的拉动
烦请您再解答一下
谢谢

cy956

(defun dxf (#code #list)(cdr (assoc #code #list))一段你只要加载一次即可，这是一个普通的内部函数，在提取组码值时使用，算是lisper们最常用到的函数了。你可以粘贴到acad×××.lsp文件中。doslib对话框大小似乎没有参数可以定义，至少使用说明中未提及。

xyz518mm

真是太感谢版主您了
您的回答让我又学习了不少东西
另外关于dos_combolist 这函数的解释是否如下:
以及 dos_combolist 对话框所能表示内容是否只能显示出字串的第一位
如果有多位要显示就无法实行了是吗?

另外若再使用此程序时没有执行任何项目直接按esc键退出
出现 [损坏的引数类型: stringp nil] 这样是程序问题吗?

dos_combolist
显示带有组合样式列表框的可调整尺寸的Windows对话框。
这对于需要从列表中选择一个项目或输入字符串值是非常有用的。

语法
(dos_combolist title message list [default])

参数
title 对话框标题。
message 描述信息。
list 字符串值列表。
default 缺省字符串

返回值
成功时返回在编辑框中输入的项目或从列表中选择的项目。

取消或出错时返回nil。

样例
(setq xyz '("图层1" "图层2" "图层3"))
(dos_combolist "显示图层" "选择或输入要关闭的图层" xyz)

cy956

是的，你可以加上错误判断，在mlm和mlm1两处，都有可能出现nil或其他不希望出现的返回值，加两个if就可以解决。上面的程序不算完整，因为作为完整程序可能还要错误判断，系统变量赋值与返回，undo设置等等，包括内部变量清零，坛里xyp1964几位帮主都有相关帖子，你可以看看。doslib的使用早期时我贴过一个简单翻译，现在应该是明经的最全，你可以到明经通道看看。

xyz518mm

那错误判断是要 加在这些地方吗?
(setq mlbt (mapcar 'car mltxt)
      mlm  (dos_combolist  "--测试完成程序--"  "选择一个命令" mlbt
(if (= mlm nil)
  (if mlm mlm (car mlbt))
)

(if (= mlm1 nil)     
      mlm1 (dxf mlm mltxt)
))
)

(eval (read mlm1))
烦请各位高手指导一下~

cy956

2. 
   
3. (defun c:ts (/ MLBT MLM1)
   
4. ;;;  (LOAD "C:/LISPOK.lsp")
   
5.   (setq        mltxt (list
   
6.                 '("命令说明3-设置线宽" . "(c:LOK003)")
   
7.                 '("命令说明2-拾取数字差" . "(c:LOK002)")
   
8.                 '("命令说明1-内容改为当前日期" . "(c:LOK001)")
   
9. 
   
10.               )
    
11.   );;;命令名表
    
12.   (setq        mlbt (mapcar 'car mltxt)
    
13.         mlm  (dos_combolist  "--by陈勇--"  "选择一个命令"  mlbt
    
14.                (if mlm mlm (car mlbt)))
    
15.         mlm1(if mlm  (dxf mlm mltxt) nil)
    
16.   )
    
17.   (if mlm1
    
18.      (eval (read mlm1))
    
19.      (alert  "未选中合适命令.")
    
20.   )
    
21.   (prin1)
    
22. )
    

<br /> (defun c:ts (/ MLBT MLM1)<br /> ;;;  (LOAD "C:/LISPOK.lsp")<br />   (setq        mltxt (list<br />                 '("命令说明3-设置线宽" . "(c:LOK003)")<br />                 '("命令说明2-拾取数字差" . "(c:LOK002)")<br />                 '("命令说明1-内容改为当前日期" . "(c:LOK001)")<br /> <br />               )<br />   );;;命令名表<br />   (setq        mlbt (mapcar 'car mltxt)<br />         mlm  (dos_combolist  "--by陈勇--"  "选择一个命令"  mlbt<br />                (if mlm mlm (car mlbt)))<br />         mlm1(if mlm  (dxf mlm mltxt) nil)<br />   )<br />   (if mlm1 <br />      (eval (read mlm1))<br />      (alert  "未选中合适命令.")<br />   )<br />   (prin1)<br /> )<br />