基于VB控件开发的ANSYS程序调用方法

第28卷　第1期2004年2月武汉理工大学学报(交通科学与工程版)Jou rnal of W uhan U n iversity of T echno logy(T ran spo rtati on Science&Engineering)V o l.28　N o.1Feb.2004基于VB控件开发的AN SYS程序调用方法①彭公孚 席长友(武汉理工大学交通学院　武汉　430063)　(山东省曲阜公路局　曲阜　273100)摘要:在AN SYS软件的模板二次开发过程中,调用AN SYS进行自动计算是开发的关键步骤,而开发工具的不同造成了调用的方法不同.文中讨论用V isual Basic语言编写的一种控件,将调用AN SYS程序的功能封装起来,供各种语言使用,希望藉此控件在各种开发情况下为开发者提供一个统一有效的调用接口.结合一个实例对其使用方法进行了介绍.关键词:控件;AN SYS;调用中图法分类号:U412.6 AN SYS软件在工程上的应用相当广泛,在机械、电机、土木、电子及航空等不同领域的使用,都能达到某种程度的可信度,颇获各界好评[1].因其功能强大结果可靠,AN SYS软件在工程上的应用相当广泛.很多人在其基础上进行模板二次开发以简化具体工作中的机算问题.在这一过程中解决主程序对AN SYS的调用功能成为开发的关键.各种开发工具都有其各自的方法,造成在各个开发过程中开发者需要采用不同的方法重复工作.为了解决这一问题,笔者提出了基于VB控件开发的AN SYS程序调用方法.1　基于VB控件的AN SYS软件1.1　基本原理每运行一次AN SYS生成一段3.log文件,该文件记录了AN SYS运行过程中的每一个命令,以便在系统崩溃或用户发生重大错误时,用 inp u t命令调入3.log文件重新执行命令,并且AN SYS为使用者提供了batch功能,利用此功能可以实现3.log文件的后台调用,利用这一功能,可以利用自己熟悉的编程软件修改3.log文件中相应的参数,并调用AN SYS程序计算,在主程序的调用过程中主程序必须实现以下4种功能:(1)要实现前处理参数输入功能;(2)根据用户输入的参数生成an sys宏命令文件;(3)将生成的宏命令文件提交给A n sys程序进行批处理操作;(4)程序需要判断A n sys的批处理操作何时结束.AN SYS程序调用的关键是第(3)、(4)步,将这两步工作封装在一个可以由多种开发工具调用的控件中,供开发者使用,这将简化开发程序的代码.具体步骤如下.1.2　3.log文件的提交首先在VB开发环境中生成一个普通工程,然后执行“文件”菜单中的“添加工程”命令,打开“添加工程”对话框并在其中选择“A ctiveX控件”并确定.在建立的控件设计器中添加一个命令按钮和一个计时器,然后调整为合适大小并设置相应各种属性,注意要将计时器的Enab led属性设置为F lase;In terval属性设置为3000. 在按钮控件中添加如下代码 P rivate Sub Comm and1C lick() D i m x x=Shell(“X: …… A n sys Inc AN SYS57 b in in tel an sys57.exe-g-i Y: …… &inpu tnam e&-o Y: …… &ou tpu tnam e&”) T i m er1.Enab led=T rue End Sub其中:X: …… 为A n sys安装路径;Y: …… 为输入、输出文件的放置位置;&inp u tnam e&和①收稿日期:20031027 彭公孚:男,25岁,硕士生,主要研究领域为计算力学与仿真&ou tp u tnam e&是用A PDL语言编写的AN SYS 输入文件名和结果输出文件名.1.3　判断AN SYS计算结束在计时器中添加如下代码P rivate Sub T i m er1T i m er()If D ir(“Z: …… file.err”)<>“”T henM sgBox(“计算完毕!”)T i m er1.Enab led=FalseEnd IfEnd Sub其中的Z: …… 为生成执行文件后的执行位置.完成以上步骤后,将所有生成文件保存.这样具有AN SYS软件调用功能并可以判断计算是否完成的控件就具备实用功能了.以上控件的使用方法如下.(1)启动visual basic,建立一个标准EXE工程.(2)执行“工程”菜单中的“添加用户”控件命令,打开“添加用户控件”对话框.(3)选择对话框中的“现存”选项卡,打开文件目录列表框.(4)在列表中找到刚才保存文件中的333.ctl文件.(5)单击“打开”按钮[2].以上生成的控件只能在VB环境下使用.为了建立能在其它环境(如V isual C++、V isual J ++等)中使用的A ctiveX控件,还需要以下步骤.首先载入前面建立的333.vbg工程组,在工程资源管理器窗口中打开用户控件,然后执行文件菜单中的生成333.ocx命令,并指定生成的333.ocx文件生成目录并确定.如此生成的A ctiveX控件就可以在各种开发环境中供开发者调用.2　应用实例为了检验该控件的使用效果,下面通过一个实例运用来示范.九皖溪大桥为悬索施工的钢管拱桥.在设计过程中,需要计算钢管拱结构在吊装施工过程中,在自重作用下造成的下降及固定拱结构的扣索的受力大小,以便于拱结构的预拱度设计.该结构中钢管拱的弹性模量为2.0×1011N m2,密度为7.85t m3,惯性矩为0.092267m4,扣索弹性模量2.1×1011N m2,重力加速度是9.81m s2.拱结构有25个关键点,其坐标为①-80.699,-26.891,0;②-77.720,-24.886,0;③-74.726,-22.881,0;④-71.687,-20.945,0;⑤-68.603,-19.083,0;⑥-65.475,-17.295,0;⑦-62.304,-15.584,0;⑧-59.091,-13.953,0;⑨-55.839,-12.403,0;βκ-52.548,-10.937,0;βλ-49.220,-9.556,0;βµ-45.857,-8.263,0;βν-42.461,-7.059,0;βο-39.034,-5.945,0;βπ-35.579,-4.924,0;βθ-32.098,-3.996,0;βρ-28.593,-3.162,0;βσ-25.066,-2.425,0;βτ-21.520,-1.784,0;χκ-17.959,-1.240,0;χλ-14.383,-0.794,0;χµ-10.797,-0.447,0;χν-7.203,-0.199,0;χο-3.603,-0.050,0;χπ-0.0,-0.0,0 扣索的固定点有两个坐标分别为(-80.699, -4.924)和(-80.699,9).扣索在拱结构上的作用点位置分别在第⑤,⑧,βλ,βο,βρ,χκ,χν关键点上.通过编写的程序,结合设计参数生成相应的AN SYS命令流的宏文件[3],代码如下.p rep7e,13,14et,1,beam3e,14,15mp,ex,1,2e11e,15,16r,1,0.1778,0.0923e,16,17et,2,link10e,17,18mp,ex,2,2.1e11e,18,19r,2,0.01e,19,20n,1,-80.699,-26.891,0e,20,21n,2,-77.720,-24.886,0,e,21,22n,3,-74.726,-22.881,0,e,22,23n,4,-71.687,-20.945,0,e,23,24n,5,-68.603,-19.083,0,e,24,25n,6,-65.475,-17.295,0,mp,dens,1,8269n,7,-62.304,-15.584,0,d,1,uxn,8,-59.091,-13.953,0,d,1,uyn,9,-55.839,-12.403,0,n,26,-80.699,-4.924 n,10,-52.548,-10.937,0,n,27,-80.699,9n,11,-49.220,-9.556,0,d,26,alln,12,-45.857,-8.263,0,d,27,alln,13,-42.461,-7.059,0,type,2n,14,-39.034,-5.945,0,m at,2n,15,-35.579,-4.924,0,real,2n,16,-32.098,-3.996,0,e,26,5n,17,-28.593,-3.162,0,e,26,8n,18,-25.066,-2.425,0,e,26,11n,19,-21.520,-1.784,0,e,26,14n,20,-17.959,-1.240,0,e,27,17n,21,-14.383,-0.794,0,e,27,20n,22,-10.797,-0.447,0,e,27,23n,23,-7.203,-0.199,0, so lun,24,-3.603,-0.050,0,acel,,9.81n,25,-0.0,-0.0,0,so lvetype,1 po st1m at,1p lnso l,u,sum,2real,1 SHOW,JPEGe,1,2JPEG,QUAL,75,・941・　第1期彭公孚等:基于VB控件开发的AN SYS程序调用方法e ,2,3JPEG ,OR IEN T ,HOR IZ e ,3,4JPEG ,COLOR ,2e ,4,5JPEG ,TM OD ,1e ,5,6 GF I L E ,600,e,6,7esel,m at,2e ,7,8PR ESOL ,S M ISC ,1e ,8,9esel ,all e ,9,10esel ,m at ,1e ,10,11nsel ,r ,node ,,5,23,3e ,11,12p rnso l ,u ,ye ,12,13 将该宏文件保存在指定目录中,再调用程序计算.所得部分结果如下.NOD E U Y　5-0.63477E -03　8-0.14936E -02　11-0.37717E -02　14-0.92109E -02　17-0.20455E -01　20-0.39926E -01　23-0.65804E -01以上结果为扣索作用点在重力作用下的下沉值.EL E M S M IS 1　25 25435.　26 11587.　27 37292.　28 84907.　29 0.33551E +06　30 0.44652E +06　31 0.49910E +06以上结果分别为作用在第⑤,⑧,βλ,βο,βρ,χκ,χν关键点上扣索承受的轴向应力.根据以上的结果,设计人员可以对拱结构吊装过程中的预拱度进行设置,并且可以通过改变命令流中的设计参数值来重新计算,以验证结果的正确性.3　结束语借助文中介绍的方法开发的具有AN SYS 调用功能的控件,开发者可以专注于计算中命令流的设计工作,并提供给不熟悉AN SYS 软件的一般技术人员一个友好的程序界面,通过设计人员对设计参数的简单修改,容易完成有限元分析以加快设计速度.参考文献1　陈精一,蔡国忠.电脑辅助工程分析AN SYS 使用指南.北京:中国铁道出版社,2001.52　刘炳文.精通V isual Basic 6.0中文版.北京:电子工业出版社,2001.5483　陈　力,刘　刚.基于AN SYS 的三峡液压启闭机U型架的结构分析与改进.武汉理工大学学报(交通科学与工程版),2002,26(2):280～282A M ethod of Invok ing AN SYS Based onVB Con tro l D evelop ingPeng Gongfu 1)　X i Changyou2)(S chool of T ransp orta tion ,W U T ,W uhan 430063)1)(Q uf u R oad D ep a rt m en t of S hand ong P rov ince ,S hand ong ,273100)2)AbstractIn the secondary p hase of developm en t of AN SYS ,it is key to invoke AN SYS fo r au to 2calcu la 2ti on .In every I D E there are differen t m ethods .T h is article discu sses how to w rite a con tro l docum en t w ith V isual B asic and to encap su late its functi on in it to supp ly all I D E ,and w ishes to p rovide a un ify effective fetch to every develop er .A p ractical exam p le is given to in troduce th is m ethod .Key words :con tro l ;AN SYS ;invok ing・051・武汉理工大学学报(交通科学与工程版)2004年　第28卷。

