246201112JournalofSichuanUniversityofScience&EngineeringNaturalScienceEditionVol.24No.6Dec.20112011-10-28““2008BADC4B1510ZB0972009XJKRL002GK2010061985-E-mailjiahaiyang888@yahoo.com.cn1673-1549201106-0682-04VBANSYSFLUENT1126430002.610017VB、ANSYSFLUENT。VBAPDLJOURNALANSYS/FLUENT。ANSYS/FLUENT。。VBANSYSFLUENTTQ051.7A。ANSYS、1。ANSYS、、、。。AN-SYS/FLUENTAPDL。ANSYS/FLUENTANSYS/FLUENT。VB6.02。VBVB、ANSYSFLUENT、。ANSYS、FLUENTVBANSYSFLUENTFLUENT。VBAN-SYSFLUENTJOURNALVBANSYSFLUENT。、。1VB、ANSYSFLUENTANSYSAPDL3-4。VBAPDL3ANSYS、CDB。VBJOURNALFLUENTCDBVBANSYSFLUENT。1.1VBANSYSVBANSYSVBANSYSANSYSVBANSYSVBANSYSAPDL。VBANSYS、。。VB。。、、。。。“-.dat”dD_blade*0.5bH_blade*0.1….Cof_Th_Disc*Th_bladeCof_Th_blade*Th_centerCof_Th_center。“d”VBVBLabel“D_blade”Var-NameVarValueTextBox“*”。Label“*”“*”、“*”。VBANSYSANSYSAPDL1Print#1VarName=VarValueAPDL。VBANSYSAPDLANSYS。ANSYSANSYSPrint#1”resumeANSYS.DB”‘ANSYSPrint#1”/showjpeg”‘…‘Print#1”/showclose”‘VBANSYS。ANSYSVBANSYSAPDL。VBShellANSYSresult=Shell“ansys_path\ansys120.exe-g-b-ifile1-ofile2”。file1APDLfile2ansys_pathANSYS。ANSYSAPDL*createend_of_filemac*end”end_of_file.mac”VBANSYS。ANSYS、、VBAPDLANSYS。1.2VBFLUENTVBFLUENTVBANSYS386246VBANSYSFLUENTVBFLUENTJOURNAL。result=Shell“fluent_path\fluent3d-hidden-tp-ifile1-ofile2”FLUENT、、、、、、。hiddenFLUENT-tpp5-6file1VBJOUR-NALfile2fluent_pathFLUENT。FLUENT。VBFLUENT“Ctrl+C”。VBcmd2=Chr34&iffile-exists\&Chr34&test_file\&Chr34&cmd3=ti-menu-load-string\&Chr34&firemend_Fluent.scm\&Chr34&&Chr34cmd1=/solve/excaddecm11&Chr34&it-eration&Chr34&Print1cmd1&cmd2&cmd3JOURNALExecuteCommandsiffile-existstest_fileti-menu-load-stringfiremend_Fluent.scm。VB“test_file”Fluent“end_Fluent.scm”。“end_Fluent.scm”ti-menu-load-stringfiwcdfileyesexitfileFLUENT。FLUENT。1.3ANSYSFLUENTCAD/CAEFLUENTCAD/CAEFLUENT。ANSYSallselallcdwritedbfilname.cdbFLUENTfile/imp/mech/input/filename.cdb。2。APDL。。10%。7.5%。。1000mm1200mm645500mm10.00103pa.s20.02pa.s1998.2kg/m32996kg/m3d=250300350400mm。1200mm12/3。5r/min7.5%1。VB、FLUENTANSYSFLUENT。VBANSYSFLUENT。ANSYSFLUENT。1、kg/m3d/Dw0.25952.5059470.3651.8369399960.35501.5730760.4300.625173VB、ANSYSFLUENTVB、486201112。1.VBANSYSMATLABJ.2006.2211-13.2.VBANSYSJ.2008.2112-13.3.ANSYSM.2009.4ANSYS12.0DocumenttationZ.5.J.20112335-37.6.FLUENTM..2010.ParametericDesignofStirredTankThroughInvokingANSYSandFLUENTBasedonVBJIAHai-yangTANKke-lunYANXin1.SchoolofMechanicalEngineeringSichuanUniversityofScience&EngineeringZigong643000China2.ChengduRoadandBridgeManagementChengdu610017ChinaAbstractAmethodofapplyingVBANSYSandFLUENTtosolvethestirrerparametricproblemsisintroduced.WiththeapplicationofVBvisualparametersinterfaceisrealizedwhichgenerateAPDLandJOURNALcodeautomaticallyandthenrunANSYSandFLUENTsoftwaresothatthemodelingandnumericalsimulatingofstirrercanberealized.ThismethodgreatlyreducesthedifficultyoftheapplicationofANSYS/FLUENTandraisestheefficiencyoftheblenderflowfield.Fi-nallytakingthediscturbinemixerasexamplethesuperiorityofthemethodisverified.KeywordsVBANSYSFLUENTstirrerparameterization586246VBANSYSFLUENT