[求助]：在LISP里如何实现一下功能

snsj

1.重复的连续的DOS命令，例如用：SHELL只能实现一步的DOS命令，在WIN2000的DOS下如何在打开了CMD后用一命令在CMD里回车一下连续生成呢？比如想连续实现C:/ CD D:/PROGRAM 回车（在DOS窗口）－－D:/ 回车   结束
2.IF判断函数能不能多重判断例如
如果变量A等于“DIMENSION”或者“TEXT" 或者" MTEXT" 时候执行~~~~~~~~该如何表示才好?

秋枫

最初由 snsj 发布
[B]1.重复的连续的DOS命令，例如用：SHELL只能实现一步的DOS命令，在WIN2000的DOS下如何在打开了CMD后用一命令在CMD里回车一下连续生成呢？比如想连续实现C:/ CD D:/PROGRAM 回车（在DOS窗口）－－D:/ 回车   结束
2.I... [/B]

→1：方法是先生成一个临时的BAT文件，把需要执行的代码写入这个BAT文件。
然后使用语句

1. 
   
2. [FONT=courier new]
   
3. ;; 下面这句执行完temp.bat后自动关闭console窗口
   
4. (StartApp "cmd.exe" "/c C:\\Temp.BAT")
   
5. ;; 下面这句执行完temp.bat后不关闭console窗口
   
6. (StartApp "cmd.exe" "/k C:\\Temp.BAT")
   
7. [/FONT]

复制代码

→2：多重判断不用if函数，改用cond函数。

1. 
   
2. [FONT=courier new]
   
3. (cond
   
4.   ((...) (...))
   
5.   ((...) (...))
   
6.   ...
   
7. )
   
8. [/FONT]

复制代码

cy956

第一个问题，如果用doslib可以的话，可以不用shell。

如：
dos_command        (dos_command command-line [show])        运行COMMAND.COM内部命令.
  show缺省为 Normal (0).Bit value Description
            0 Normal.
        1 No Active..
        2 Minimized.
        3 Minimized
        4 Maximized.
  Example
    (dos_command "copy *.dwg a:")
--------------------
dos_execute        (dos_execute command-line [show])          运行外部命令.
  Examples
    (dos_execute "format.com a: /s")
    (dos_execute "notepad.exe" 4)
--------------------
dos_exewait        (dos_exewait command-line [show])        运行外部命令.等待终止。
  Examples
    (dos_exewait "notepad.exe")
    (dos_exewait "notepad.exe" 4)
--------------------
dos_processes        (dos_processes [T])        已运行文件列表
  T 全路径
  Example
    (dos_processes)
--------------------
dos_shellexe        (dos_shellexe file parameters [operation [show]])        打开或打印 执行文件或文档文件
  parameters=nil为文档文件
  operation
    0 Open the executable or document.
    1 Print the document.
    2 Explore the specified folder
  Example
  (dos_shellexe "notepad.exe" "readme.txt")
  (dos_shellexe "www.mcneel.com" nil)
  (dos_shellexe "c:\\ drawings\\" nil 2)

aeo

(if (member a '("DIMENSION”“TEXT" " MTEXT" )) ....

(if(or(= a  "DIMENSION")(= a "text").....


cond:
相当于

2. 
   
3. (if(= a"DIMENSION")(progn....)
   
4. (if(= a"TEXT")(progn..)
   
5.     (if(= a "MTEXT")(progn...)
   
6.       (progn...)
   
7.     )
   
8. )
   
9. )
   

<br /> (if(= a"DIMENSION")(progn....)<br /> (if(= a"TEXT")(progn..)<br />     (if(= a "MTEXT")(progn...)<br />       (progn...)<br />     )<br /> )<br /> )<br />

snsj

最初由 秋枫 发布
[B][QUOTE]最初由 snsj 发布
[B]1.重复的连续的DOS命令，例如用：SHELL只能实现一步的DOS命令，在WIN2000的DOS下如何在打开了CMD后用一命令在CMD里回车一下连续生成呢？比如想连续实现C:/ CD D:/PROGRAM 回车（... [/B]

如果要执行的BAT文件里存在变量呢,比如要执行的BAT文件里需要用getfiled来获得文件的路径然后加入到BAT文件里进行更新该怎么做?

eachy

最初由 snsj 发布
[B][QUOTE]最初由 秋枫 发布
[B][QUOTE]最初由 snsj 发布
[B]1.重复的连续的DOS命令，例如用：SHELL只能实现一步的DOS命令，在WIN2000的DOS下如何在打开了CMD后用一命令在CMD里回车一下连续生成呢？比?.. [/B]

用write-line生成bat文件。