CST中这个天线模型怎么画？

来源：更新时间：2024-07-25 阅读：

这个天线的尺寸是这样的，h1=5.0cm，h2=0.5cm，w=2.2cm，α=75°，β=110°,d=0.7cm，
线宽=1.58mm。但是角度用正弦或余弦都是算不尽的，那么尺寸怎么确定啊？都是不规则的数据我不会画啊。高手指点啊！：17de

坐标输入支持常用函数输入

只需要画一半另外一半用镜象就可以了

:11bb

by.cst

Sub Main ()
'@ new curve: curve1
Curve.NewCurve "curve1"
'@ define curve polygon: curve1:polygon1
With Polygon
.Reset
.Name "polygon1"
.Curve "curve1"
.Point "0", "0"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+b"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+b+d/tanD(beta)"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+2*b-d/tanD(beta)"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+2*b"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+3*b"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+3*b+d/tanD(beta)"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+4*b-d/tanD(beta)"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+4*b"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+5*b"
.LineTo "0", "w*sinD(a)/2+5*b"
.LineTo "0", "0"
.Create
End With
'@ new component: component1
Component.New "component1"
'@ define coverprofile: component1:solid1
With CoverCurve
.Reset
.Name "solid1"
.Component "component1"
.Material "PEC"
.Curve "curve1:polygon1"
.Create
End With
'@ transform: mirror component1:solid1
With Transform
.Reset
.Name "component1:solid1"
.Origin "Free"
.Center "0", "0", "0"
.PlaneNormal "1", "0", "0"
.MultipleObjects "True"
.GroupObjects "True"
.Repetitions "1"
.MultipleSelection "False"
.Component ""
.Material ""
.MirrorAdvanced
End With
End Sub