Question

关于vb调用ANSYS问题

看了您对此类问题的回答，按照步骤我照做，但是不执行ansys，还望指教

新建模块添加了如下代码：
Public Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib _
"kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long

窗体中命令按钮添加：
Private Sub Command4_Click()

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF
Dim iDnum As Long

Dim S As String
Dim WorkPath As String
WorkPath = "C:\Documents and Settings\Administrator"
S = Chr(34) & "C:\Program Files\Ansys Inc\v110\ANSYS\bin\intel\ansys110.exe" & Chr(34) & _
" -p ANE3FLDS -dir " & _
Chr(34) & WorkPath & Chr(34) & _
" -j " & _
Chr(34) & "file" & Chr(34) & _
" -s read -l en-us -b -i " & _
Chr(34) & WorkPath & "file.txt" & Chr(34) & _
" -o " & _
Chr(34) & WorkPath & "file.out" & Chr(34)
iDnum = Shell(S, vbMaximizedFocus)
If iDnum <> 0 Then
iDnum = OpenProcess(SYNCHRONIZE, 0&, iDnum)
Call WaitForSingleObject(iDnum, INFINITE)
End If
End Sub

应该如何更改，谢谢。可继续加分
file.txt 中是命令流文件
通过ansys 直接调用可以很好的执行

问一下file.out输出文件是系统自动生成还是用户先定义？

Answer 1

ef="http://www.caesv.cn/ask/question.php?id=35120" target="_blank">http://www.caesv.cn/ask/question.php?id=35120
你可以参考下这篇文章，这个人提出的问题，说的input 变量其实那就是一个字符串。
Shell（string）是VB的一个函数，string就是一个字符串
string ="软件的路径"+"入口参数",按照格式来就好了.
还不懂给我留言。

Answer 2

WorkPath = "C:\Documents and Settings\Administrator"
似乎要改成WorkPath = "C:\Documents and Settings\Administrator\"
file.out是ansys自动生成的