前可直接从第1步开始，若无法执行，再从第0步开始。

0.首在Mechanical APDL Product Launcher中的ANSYS模式下，设置工作路径和文件名。

建议设置好后，点击RUN，来在工作目录下初步运行ANSYS。

运行后，不用任何操作，关闭并清除生成的文件。

图11.启动Mechanical APDL Product Launcher，按图2所示做如下设置。

a)将“ANSYS”模式切换至“ANSYS Batch”模式b)设置VB生成EXE所在的工作目录,本例为E:\VB TEST（与第一步中路径相同）c)设置ANSYS文件名，本例为feimo（与第一步文件名相同）d)设置输入文件名和后缀为（文件名任取，后缀为.dat或.inp）,本例为feimo_input.date)设置输出文件名和后缀（文件名任取，后缀为.out）,本例为feimo_output.out注意要勾选“Update I/O path”和“Update I/O name”来更新设置,设置好后关闭Mechanical APDL Product Launcher图2 2. 建立一个标准VB工程，添加一个按钮控件图3 Private Sub Command1_Click()Dim X As IntegerOpen "E:\VB TEST\feimo_input.dat" For Output As #1'此句格式为：Open 工作目录/输入文件名for Output As #1 Print #1, "/PREP7 "Print #1, "ET,1,SOLID185 "Print #1, "MPTEMP,,,,,,,, "Print #1, "MPTEMP,1,0 "Print #1, "MPDATA,EX,1,,2e11 "Print #1, "MPDATA,PRXY,1,,0.3 "Print #1, "BLOCK,,1,,1,,1, "Print #1, "ESIZE,0.1,0,"Print #1, "CM,_Y,VOLU "Print #1, "VSEL, , , , 1 "Print #1, "CM,_Y1,VOLU "Print #1, "CHKMSH,'VOLU' "Print #1, "CMSEL,S,_Y "Print #1, "VSWEEP,_Y1 "Print #1, "CMDELE,_Y "Print #1, "CMDELE,_Y1 "Print #1, "CMDELE,_Y2 "Print #1, "FINISH "Print #1, "/SOL"Print #1, "FLST,2,1,5,ORDE,1 "Print #1, "FITEM,2,1 "Print #1, "/GO "Print #1, "DA,P51X,ALL,"Print #1, "FLST,2,4,3,ORDE,2 "Print #1, "FITEM,2,5 "Print #1, "FITEM,2,-8 "Print #1, "/GO "Print #1, "FK,P51X,FZ,-500 "Print #1, "SOLVE "Print #1, "SA VE"X = Shell("F:\Program Files\ANSYS Inc\v120\ansys\bin\winx64\ANSYS120.EXE -b -p ane3fl -i feimo_input.dat -o feimo_output.out")End Sub其中，F:\Program Files\ANSYS Inc\v120\ansys\bin\winx64\ANSYS120.EXE为ANSYS 的.exe文件路径，可在ANSYS安装目录中找到（图4）。

