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

程序如下，知道的大侠指点啊 -=aI!7*"$  
^;0.P)yGA  
8YJ8_$Z  
' Probes_Creator \(Uw.ri  
GQXN1R   
Sub Main () n
5i#GvO^  
wehZ7eqm  
'@ define probe: E-field (0.0 0.0 0.0) ,6U
lj+l  
5bZf$$b  
Dim cst_Probes_Pos As Double y>T:fu  
f6x}M9xS%  
Dim cst_Probes_Pos_string As String ]*a3J45  
Dim cst_Probes_Name As String bV_@
!KL$  
#Jt9U1WbF  
Gp.+&\vi  
For  cst_Probes_Pos = 0 To 10  STEP 5 ,"!t[4p=f  
ydOJ^Yty  
     cst_Probes_Pos_string = Format(CStr(cst_Probes_Pos),"0") au'Zjj/Ai5  
         cst_Probes_Name="E-field (0  0  " + cst_Probes_Pos_string +")" 5/<?Y&x  
HE0UcP1U  
With Probe 6T>e~<^  
     .Reset SXn\k;F<  
     .Name cst_Probes_Name c?;~Z  
     .Field "Efield" [!
E pv<G  
     .Orientation "All" zoYw[YP9  
     .Xpos "0" J1kG'cH05  
     .Ypos "0" :4]^PB@dl  
     .Zpos "cst_Probes_Pos" J%c4-'l  
     .Create %k(V 2]WF  
End With '&{`^l/MH  
y2
1zaQ  
Next cst_Probes_Pos <%fcs"Mb  
t><AaYij_  
End Sub tPh``o  
9mW95YI S  
J8[N!qDCj  
解决办法：见 hawk8969提供的简洁程序， 谢谢hawk8969 k^-HY[Q9  
W|_^Oe<  
你好像弄的挺复杂，我写了个简单的，请参考 ,B]kX/W  
Sub Main () a>jiq8d]4  
Dim i /*DC`,q  
IM:*uv  
u!TVvc  
For  i=5 To 10  STEP 1 m'&^\7;D  
=H&@9=D*  
With Probe FZTBvdUYp  
     .Reset Jsf-t  
     .Name "probe"&Str(i) iXpLcHi  
     .Field "Efield" A7!!kR":  
     .Orientation "All" Z)B5g>  
     .Xpos "0" S<"T:Y&  
 .. Qzbelt@Wx  
ydFZ$W_}w  

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

你好像弄的挺复杂，我写了个简单的，请参考 hiKgV|ZD  
Sub Main () gc|?
$aE  
Dim i "/v{B?~%!  
^(5Up=.EA  
dq$H^BB+>  
For  i=5 To 10  STEP 1 oZ%rzLH  

 XI+m  
With Probe G:TM k4  
     .Reset a`XXz  
     .Name "probe"&Str(i) wm>I;|gA)  
     .Field "Efield" 8 /3`rEW  
     .Orientation "All" x| jBn}  
     .Xpos "0" FM\yf]'  
     .Ypos "0" v[efM8  
     .Zpos Str(i) }[a  
     .Create P{qi>FJqe  
End With s&-m!|P  
^_dYE]t  
Next i $f`\TKlN  
End Sub

hawk8969，你这个程序帅气啊！英明神武！！ i|zs Li/  
%au2kG,  
多谢

History list里面的语言就是VBA语言，可以多多参考 Q>`|{m  
)?@X{AN&  
学过C语言基本就会编这个了，不难

u|(Ux~O  
你好。我想请教个问题。 M:R8<.{  
在我模拟的过程中需要设置许多个探针。得到时域的信号后，需要通过fft转换为频域的图，。我现在只会在后处理里先添加1D结果，再对1D结果进行处理，一个一个来，非常的麻烦。若是选择“+load multiple 1D Results”再选“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的进行FFt变换，选择“evaluate all”后，便会出现如下错误 fA"<MslKLK  
“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)”。..发帖太少，系统不让我发图片。。。。 \bU`  
因为我大约要设几十个probe，一个一个点的话实在是非常的麻烦，我想问问是需要修改“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的macro么？应该怎么改才能一下子对所有的信号分别进行傅里叶变换呢？ yJDeX1+,  
非常感谢

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

你先载入一个结果，FFT试试，没问题了再载入多个 x#H 3=YD*  
M.[
rLJZ4  
探针可以直接得到频域结果啊，你还要FFT干嘛

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

hawk8969:你好像弄的挺复杂，我写了个简单的，请参考 Xtz-\v#0o'  
Sub Main () )#a[-.OI  
Dim i
....... (2012-04-13 09:20)  hUQ,z7-  

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