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

程序如下，知道的大侠指点啊
' 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是要怎么导出啊?谢谢！