基于ANSYS的VB计算程序开发汪亮彬1，王强2（1.杭州西奥电梯有限公司， 浙江 杭州311106）（2.中航黎明锦西化工机械（集团）有限责任公司， 辽宁 葫芦岛 125001）[摘 要] 利用Visual Basic语言进行ANSYS软件的二次开发，实现了压力容器椭圆形封头中心开孔和非中心开孔的自动有限元分析计算，大大提高了分析设计人员的工作效率。

[关键词] Visual Basic语言；二次开发；椭圆形封头开孔；压力容器；有限元分析作者简介：汪亮彬（1983—），男，安徽绩溪人，硕士，工程师，主要研究方向：压力容器应力分析。

图1 中心开孔程序界面图2 带管口载荷的中心开孔程序界面1 引言Visual Basic 适用性较强[1]，能够与很多软件进行对接，通过VB 设计可视化人机交互界面结合相关计算软件能够实现某些计算的重复进行，相比修改计算源程序而言，工作量减少很多，对工程设计人员提供了诸多方便。

某一类相同的结构，当结构尺寸不同、载荷大小不同时，只需在设计的程序界面中稍作参数修改就可再次计算。

本次采用VB 程序语言，结合大型通用有限元计算软件ANSYS ，开发压力容器椭圆封头开孔的计算程序[2]。

