[VBA程序]：如何在cad中运行可执行文件

tnt2 · 发表于 2002-5-23 08:38:49

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

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

×

我想在autocad2002中运行用fortran编写的可执行文件，可以用VBA实现吗？
请高手指教！
谢谢！

e2002 · 发表于 2002-5-23 08:42:31

你的程序是Windows平台上运行的PE程序吗?如果是,直接用:

(startapp " (path)//exefile.exe")

即可

tnt2 · 发表于 2002-5-23 08:47:15

谢谢！
autolisp我不懂，能用vba处理吗？
文件是fortran编写的quickwin应用程序。

InterCAD · 发表于 2002-5-24 08:52:33

shell "path\fortran.exe" , VbNormalNoFocus

e2002 · 发表于 2002-5-24 09:21:58

最初由 tnt2 发布
[B]谢谢！
autolisp我不懂，能用vba处理吗？
文件是fortran编写的quickwin应用程序。 [/B]

你照抄上面的,把路径改为你的实际路径即可,无需弄懂VisualLISP的,就这么个小东西,这是最佳方法了,VBA台罗嗦了.

tnt2 · 发表于 2002-5-24 09:34:19

谢谢e2002,intercad
问题解决了！

InterCAD · 发表于 2002-5-24 23:49:33

最初由 e2002 发布
[B]

你照抄上面的,把路径改为你的实际路径即可,无需弄懂VisualLISP的,就这么?.. [/B]

人家需要VBA解决方法，你提供了Vlisp方法，顺便还把VBA埋汰一下。
□□□□□□□□□□□□□□□□□□□□（奉斑竹之命，此处删除19字）
----------------------------------------------------------
呵呵，第一次采取引用，试试，老弟别生气。

e2002 · 发表于 2002-5-25 03:00:00

我只是告诉他这个问题的最简单最直接有效的方法而已,并非答非所问.更不是要埋汰VBA.,...

走捷径有什么不好吗?

InterCAD · 发表于 2002-5-25 03:20:09

很多问题不是孤立的。例如，可能用VBA进行数据前处理，中间要调用一个现成的fortran程序计算。（奉斑竹暗谕，以下文字具有对名士e2002不恭之嫌，特删除）

秋枫 · 发表于 2002-5-25 10:08:07

如果vba 中可以调用winapi, 就可以用shellexecute(...)

秋枫 · 发表于 2002-5-25 10:19:28

