vb和ansys

wall_2005

我正在编一个vb和ansys结口的界面，感兴趣的请联系我，我的Popo是walli,请注明:界面

sdh142857

刚巧我也在做这方面的编程，咱们可以相互交流．

sdh142857

我在Ansys前处理有一这方面主题,并附有程序.欢迎下载.

zbocyq

请问你门的邮箱是多少哈
喜欢得到你们的指点

sdh142857

我曾经在ANSYS前处理版块发过一个帖,为
http://www.simwe.com/forum/viewthread.php?tid=610882

那是一个由acad把实体识别并转成ansys命令流的程序,用vb编的,还说明了编程的思路.由于ANSYS版块特别火爆,已经沉下去了,请诸位去看是不是自己想要的东西.

wang2319093

API声明部分
Declare Function WinExec Lib "KERNEL32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Declare Function GetModuleHandle Lib "KERNEL32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Command3_Click()
   
        Dim xc As Integer
        Dim cmdline As String
        Dim hwnd As Integer
        Dim hwnd5 As Long
        cmdline = "D:/ANSYS80/v80/ANSYS/bin/intel/ansys80cust.exe -b -p ANE3FL -i c:/wo.dat -o e:/岩土设计/ansys.dat"
        hwnd5 = FindWindow("Shell_c:/WINDOWS/system32/cmd.exe", vbNullString)
        hwnd = WinExec(cmdline, 0) '参数为0则隐藏窗体
       ' Call ShowWindow(hwnd5, SW_HIDE) '隐藏任务栏SW_HIDE
        If hwnd < 32 Then 'hWin<32则启动应用程序失败
        MsgBox "error!"
        Exit Sub
        End If

        While GetModuleHandle(hwnd%) '获取一个应用程序或动态链接库的模块句柄
        MousePointer = 11 '‘鼠标呈沙漏状
        WAIT% = DoEvents()
        Wend
        xc = MsgBox("计算成功", 48, "岩土设计计算")
         If xc = 1 Then
           Form8.Show
         End If
        MousePointer = 1 '鼠标复原为箭头
        End Sub

wang2319093

我就是用这个方法做的关于各种抗滑桩的优化设计

U0

我也要开始做这方面的
ANSYS二次开发
希望大家多多交流
QQ：18320372

yangwenliang_24

我也正在做这方面的工作
是用VB对ansys进行二次开发
我的QQ是121263356
希望大家一起探讨!

missile251

楼主 我是新手 能知道你的联系方式吗 我想向你学习ANSYS的二次开发 谢谢了 衷心感谢

missile251

我的QQ是76116266
希望楼主能联系我 好人一生平安 谢谢了

dayue100du

3# sdh142857

不知您的关于VB调用ANSYS的帖子哪个可以下载程序？，我自己搞了几次都还有问题，急需给力的帮助啊！