椭圆封头开孔分为中心开孔和非中心开孔两种形式，不带管口载荷的中心开孔可以采用轴对称单元模型，最终实现的界面如图1所示；带管口载荷的中心开孔和非中心开孔采用三维实体单元模型，最终实现的界面如图2和图3所示。

2 主要功能如上述程序界面所示，只需输入单元数据、结构数据、设计参数数据、管口载荷数据等，点击“建立模型”按钮，程序后台自动将界面的数据转化为有限元分析软件可以读取的apdl 命令流语言[3]，再单击“ansys 分析”按钮，程序会自动打开电脑中已安装的ANSYS 软件程序，并在工具栏中出现新增的按钮，选择最后一个“PSAS ”按钮单击，如图4所示。

软件会自动进行建模—分网—加载—计算，等计算完成后，可以关闭ANSYS软件，再打开程序的“后处理”按钮，就可进行后处理部分的操作，例如显示应力云图、位移云图等，如图5所示。

基于Visual Basic和ANSYS的圆筒门架自动化分析方法周㊀宝1㊀窦凤楼1㊀陈㊀凡1㊀牟寿堂1㊀胡㊀茂21㊀青岛海西重机有限责任公司2㊀武汉船用机械有限责任公司㊀㊀摘㊀要:利用Visual Basic开发交互界面,封装ANSYS的参数化设计语言程序,开发一种圆筒门架自动化分析软件㊂该软件包括参数设置模块㊁无模型分析模块㊁有模型分析模块㊁处理显示模块及存储模块,可简化有限元分析的前处理及后处理过程,可通过修改参数分析各种尺寸㊁角度㊁载荷大小的设计工况或方案,提高分析效率,实现圆筒门架自动化分析,为技术人员提供便捷的设计分析平台㊂㊀㊀关键词:圆筒门架;有限元分析;ANSYS;Visual BasicAutomated Analysis Method for Cylindrical Gantry Basedon Visual Basic and ANSYSZhou Bao1㊀Dou Fenglou1㊀Chen Fan1㊀Mou Shoutang1㊀Hu mao21㊀Qingdao Haixi Heavy-duty Machinery Co.,Ltd.2㊀Wuhan Marine Machinery Plant Co.,Ltd.㊀㊀Abstract:Develop an interactive interface using Visual Basic,encapsulate ANSYS's parametric design language program,and develop an automated analysis software for cylindrical gantry.This software includes parameter setting module, no model analysis module,model analysis module,processing and display module,and storage module,which simplifies the pre-processing and post-processing processes of finite element analysis.It can easily modify parameters to repeatedly analyze various design conditions or schemes of size,angle,and load size,improve analysis efficiency,achieve automatic analysis of cylindrical gantry,and provide a convenient design and analysis platform for technical personnel.㊀㊀Key words:cylindrical gantry;finite element analysis;ANSYS;Visual Basic1㊀引言圆筒门架是门座起重机的重要基础结构,主要承受上部回转部分自重和全部外载荷形成的垂直力㊁倾覆力矩㊁水平力㊁回转力矩㊁风载等㊂由于上部回转部分在工作时可360ʎ回转,因此不同回转角度下圆筒门架各部分的受力情况均不相同,如果受力分析不全面,在后期的使用中可能导致圆筒门架局部开裂或变形量过大,造成安全事故[1]㊂工程上一般用有限元软件进行受力分析,选用壳单元建立模型,板厚通过定义单元实常数来设定;用耦合建立质量节点自由度间的特殊联系,在圆筒端面形成刚性区域,直接在质量节点上施加载荷[2]㊂这种手工设计分析方法有一定的局限性,例如回转部分每转一个角度,都要删除质量节点的耦合,旋转节点坐标,重新耦合计算,较为繁杂㊂若充分分析回转部分回转时各个角度圆筒门架的受力情况将会耗费大量的时间,通常根据经验选择3个工况进行分析,不能全面地反应出实际使用中不同回转角度下圆筒门架各部分的受力情况[3]㊂若分析发现模型截面不合适,更改模型后需重新进行上述设置,对设计者的专业性要求非常高,比较耗时㊂为解决上述问题,开发了一种基于VB(Visual Basic编程语言)和ANSYS的圆筒门架自动化分析系统,可提高圆筒门架开发设计的效率和质量,为全面掌握圆筒门架受力情况㊁优化门架结构提供依据㊂2㊀系统设计ANSYS具有参数设计语言,可用程序编辑有限元分析过程㊂基于VB开发圆筒门架自动化分析界9港口装卸㊀2024年第2期(总第275期)面,该界面包括基本参数设置模块㊁无模型分析模块㊁有模型分析模块㊁结果及后处理模块,各模块封装由ANSYS 的APDL (ANSYS Parametric DesignLanguage,ANSYS 参数化设计语言)编写的批处理程序,只需依照界面提示输入相应参数便能进行分析㊂2.1㊀程序系统结构程序通过ANSYS 建立分析模型的参数化AP-DL 代码,然后在VB 中根据模型的参数化APDL 代码进行编程,利用VB6.0对ANSYS 参数化建模程序进行封装的系统结构图见图1㊂用户输入计算参数,即可调用后台的ANSYS 软件进行计算分析及后处理,ANSYS 把计算结果截图后在结果及后处理模块中显示出来㊂图1㊀程序结构框图2.2㊀程序系统功能采用VB 开发前㊁后处理界面,由ANSYS 有限元分析软件的APDL 设计语言编写处理程序实现,步骤如下:(1)通过参数设置窗口设置分析参数,包括网格大小㊁旋转角度范围及步长㊁受力的大小及方向㊂(2)选择无模型分析模块,选择圆筒门架主梁类型,包括对称主梁及非对称主梁;设置圆筒门架的截面参数,调用无型分析算法,建立圆筒门架单元模型;调用步骤(1)设置的分析参数,分析圆筒门架单元模型的受力情况㊂(3)在处理显示模块显示步骤(2)中受力情况的分析结果,并判断分析结果是否符合设计要求,如果分析结果不符合设计要求,重复步骤(2);如果分析结果符合设计要求,将分析结果存储在存储模块,执行步骤(4)㊂(4)确定截面参数后,将圆筒门架单元模型导入有模型分析模块,分析不同回转角度下圆筒门架不同位置的受力状况,并通过处理显示模块显示分析结果㊂有模型分析模块中,模型初始化模块自动检测圆筒门架筒体端面中心坐标,并在端面中心建立关键点,自动检测端梁最低点端面,对端面施加约束,并输出圆筒门架模型,存储在存储模块的指定文件夹㊂计算分析模块调用文件夹中存储的圆筒门架模型,在给定的起止角度范围内设定步长,在筒体端面中心的关键点上施加载荷并耦合节点,调用有模型分析算法计算分析;每个步长分析完毕后,提取分析应力㊁应变云图,并将应力㊁应变最大值存入存储模块的指定数组中㊂应力㊁应变云图采用双窗口显示,每个窗口显示不同的视角,绘制不同角度时最大应力和最大应变变化曲线,并保存在存储模块中;后处理显示模块设有显示界面,可查看各项参数,通过显示控件可选取显示不同角度时的应变力㊁应变云图㊂2.3㊀主要子程序和设计(1)用户界面㊂用户界面程序主要完成系统和用户的交互,模块包括计算参数输入和编写APDL的前㊁后处理命令流两部分㊂当所有的参数输入完毕,用户点击对应的计算按钮,系统将以文档格式自动生成APDL 计算命令流并存在指定的目录下㊂用户主界面见图2,无模型计算模块用户界面见图3㊂图2㊀用户主界面(2)VB 调用接口程序㊂VB 调用接口程序在该系统中用于接受用户界面的输入㊁创建进程调用ANSYS 模块㊁将生成的APDL 命令文件提交给AN-SYS 程序进行计算处理,用户再次选择计算模式后即可执行相应的计算㊂(下转第45页)1Port Operation㊀2024.No.2(Serial No.275)参考文献[1]㊀王云鹏,李书强,刘东辉,等.散粮桥式抓斗卸船机自动化控制系统研究[J].起重运输机械,2022,(24):45-49.[2]㊀王定华,王伯鸿.桥式抓斗卸船机电气控制系统研究与优化[J].机械管理开发,2022,37(5):,225-226.[3]㊀于宗章.桥式抓斗卸船机大车行走区域限制改造[J].设备管理与维修,2021,(21):103-104.[4]㊀杨凯,董春.桥式抓斗卸船机主机构电动机功率优化设计研究[J].机械管理开发,2017,32(1):11-13.[5]㊀蔡菁跻.桥式抓斗卸船机四大主要机构调试的分析[J].大众标准化,2023(10):25-27.蒋伟丰:201913,上海市崇明县长兴镇凤滨路666号收稿日期:2023-11-07DOI:10.3963/j.issn.1000-8969.2024.02.015(上接第10页)图3㊀无模型计算模块用户界面㊀㊀(3)后处理程序㊂分析过程中对设定的每个步长都提取最大应力㊁最大应变值,并把值存入AN-SYS 数组,抓取分析云图图片,编号后存入指定文件夹,应力㊁应变云图采用双窗口显示,便于不同角度观察受力情况㊂2.4㊀应用实例以MQ2535门座起重机为例,在结果及后处理模块中,无模型分析结果见图4,有模型分析结果见图5,可查看各角度下圆筒门架各部分的应力㊁应变情况㊂图4㊀无模型分析结果图5㊀有模型分析结果㊀㊀有模型分析结果更加详细㊁直观,可通过控件调取不同角度下圆筒门架应力㊁应变云图,也可以在后处理模块下输入任何角度,进行计算后打开ANASYS 软件查看分析结果㊂3㊀结语基于VB 和ANSYS 开发了圆筒门架自动化分析程序,并通过分析实例验证了此方法的可行性;用可视化的界面语言VB 程序对APDL 程序进行封装,友好的人机交互界面可实现计算参数的快速输入及结果的输出,可以使用该程序实现圆筒门架的有限元分析㊂参考文献[1]㊀汪弘,王永民.MQ1635型门机圆筒结构加固[J].港口装卸,2011(4):33-34.[2]㊀杨丹,赵章焰.薄壁圆筒结构有限元分析的三种加载方法.武汉理工大学学报[J].2006(2):322-325.[3]㊀杨光,张胜军.门座起重机圆筒门架静力学性能分析[J].起重运输机械,2008(12):110-112.周宝:266520,山东省青岛市黄岛区九龙山路1597号收稿日期:2024-01-22DOI:10.3963/j.issn.1000-8969.2024.02.00454港口装卸㊀2024年第2期(总第275期)。