<body>
<p>下面的 VBA 代码用记事本打开FileName文件。</p>
<pre class="code"><font face="Courier New">Set WshShell = CreateObject("WScript.Shell")
WshShell.<code><b class="cfe">Run </b></code>"%windir%\notepad " & FileName</font></pre>
<p>下面的 VBA
代码与上述代码完成的操作相同，不同之处在于，它指定窗口类型，等待用户关闭记事本，关闭记事本时保存从记事本返回的错误代码。</p>
<pre class="code"><font face="Courier New">Set WshShell = CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & FileName, 1, true)</font></pre>
<div id="nsbanner">
<div id="TitleRow" style="PADDING-RIGHT: 10px; PADDING-LEFT: 22px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
<h4><a name="wsmthrun"></a>Run 方法</h4>
</div>
</div>
<div class="sapop" onkeypress="ieKey" id="sapop" style="VISIBILITY: hidden">
<h4 class="dtH4">请参阅</h4>
<p><a href="mk:@MSITStore:E:\QiuFeng\wsh\Windows%20Script%20Host%205.6\WSH5.6手册\Script56.CHM::/html/wsobjwshshell.htm">WshShell
对象</a></p>
</div>
<div id="nstext" valign="bottom">
<p>在新过程中运行程序。</p>
<pre class="syntax"><i><a class="synParam" onclick="showTip(this)" href>object</a></i><b>.Run</b>(<i><a class="synParam" onclick="showTip(this)" href>strCommand</a></i>, [<i><a class="synParam" onclick="showTip(this)" href>intWindowStyle</a></i>], [<i><a class="synParam" onclick="showTip(this)" href>bWaitOnReturn</a></i>]) </pre>
<div class="reftip" id="reftip" style="VISIBILITY: hidden; OVERFLOW: visible; POSITION: absolute">
</div>
<h5>参数</h5>
<dl>
<dt><i>object</i>
<dd>WshShell 对象。
<dt><i>strCommand</i>
<dd>表示要运行的命令行的字符串值。必须包括要传递到可执行文件的所有参数。
<dt><i>intWindowStyle</i>
<dd>可选。表示程序窗口外观的整数值。请注意，并非所有程序都使用此信息。
<dt><i>bWaitOnReturn</i>
<dd>可选。布尔值，表示在继续执行脚本中的下一条语句之前，脚本是否等待执行完程序。如果设为
true，则在执行完程序后才执行脚本，Run
方法返回由程序返回的任何错误代码。如果设为 false（默认值），则
Run 方法将自动在启动程序后立即返回 0（不是错误代码）。</dd>
</dl>
<h5>说明</h5>
<p>Run 方法返回一个整数。Run 方法启动在新 Windows
进程中运行的程序。可以让脚本等到程序执行完后再继续执行。这允许您同步运行脚本和程序。<i>strCommand</i>
参数内的环境变量自动扩展。如果某个文件类型已正确注册到某个程序中，则对该类型的文件调用
Run
方法时将执行该程序。例如，如果您的计算机系统中装有
Word，则对 *.doc 文件调用 Run 方法时将启动 Word
并加载该文档。下表列出了 <i>intWindowStyle</i> 的可用设置。</p>
<div class="tablediv">
<table class="dtTABLE" cellSpacing="0" border="1">
<tbody>
<tr vAlign="top">
<th width="23%">intWindowStyle</th>
<th width="77%">说明</th>
</tr>
<tr vAlign="top">
<td width="23%">0</td>
<td width="77%">隐藏一个窗口并激活另一个窗口。</td>
</tr>
<tr vAlign="top">
<td width="23%">1</td>
<td width="77%">激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。第一次显示该窗口时，应用程序应指定此标志。</td>
</tr>
<tr vAlign="top">
<td width="23%">2</td>
<td width="77%">激活窗口并将其显示为最小化窗口。</td>
</tr>
<tr vAlign="top">
<td width="23%">3</td>
<td width="77%">激活窗口并将其显示为最大化窗口。</td>
</tr>
<tr vAlign="top">
<td width="23%">4</td>
<td width="77%">按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。</td>
</tr>
<tr vAlign="top">
<td width="23%">5</td>
<td width="77%">激活窗口并按当前的大小和位置显示它。</td>
</tr>
<tr vAlign="top">
<td width="23%">6</td>
<td width="77%">最小化指定的窗口，并按照 Z
顺序激活下一个顶部窗口。</td>
</tr>
<tr vAlign="top">
<td width="23%">7</td>
<td width="77%">将窗口显示为最小化窗口。活动窗口保持活动状态。</td>
</tr>
<tr vAlign="top">
<td width="23%">8</td>
<td width="77%">将窗口显示为当前状态。活动窗口保持活动状态。</td>
</tr>
<tr vAlign="top">
<td width="23%">9</td>
<td width="77%">激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。还原最小化窗口时，应用程序应指定此标志。</td>
</tr>
<tr vAlign="top">
<td width="23%">10</td>
<td width="77%">根据启动应用程序的程序状态来设置显示状态。</td>
</tr>
</tbody>
</table>
</div>
</div>
<p>　</p>
</body>

复制代码

秋枫 · 发表于 2002-5-25 10:30:20

由于上述方法是基于activex 的。
所以，在vlisp中也可以实现。

InterCAD · 发表于 2002-5-25 10:41:55

VBA本身就有shell函数，何必动用API和WSH。

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

[VBA程序]：如何在cad中运行可执行文件

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

相关帖子