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

程序如下，知道的大俠指點(diǎn)啊
' 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提供的簡(jiǎn)潔程序， 謝謝hawk8969
你好像弄的挺復(fù)雜，我寫了個(gè)簡(jiǎn)單的，請(qǐng)參考
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

你好像弄的挺復(fù)雜，我寫了個(gè)簡(jiǎn)單的，請(qǐng)參考
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，你這個(gè)程序帥氣??！英明神武！
多謝

History list里面的語(yǔ)言就是VBA語(yǔ)言，可以多多參考
學(xué)過(guò)C語(yǔ)言基本就會(huì)編這個(gè)了，不難

你好。我想請(qǐng)教個(gè)問(wèn)題。
在我模擬的過(guò)程中需要設(shè)置許多個(gè)探針。得到時(shí)域的信號(hào)后，需要通過(guò)fft轉(zhuǎn)換為頻域的圖，。我現(xiàn)在只會(huì)在后處理里先添加1D結(jié)果，再對(duì)1D結(jié)果進(jìn)行處理，一個(gè)一個(gè)來(lái)，非常的麻煩。若是選擇“+load multiple 1D Results”再選“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的進(jìn)行FFt變換，選擇“evaluate all”后，便會(huì)出現(xiàn)如下錯(cuò)誤
“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ā)圖片。
因?yàn)槲掖蠹s要設(shè)幾十個(gè)probe，一個(gè)一個(gè)點(diǎn)的話實(shí)在是非常的麻煩，我想問(wèn)問(wèn)是需要修改“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的macro么？應(yīng)該怎么改才能一下子對(duì)所有的信號(hào)分別進(jìn)行傅里葉變換呢？
非常感謝

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

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

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

請(qǐng)教hawk8969個(gè)問(wèn)題啊。怎么用VBA導(dǎo)出CST里1D Results里Probe里的數(shù)據(jù)啊，我看了help里的介紹，用這個(gè)語(yǔ)句Set Exc = mws.Result1D("probe_s(E1(1))")導(dǎo)不出來(lái)啊。
這個(gè)CST里1D results里的Probe的數(shù)據(jù)用VBA是要怎么導(dǎo)出??？謝謝！