将ANSYS作为子程序调用对于优化或参数化设计，可以在VC或FORTRAN中将ANSYS作为子程序调用。

具体调用方法如下：1.在VC中调用ANSYS::WinExec("d:/ANSYS57/BIN/INTEL/ANSYS57 -b -p ansys_product_feature -i input_file -o output_file",SW_SHOWNORMAL);2.在FORTRAN中调用ANSYSLOGICAL(4) resultRESULT=SYSTEMQQ('d:\ANSYS57\BIN\INTEL\ANSYS57 -b -pansys_product_feature -i input_file -o output_file')3.说明1和2中，input_file为用APDL语言编写的ANSYS输入文件。

ansys_product_feature为你的ANSYS产品特征代码。

需要注意的是，在VC中调用ANSYS时，需要加一条判断语句，以确定ANSYS已经执行完毕。

在FORTRAN中不需要判断，FORTRAN会等ANSYS执行完毕才继续执行下一条语句。

在VC中，我没有找到与FORTRAN类似的函数，只好加一条循环判断语句。

如果谁能找着这样的函数，请告诉我，谢谢！判断方法很简单，只需判断错误文件file.err是否可写就可以了。

因为当ANSYS在运行时，file.err是不可写的，只有当它运行完毕，此文件才可写。

数据文件(假设输出的数据文件名为opt.out):*dim,out1,,2,1out1(1)=dmax !目标函数out1(2)=1-eymax !约束条件1*cfopen,opt,out*vwrite,out1(1),out1(2)(2f10.6)*cfclos在VC中相应的显示数据文件命令为：result=system("notepad opt.out");图形文件（假设ANSYS工作文件名为test,输出jpg图形文件,具体信息请参考命令/show）：/SHOW,JPEGJPEG,QUAL,75,JPEG,ORIENT,HORIZJPEG,COLOR,2JPEG,TMOD,1/GFILE,600,!*plns,uy/SHOW,TERM在VC中相应的显示图形文件命令为：result=system("mspaint test001.jpg");******************************************************************************* *******VC调用ANSYS的示例程序。

