CST或HFSS建模问题求教
时间:10-02
整理:3721RD
点击:
在HFSS或CST中沿着一条曲线的轨迹放置(或复制)几根金属柱,这个模型该怎么建立呢?
VBA复制移动
'#Language "WWB-COM"
Option Explicit
Sub Main
Dim x As Double, y As Double
For x = 0 To 10 STEP 0.5
y= Sin(x)
With Transform
.Reset
.Name "component1:solid1"
.Vector x, y, "0"
.UsePickedPoints "False"
.InvertPickedPoints "False"
.MultipleObjects "True"
.GroupObjects "False"
.Repetitions "1"
.MultipleSelection "False"
.Destination ""
.Material ""
.Transform "Shape", "Translate"
End With
Next x
End Sub
有币,碰碰运气。
...........................
洪荒之力,来吧
使用脚本语言吧,用移动复制的命令
谢谢您的回复,能具体指导一下么,VBA不太会啊
如果不嫌麻烦的话,通过选中两个点一个一个进行复制。
例如,选中第一个圆柱底面圆心,再选中曲线上你要复制的下一个位置的点(如果可以选中的话),选中你要复制的圆柱,tranform--translate-- copy-- use picked point,就可以成功复制了。
把试着把圆柱位置设为中间变量,用曲线方程表达出来
移动变量用曲线方程给表达出来!
这样貌似是不行的
不行吧。
嗯嗯 这样是可以 虽然麻烦些,我还是用了脚本
把圆柱的圆心设置成变量,就是曲线方程,试试看
VBA复制移动
'#Language "WWB-COM"
Option Explicit
Sub Main
Dim x As Double, y As Double
For x = 0 To 10 STEP 0.5
y= Sin(x)
With Transform
.Reset
.Name "component1:solid1"
.Vector x, y, "0"
.UsePickedPoints "False"
.InvertPickedPoints "False"
.MultipleObjects "True"
.GroupObjects "False"
.Repetitions "1"
.MultipleSelection "False"
.Destination ""
.Material ""
.Transform "Shape", "Translate"
End With
Next x
End Sub
这个不好描述,回复到帖子中的一段代码,你看看吧。
六楼的方法应该可行,小编试了没?
嗯嗯 多谢你的热心帮助
是可以的,多谢关注
高手高手高高手啊。