lisp如何调用外部命令？

caoyin

zhhunicorn 发表于 2011-5-30 09:37
这个函数不错，不用安装其他东西了。
但是在启动了a.exe之后，没等a.exe计算的数据出来就往下执行了。 ...

可以在PGP文件里面定义外部命令，其中Bit flag设置为0，可以控制是否等待程序执行完毕

;  <Command name>,[<Shell request>],<Bit flag>, [ * ]<Prompt>,
;  The bits of the bit flag have the following meanings:
;  Bit 1: if set, don't wait for the application to finish
;  Bit 2: if set, run the application minimized
;  Bit 4: if set, run the application "hidden"
;  Bit 8: if set, put the argument string in quotes

;  Fill the "bit flag" field with the sum of the desired bits.
;  Bits 2 and 4 are mutually exclusive; if both are specified, only
;  the 2 bit is used. The most useful values are likely to be 0
;  (start the application and wait for it to finish), 1 (start the
;  application and don't wait), 3 (minimize and don't wait), and 5
;  (hide and don't wait). Values of 2 and 4 should normally be avoided,
;  as they make AutoCAD unavailable until the application has completed.
;
;  Bit 8 allows commands like DEL to work properly with filenames that
;  have spaces such as "long filename.dwg".  Note that this will interfere
;  with passing space delimited lists of file names to these same commands.
;  If you prefer multiplefile support to using long file names, turn off
;  the "8" bit in those commands.

yshf

根据以前在晓东CAD家园上找到的改写：

2. 
   
3. (setq *wsh (vlax-create-object "wscript.shell"))
   
4. (vlax-invoke *wsh 'run "a.exe" 5 1)
   
5. ......
   
6. 你的程序
   

<br /> (setq *wsh (vlax-create-object "wscript.shell"))<br /> (vlax-invoke *wsh 'run "a.exe" 5 1)<br /> ......<br /> 你的程序<br />

等a.exe运行了再运行你的程序。

zhhunicorn

caoyin 发表于 2011-5-30 17:17
可以在PGP文件里面定义外部命令，其中Bit flag设置为0，可以控制是否等待程序执行完毕

;  ,[],, [ * ...

谢谢斑竹，比较倾向你这个方式。
把a.exe放在系统支持文件目录下
在pgp文件中做了如下修改：

;  Examples of external commands for command windows

DEL,       DEL,            8,要删除的文件: ,
DIR,       DIR,            8,指定文件: ,
SH,        ,               1,*操作系统命令: ,
SHELL,     ,               1,*操作系统命令: ,
START,     START,          1,*要启动的应用程序: ,
TYPE,      TYPE,           8,要列出的文件: ,
a,               a,            0,
在运行lsp程序：
（startapp "a" "")
（setq i 0）
结果还是没有等a.exe运行完毕。
究竟该怎么修改这个pgp文件呢

zhhunicorn

yshf 发表于 2011-5-30 22:05
根据以前在晓东CAD家园上找到的改写： 等a.exe运行了再运行你的程序。

这个果然轻松搞定。非常感谢。