Question

VB调用ANSYS详细说明，只有APDL命令流，本人VB新手，所以请VB方面说的详细点，ansys随意

可以加分，回答好的可以加很多分，说到做到，分很多，没地花
可以加qq 414571784 ，详谈，分照给，代做论文的就不要留言了

Answer 1

你应该能从网上找到一大堆资料，我现在正做着呢，给你一个简单的：
Private Sub Command1_Click()
Open "E:\ANSYS\ansys\UIDL\creat.mac" For Output As #1
Print #1, "fini"
Print #1, "/cle,start"
Print #1, "/filname,"; Text12.Text
Print #1, "/PREP7"
Print #1, "/VIEW,1,1,1,1"
Print #1, "/ANG, 1 ,-120.000000,ZS,1"
Print #1, "canshu.mac"
Print #1, "H="; Text1.Text
Print #1, "I="; Text2.Text
Print #1, "J="; Text3.Text
Print #1, "N="; Text4.Text
Print #1, "K="; Text5.Text
Print #1, "M="; Text6.Text
Print #1, "L="; Text7.Text
Print #1, "o="; Text11.Text
Print #1, "P="; Text13.Text
Print #1, "Q="; Text14.Text
Print #1, "R="; Text15.Text
Print #1, "S="; Text16.Text
Print #1, "T="; Text23.Text
Print #1, "U="; Text24.Text
Print #1, "V="; Text25.Text
Print #1, "W="; Text26.Text
Print #1, "X="; Text27.Text
Print #1, "Y="; Text28.Text
Print #1, "sect,1,shell,,"
Print #1, "secdata , K/20, 1, 0, 3"
Print #1, "secdata , K/20, 2, 0, 3"
Print #1, "secdata , K/20, 3, 0, 3"
Print #1, "secdata , K/20, 4, 0, 3"
Print #1, "secdata , K/20, 5, 0, 3"
Print #1, "secdata , K/20, 6, 0, 3"
Print #1, "secdata , K/20, 7, 0, 3"
Print #1, "secdata , K/20, 8, 0, 3"
Print #1, "secdata , K/20, 9, 0, 3"
Print #1, "secdata , K/20, 10, 0, 3"
Print #1, "secdata , K/20, 11, 0, 3"
Print #1, "secdata , K/20, 12, 0, 3"
Print #1, "secdata , K/20, 13, 0, 3"
Print #1, "secdata , K/20, 14, 0, 3"
Print #1, "secdata , K/20, 15, 0, 3"
Print #1, "secdata , K/20, 16, 0, 3"
Print #1, "secdata , K/20, 17, 0, 3"
Print #1, "secdata , K/20, 18, 0, 3"
Print #1, "secdata , K/20, 19, 0, 3"
Print #1, "secdata , K/20, 20, 0, 3"
Print #1, "secoffset , Mid"
Print #1, "seccontrol,,,, , , ,"
Print #1, "secnum,1"
Print #1, "WPROTA,,90,"
Print #1, "RECTING,,I,,J"
Print #1, "WPCSYS,0"
Print #1, "WPROTA,,90,"
Print #1, "WPOFF,,,-H"
Print #1, "RECTING,,I,,J"
Print #1, "WPCSYS,0"
Print #1, "WPROTA,,,90"
Print #1, "WPOFF,-J,,"
Print #1, "RECTING,,J,,H"
Print #1, "WPCSYS,0"
Print #1, "WPROTA,,,90"
Print #1, "WPOFF,-J,,"
Print #1, "WPOFF,,,I"
Print #1, "RECTING,,J,,H"
Print #1, "WPCSYS,0"
Print #1, "AGLUE,ALL"
Print #1, "asel,s,loc,z,"
Print #1, "DA,ALL,ALL"
Print #1, "ALLSEL,ALL "
Print #1, "aplot"
Close #1
End Sub