2541阅读
12回复

VBA and Matlab的文件夹一份

UID ：88812

注册：2012-02-20
登录：2015-02-16
发帖：425
等级：积极交流四级

0楼发表于: 2013-06-22 16:48:04

这几天在学excel控制CST，然后不知怎么的现在CST给的demo例子也运行不了，所以求一份CST/Examples/MWS/VBA and Matlab里的Excel 文件夹一份。这几天论坛好像下不了东西，麻烦能发我邮箱吗？谢谢！ ..

未注册仅能浏览部分内容，查看全部内容及附件请先登录或注册

信自己！

离线zhmizy

UID ：105779

注册：2013-03-21
登录：2020-05-22
发帖：152
等级：仿真二级

1楼发表于: 2013-09-09 22:05:18

LZ，有资料吗？求同

离线loloxy

UID ：88812

注册：2012-02-20
登录：2015-02-16
发帖：425
等级：积极交流四级

2楼发表于: 2013-09-10 09:55:57

回 zhmizy 的帖子

zhmizy:LZ，有资料吗？求同 (2013-09-09 22:05) DQE.;0ld

我看那个HELP的那有

信自己！

离线zhmizy

UID ：105779

注册：2013-03-21
登录：2020-05-22
发帖：152
等级：仿真二级

3楼发表于: 2013-09-11 00:02:17

en,多谢了，上面不是很全面。想要一个完整的例子！

内容来自[短消息]

离线loloxy

UID ：88812

注册：2012-02-20
登录：2015-02-16
发帖：425
等级：积极交流四级

4楼发表于: 2013-09-13 09:24:18

回 zhmizy 的帖子

zhmizy:en,多谢了，上面不是很全面。想要一个完整的例子！
内容来自[短消息] (2013-09-11 00:02) S;0z%$y

你是要做什么的例子？我只编了个很小的用VBA存储仿真结果的。

信自己！

离线zhmizy

UID ：105779

注册：2013-03-21
登录：2020-05-22
发帖：152
等级：仿真二级

5楼发表于: 2013-09-13 12:04:31

我想用VBA编程，实现ＣＳＴ的批处理。包括模型导入（或建模）、参数设置、网格设置、仿真结果存储等。

内容来自[短消息]

离线loloxy

UID ：88812

注册：2012-02-20
登录：2015-02-16
发帖：425
等级：积极交流四级

6楼发表于: 2013-09-17 10:36:31

回 zhmizy 的帖子

zhmizy:我想用VBA编程，实现ＣＳＴ的批处理。包括模型导入（或建模）、参数设置、网格设置、仿真结果存储等。
内容来自[短消息] (2013-09-13 12:04) W|Sab$h

我就做了仿真结果存储，其他的没做。

信自己！

离线zhmizy

UID ：105779

注册：2013-03-21
登录：2020-05-22
发帖：152
等级：仿真二级

7楼发表于: 2013-09-17 15:48:45

你好，您把仿真结果存储的程序发给我看看可以吗，我邮箱693774279@qq.com。我在论坛上下了个VBA例子运行了一下，可以仿真出结果。但是另存储有问题，另存的文件没有模型和数据。一个人的力量有限，想和大家讨论下。

Option Explicit

Dim studio As Object
Dim ems As Object

Dim a As Integer

Sub main()

a = 30
'Call read

Set studio = CreateObject("CSTStudio.Application")
Set ems = studio.NewEMS

With ems.Units
     .Geometry "mm"
     .Frequency "Hz"
End With

With ems.Background
     .Type "Normal"
     .Epsilon "1.0"
     .Mue "1.0"
     .XminSpace "0.0"
     .XmaxSpace "0.0"
     .YminSpace "0.0"
     .YmaxSpace "0.0"
     .ZminSpace "0.0"
     .ZmaxSpace "0.0"
End With

With ems.mesh
     .MeshType "Tetrahedral"
     .UseRatioLimit "True"
     .RatioLimit "50"
     .SetAutomeshRefineDielectricsType "None"
     .MaterialRefinementTet "False"
     .MinimumStepNumber "20"
     .MinimumStepNumberTet "5"
     .SurfaceOptimization "True"
     .SurfaceSmoothing "3"
     .MinimumCurvatureRefinement "100"
     .CurvatureRefinementFactor "0.05"
     .SmallFeatureSize "0.0"
     .VolumeOptimization "True"
     .VolumeSmoothing "True"
     .DensityTransitions "0.8"
     .Automesh "True"
End With

With ems.Boundary
     .Xmin "electric"
     .Xmax "electric"
     .Ymin "electric"
     .Ymax "electric"
     .Zmin "electric"
     .Zmax "electric"
End With