Computer Knowledge and Technology 电脑知识与技术本栏目责任编辑：谢媛媛软件设计开发第7卷第23期(2011年8月)基于VB 调用Ansys 和Matlab 软件的分析方法杨媛媛1，梁霭明2（1.广东技术师范学院天河学院计算机科学与技术系，广东广州510540；2.新科集团MDE ，广东东莞523082）摘要：该文论述了VB 调用Ansys 和Matlab 软件进行分析设计的方法，并介绍其联合开发步骤、编程关键及其应用。

关键词：VB ；Ansys ；Matlab中图分类号：TP391文献标识码：A 文章编号：1009-3044(2011)23-5656-02Method of VB Calling Ansys and Matlab in CalculationYANG Yuan-yuan 1,LIANG Ai-ming 2(1.Department of Computer Science and Technology,Guangdong Polytechnic Normal University Tianhe College,Guangzhou 510540,China;2.SAE,MDE,Dongguan 523082,China)Abstract:This paper discusses Method of VB Calling ANSYS and MATLAB in Calculation,and introbute how to develop system,key of program and it's application.Key words:VB;Ansys;MatlabANSYS 软件在工程上的应用相当广泛。

APDL 是ANSYS 的一种专用语言,允许复杂的数据输入,能实现有限元模型的建模、加载、求解和后处理等功能,但APDL 本质上不是具有集成化开发环境的高级语言,其可视化程度差、开发过程不直观,因而给对APDL 语言不熟悉的科技人员利用ANSYS 软件从事参数化建模带来一定的困难[1-3]。

