CST Probes VBA為什么參數(shù)變化不能賦給位置？

程序如下，知道的大俠指點啊
' 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
Fori=5 To 10STEP 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轉(zhuǎn)換為頻域的圖，。我現(xiàn)在只會在后處理里先添加1D結(jié)果，再對1D結(jié)果進行處理，一個一個來，非常的麻煩。若是選擇“+load multiple 1D Results”再選“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的進行FFt變換，選擇“evaluate all”后，便會出現(xiàn)如下錯誤
“Template based postprocessing result “All 1D results probes H-field probe signals/-fftam”: Error in calling "evaluate1D" function (Unable to read result file: C:usersquandesktop123resultall 1D Results Probes H-field probe signals.rd1)”。..發(fā)帖太少，系統(tǒng)不讓我發(fā)圖片。
因為我大約要設幾十個probe，一個一個點的話實在是非常的麻煩，我想問問是需要修改“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的macro么？應該怎么改才能一下子對所有的信號分別進行傅里葉變換呢？
非常感謝

⊙﹏⊙b汗，居然發(fā)出圖片了。真糾結(jié)。

你先載入一個結(jié)果，F(xiàn)FT試試，沒問題了再載入多個
探針可以直接得到頻域結(jié)果啊，你還要FFT干嘛

剛看見你的回復。一個結(jié)果是可以用fft的，但是用那個載入多個的以后，就不可以fft了，探針可以直接得到頻域結(jié)果么？我剛才看了一下。沒找到。，求指教。

請教hawk8969個問題啊。怎么用VBA導出CST里1D Results里Probe里的數(shù)據(jù)啊，我看了help里的介紹，用這個語句Set Exc = mws.Result1D("probe_s(E1(1))")導不出來啊。
這個CST里1D results里的Probe的數(shù)據(jù)用VBA是要怎么導出??？謝謝！