With ems.VectorPlot3D
     .Objects 2000
End With

With ems.VectorPlot2D
     .Arrows 1000
End With

'ChangeProblemType "lf:fd"

With ems.Units
     .Geometry "cm"
     .Frequency "Hz"
     .Time "s"
     .TemperatureUnit "Kelvin"
     .Voltage "V"
     .Current "A"
     .Resistance "Ohm"
     .Conductance "S"
     .Capacitance "PikoF"
     .Inductance "NanoH"
End With

With ems.Background
     .Reset
     .Type "Normal"
     .Epsilon "1.0"
     .Mue "1.0"
     .ElConductivity "0.0"
     .ThermalType "Normal"
     .ThermalConductivity "0.0"
     .HeatCapacity "0.0"
     .Rho "0.0"
     .XminSpace "100"
     .XmaxSpace "100"
     .YminSpace "100"
     .YmaxSpace "100"
     .ZminSpace "100"
     .ZmaxSpace "100"
     .ApplyInAllDirections "True"
End With

With ems.Boundary
     .Xmin "expanded lf open"
     .Xmax "expanded lf open"
     .Ymin "expanded lf open"
     .Ymax "expanded lf open"
     .Zmin "expanded lf open"
     .Zmax "expanded lf open"
     .Xsymmetry "none"
     .Ysymmetry "none"
     .Zsymmetry "none"
     .XminThermal "isothermal"
     .XmaxThermal "isothermal"
     .YminThermal "isothermal"
     .YmaxThermal "isothermal"
     .ZminThermal "isothermal"
     .ZmaxThermal "isothermal"
     .XsymmetryThermal "none"
     .YsymmetryThermal "none"
     .ZsymmetryThermal "none"
     .ApplyInAllDirections "True"
     .XminTemperature ""
     .XminTemperatureType "None"
     .XmaxTemperature ""
     .XmaxTemperatureType "None"
     .YminTemperature ""
     .YminTemperatureType "None"
     .YmaxTemperature ""
     .YmaxTemperatureType "None"
     .ZminTemperature ""
     .ZminTemperatureType "None"
     .ZmaxTemperature ""
     .ZmaxTemperatureType "None"
End With

With ems.Circle
     .Reset
     .Name "circle1"
     .Curve "curve1"
     .Radius a
     .Xcenter "0"
     .Ycenter "0"
     .Segments "0"
     .Create
End With

With ems.CurrentPath
     .Reset
     .Name "path1"
     .Type "CurvePath"
     .Current "1"
     .Phase "0.0"
     .Curve "curve1:circle1"
     .Add
End With

'ChangeProblemType "Low Frequency"

With ems.MStaticSolver
     .Reset
     .Method "Tetrahedral Mesh"
     .Accuracy "1e-4"
     .MaxLinIter "0"
     .Preconditioner "ILU"
     .NlinCycles "200"
     .NlinAccuracy "1e-3"
     .CalcInductanceMatrix "False"
     .StoreResultsInCache "False"
     .MeshAdaption "False"
     .PrecomputeStationaryCurrentSource "False"
     .IgnorePECMaterial "False"
     .GridLocation "Dual"
     .LSESolverType "Auto"
     .TetSolverOrder "2"
     .TetAdaption "True"
     .TetAdaptionMinCycles "2"
     .TetAdaptionMaxCycles "6"
     .TetAdaptionAccuracy "0.01"
     .TetAdaptionRefinementPercentage "10"
     .SnapToGeometry "True"
     .UseMaxNumberOfThreads "True"
     .MaxNumberOfThreads "32"
     .UseDistributedComputing "False"
End With

ems.SaveAs "F:\test.cst", False
'ems.Quit

Set studio = Nothing

With ems.mesh
     .UseRatioLimit "True"
     .RatioLimit "20000.0"
     .LinesPerWavelength "2000000"
     .MinimumStepNumber "100"
     .Automesh "True"
     .MeshType "PBA"
     .SetCreator "Low Frequency"
End With

With ems.MStaticSolver
    .MeshAdaption "False"
    .Start
End With

With ems.ResultTree
    .Name "My FieldView\B_Field"   ' Entry name and destination folder
    .File "^field_sh_b.m3d"              ' Result file name
    .Type "Bfield3D"
    .Add
End With
ems.SelectTreeItem ("My FieldView\B_Field\Abs")

End Sub

内容来自[短消息]

离线loloxy

UID ：88812

注册：2012-02-20
登录：2015-02-16
发帖：425
等级：积极交流四级

8楼发表于: 2013-09-19 11:19:38

回 zhmizy 的帖子

