ANSYS二次开发的研究

··收稿日期：20071203作者简介：(197)ANSYSANSYS二次开发的研究王炎欢315040ANSYSAPIVCVBDelphiANSYSANSYSAPIDelphiResearchonthesecondarydevelopmenttechnologyofANSYSWANGYan-huan(NingboYunshengHigh-techAcademyNingbo315040China)AbstractResearchingonthesecondarydevelopmentofANSYS,proposesanewAPIdevelopmentway.WecannotonlyprogramthefriendlyinterfacebyVC,VB,Delphi,butalsocanreal-timecontrolANSYS.KeywordsANSYSsecondarydevelopmentAPIDelphiANSYSANSYSANSYS[1]1ANSYS常规开发方式ANSYSAPDLANSYSParametricDesignLanguageUIDLUserInterfaceDesignLanguageUPFsUserProgrammableFeatures1.1APDL开发APDLFORTRAN771000ANSYSANSYSANSYS1.2UIDL开发UIDLAPDLANSYSUIDLANSYSUIDL.GRN…\ANSYS\gui\en-us\UIDLANSYSUIMENU.GRNUIFUNC1.GRNUIFUNC2.GRN1.3UPFs开发ANSYSFORTRANANSYSFORTRANUPFsFORTRAN77ANSYS··ANSYSFORTRANCANSYSANSYS1.4ANSYS数据接口开发ANSYSLOGANSYS2其他编程语言的开发2.1VC、VB、Delphi语言开发VCVBDelphiAPDLANSYSAPDLDelphiANSYSpath:='D:\ProgramFiles\AnsysInc\v100\ANSYS\bin\intel\ansys100';ShellExecute(0,'Open',pchar(path),nil,nil,SW_SHO-WNORMAL);file.log2.2COM组件开发COMComponentObjectModelCOMDLLDynamicLinkLibraryDLLDLLCOMDLLCOMVCVBDELPHICOMANSYSANSYSDLLDLLANSYSDLLCOMANSYS2.3TCL/TKTCL/TKToolCommandLanguageANSYSANSYSCOM[2]ANSYSTCL/TKCTCL/TKANSYSAltairHyperMeshTCL/TKANSYSTCL/TKEuidlTK3API开发新途径WINDOWSAPIANSYSAPIApplicationProgrammingInterfaceWINDOWSWINDOWSWINDOWSAPIWINDOWSWINDOWSWINDOWSANSYSANSYSANSYS1VCVBDelphi2ANSYS3ANSYSANSYSANSYSDelphiAnsysHandle:=FindWindow(nil,pchar('ANSYSMultiphysicsUtilityMenu'));ifAnsysHandle0then//ANSYSbegin50··4CADCAM5CAMCAMCAPPCAMCAM2.4新一代CAM技术对生产与管理方式产生积极的影响CAMCAMCAMCADCADCAMShopProgrammingCAMCAMCAMCAMCAMCAMCAM﹑﹑﹑参考文献：[1].CAD/CAM[M].1999.[2].AD/CAM[M].1998.[3].CAD/CAM[M].1994.[4].CAD/CAM[M].2001.[5].CAD/CAM﹑[M]2000.[6].CAD/CAM[M].1998..47ShowWindow(hWnd,SW_Restore);//SimulateKey.SendKeyCode('AnsysCom');//SimulateKey//AnsysComSendKeyCodekeybd_event(VK_Return,0,0,0);//application.BringToFront;endelseMessageBox(self.handle,'ANSYS','',0);SimulateKeykeybd_eventAPILen:=length(AnsysCom);//AnsysComANSYS()fori:=1toLendobeginSinglestr:=copy(aString,i,1);//iKeyCode:=GetByteformStringt(Singlestr);//keybd_event(iKeyCode,0,0,0);//keybd_event(iKeyCode,0,KEYEVENTF_KEYUP,0);//end;4结束语ANSYSAPIVCVBDelphiANSYSANSYSANSYS参考文献：[1].ANSYS[M].2005.[2]BrentB.Welch.Tcl/Tk[M].2002.[3].[J].20067.