官方淘宝店 易迪拓培训 旧站入口
首页 > 仿真设计 > CST微波工作室 > CST Probes VBA为什么参数变化不能赋给位置?

CST Probes VBA为什么参数变化不能赋给位置?

05-08
程序如下,知道的大侠指点啊
' Probes_Creator
Sub Main ()
'@ define probe: E-field (0.0 0.0 0.0)
Dim cst_Probes_Pos As Double
Dim cst_Probes_Pos_string As String
Dim cst_Probes_Name As String
For  cst_Probes_Pos = 0 To 10  STEP 5
     cst_Probes_Pos_string = Format(CStr(cst_Probes_Pos),"0")
         cst_Probes_Name="E-field (0  0  " + cst_Probes_Pos_string +")"
With Probe
     .Reset
     .Name cst_Probes_Name
     .Field "Efield"
     .Orientation "All"
     .Xpos "0"
     .Ypos "0"
     .Zpos "cst_Probes_Pos"
     .Create
End With
Next cst_Probes_Pos
End Sub
解决办法:见 hawk8969提供的简洁程序, 谢谢hawk8969
你好像弄的挺复杂,我写了个简单的,请参考
Sub Main ()
Dim i
For  i=5 To 10  STEP 1
With Probe
     .Reset
     .Name "probe"&Str(i)
     .Field "Efield"
     .Orientation "All"
     .Xpos "0"
     .Ypos "0"
     .Zpos Str(i)
     .Create
End With
Next i
End Sub

你好像弄的挺复杂,我写了个简单的,请参考
Sub Main ()
Dim i
For  i=5 To 10  STEP 1
With Probe
     .Reset
     .Name "probe"&Str(i)
     .Field "Efield"
     .Orientation "All"
     .Xpos "0"
     .Ypos "0"
     .Zpos Str(i)
     .Create
End With
Next i
End Sub

hawk8969,你这个程序帅气啊!英明神武!
多谢

History list里面的语言就是VBA语言,可以多多参考
学过C语言基本就会编这个了,不难

你好。我想请教个问题。
在我模拟的过程中需要设置许多个探针。得到时域的信号后,需要通过fft转换为频域的图,。我现在只会在后处理里先添加1D结果,再对1D结果进行处理,一个一个来,非常的麻烦。若是选择“+load multiple 1D Results”再选“+1D Result from 1D Result (Rescale xy,fft,derivation,etc)”的进行FFt变换,选择“evaluate all”后,便会出现如下错误
“Template based postprocessing result “All 1D results probes H-field probe signals/-fftam”: Error in calling "evaluate1D" function (Unable to read result file: C:\users\quan\desktop\123\result\all 1D Results Probes H-field probe signals.rd1)”。..发帖太少,系统不让我发图片。
因为我大约要设几十个probe,一个一个点的话实在是非常的麻烦,我想问问是需要修改“+1D Result from 1D Result (Rescale xy,fft,derivation,etc)”的macro么?应该怎么改才能一下子对所有的信号分别进行傅里叶变换呢?
非常感谢


⊙﹏⊙b汗,居然发出图片了。真纠结。

你先载入一个结果,FFT试试,没问题了再载入多个
探针可以直接得到频域结果啊,你还要FFT干嘛

刚看见你的回复。一个结果是可以用fft的,但是用那个载入多个的以后,就不可以fft了,探针可以直接得到频域结果么?我刚才看了一下。没找到。,求指教。

请教hawk8969个问题啊。怎么用VBA导出CST里1D Results里Probe里的数据啊,我看了help里的介绍,用这个语句Set Exc = mws.Result1D("probe_s(E1(1))")导不出来啊。
这个CST里1D results里的Probe的数据用VBA是要怎么导出啊?谢谢!

Top