zhmizy:你好，您把仿真结果存储的程序发给我看看可以吗，我邮箱693774279@qq.com。我在论坛上下了个VBA例子运行了一下，可以仿真出结果。但是另存储有问题，另存的文件没有模型和数据。一个人的力量有限，想和大家讨论下。
Option Explicit
Dim studio As Object ^j]"5@f
....... (2013-09-17 15:48) |~YhN'OJ

我把程序贴出来吧，我是把仿真结果存储到EXCEL里的，没有另存为文件，看对你有帮助不。
Sub main()
Dim finitial As Double
Dim ffinal As Double
Dim fdelt As Double
Range("B1").Select
finitial = ActiveCell.Value
Range("B2").Select
ffinal = ActiveCell.Value
Range("B3").Select
fdelt = ActiveCell.Value
Dim n_i As Double
n_i = Int((ffinal - finitial) / fdelt) + 1
' Next open a connection to CST DESIGN ENVIRONMENT
Dim ii As Integer
Dim Tl As Double
Dim Fy As Double

Dim studio As Object
Set studio = CreateObject("CSTStudio.Application")

Dim path As String
Dim fname As String
path = ActiveWorkbook.path
Dim mws As Object
Set mws = studio.OpenFile(path & "\lojiedigis1MHz_sinExcition.cst")

Dim k As Integer
k = 1 'k为记录写入excel的列

For ii = 1 To n_i
mws.DeleteResults
   Fy = finitial + (ii - 1) * fdelt
   'Tl = (1 / Fy)
   Tl = 2  'T1=2us表示频率分辨率为0.5MHz
mws.StoreParameter "Tt", Tl
mws.StoreParameter "Fe", Fy
mws.Rebuild
With mws.TimeSignal
     .Reset
     .Name "default"
     .SignalType "Sine step"
     .ProblemType "High Frequency"
     .Ttotal "Tt"
     .Phase "0.0"
     .Frequency "Fe"
     .RiseFactor "0.00001"
     .Create
End With
Application.DisplayAlerts = False

mws.solver.Start
mws.Save
Dim Exc As Object
Set Exc = mws.Result1D("i1(1)")

Dim Hz As Object

Set Hz = mws.Result1D("Hz(1).prs") '貌似可以了！

If ii > 1 Then
    k = k + 3
End If

'提取激励源Exc数据
Dim n As Integer
n = Exc.GetN
Dim iline As Integer
iline = 1
Dim j As Integer

For j = 0 To n - 1
    Dim x, y As Double
    x = Exc.GetX(j)
    y = Exc.GetY(j)

    Sheets("Exc").Activate
    Cells(iline, k) = x

    Cells(iline, k + 1) = y

    iline = iline + 1
Next j

'提取响应Hz数据
Dim nz As Integer
nz = Hz.GetN
Dim ilinez As Integer
ilinez = 1
Dim jz As Integer

For jz = 0 To nz - 1
    Dim xz, yz As Double
    xz = Hz.GetX(jz)
    yz = Hz.GetY(jz)

    Sheets("Hz").Activate
    Cells(ilinez, k) = xz

    Cells(ilinez, k + 1) = yz

    ilinez = ilinez + 1
Next jz

Sheets("sheet1").Activate

Next ii
studio.Quit
Set studio = Nothing

MsgBox "Simulation finished, all results have been updated."

End Sub

信自己！

离线loloxy

UID ：88812

注册：2012-02-20
登录：2015-02-16
发帖：425
等级：积极交流四级

9楼发表于: 2013-09-19 11:22:26

我没有另存为文件，只是把仿真结果提取出来存到EXCEL里了，那个存储的程序，我贴出来你看对你有帮助不。

Dim Exc As Object
Set Exc = mws.Result1D("i1(1)")
Dim Hz As Object
Set Hz = mws.Result1D("Hz(1).prs") '貌似可以了！
  If ii > 1 Then
    k = k + 3
End If
'提取激励源Exc数据
Dim n As Integer
n = Exc.GetN
Dim iline As Integer
iline = 1
Dim j As Integer
For j = 0 To n - 1
    Dim x, y As Double
    x = Exc.GetX(j)
    y = Exc.GetY(j)
    Sheets("Exc").Activate
    Cells(iline, k) = x
    Cells(iline, k + 1) = y
       iline = iline + 1
Next j

'提取响应Hz数据
Dim nz As Integer
nz = Hz.GetN
Dim ilinez As Integer
ilinez = 1
Dim jz As Integer
For jz = 0 To nz - 1
    Dim xz, yz As Double
    xz = Hz.GetX(jz)
    yz = Hz.GetY(jz)
    Sheets("Hz").Activate
    Cells(ilinez, k) = xz
    Cells(ilinez, k + 1) = yz
      ilinez = ilinez + 1
Next jz

信自己！

发帖回复