VB调用ANSYS软件的实现*主要思想：VB为ANSYS应用的自动化提供了可视化操作平台，可用于参数化编程等应用。

其基本原理是，VB通过其内部函数shell（）函数实现对Windows应用程序的调用。

利用VB向打开的ANSYS程序写入APDL文件，实现对ANSYS的控制。

对ANSYS调用的具体代码及注释：Option Explicit‘变量强制定义控制语句Private Sub Command1_Click()‘进入Command1_Click()事件过程Dim aa‘定义一变量，用来存放shell()函数的返回值，shell带括号时必须有‘变量存放其返回值，不带参数是不需要aa=Shell("C:\Program Files\ANSYS Inc\v110\ANSYS\bin\intel\ANSYS.exe -b -p ane3fl -i shi.txt -o sh.log", 1)‘shell函数调用ANSYS的语句，最关键语句，详解见下文Timer1.Enabled = True‘使用Timer控件，实现对调用结果的检测End SubPrivate Sub Timer1_Timer()If Dir(App.Path & "\file.err") <> "" Then‘App.Path为当前目录路径，语句功能：如果有file.err文件产生，‘则说明VB的shell函数对ANSYS的调用成功。

MsgBox ("ANSYS运行完毕！")End IfTimer1.Enabled = FalseEnd Sub*对语句shell（……，1）的说明：aa=Shell("C:\Program Files\ANSYS Inc\v110\ANSYS\bin\intel\ANSYS.exe -b -p ane3fl -i shi.txt -o sh.log", 1)说明：* 变量aa只是用来存放shell函数的返回值* C:\Program Files\ANSYS Inc\v110\ANSYS\bin\intel\ANSYS.exe 为ANSYS的安装目录。

使用程序自动调用ANSYS并运行命令流文件-王学福的专栏-
CSDNBlog
使用程序自动调用ANSYS并运行命令流文件
用WINEXEC函数，可以这样启动ANSYS
WinExec("D:\\Program Files\\Ansys Inc\\v90\\ANSYS\\bin\\intel\\ANSYS90.exe",1);
关键是要在你的程序运行目录下（与你的EXE文件在同一目录）建立start90.ans（如果是8.0就用start80.ans），文件里加上这句/input,E:\awxfAnsys\T1-A1-C1\500-2_UP,mac
/input命令请查询帮助
ANSYS在启动时会自动读这个文件，很多设置可以加到这里来
start90.ans除了可以放到程序运行目录下，还可以放到工作目录，和ANSYS系统目录
具体清查帮助
在网上搜到一篇关于这方面的文章，里面说要改注册表，还要用CreateProcess，挺麻烦
我找到了这个方法，共享一下。

哦，还可以用不带GUI的方式，可以运行批处理命令如下：
"D:\Program Files\Ansys Inc\v90\ANSYS\bin\intel\ANSYS90.exe " -b -i E:\awxfAnsys\T1-A1-C1\500-2_UP.mac -o E:\awxfAnsys\T1-A1-C1\111.mac。