Altium脚本开发 分形天线设计
Altium脚本开发 分形天线设计
程序运行界面
Cantor三分集
Koch雪花
Sierpinski垫片
源代码参考：
Iter_Num = 4 'diedai
PI = 3.1415926
‘启动PCB服务器
Call Client.StartServer("PCB")
PcbFileName = "PCB1.PcbDoc"
Set Document = Client.OpenDocument("PCB", PcbFileName)
If Not (Document Is Nothing) Then
'Add this schematic sheet in the newly created PCB project in DXP.
Set Workspace = GetWorkspace
If Not (Workspace Is Nothing) Then
Workspace.DM_FocusedProject.DM_AddSourceDocument(Document.FileName)
End If
Client.ShowDocument(Document)
End If
’画直线函数
'Draw Line Function
Sub Paint_Line(x1,y1,x2,y2)
Dim Board
Dim Track
Set Board = PCBServer.GetCurrentPCBBoard
Track = PCBServer.PCBObjectFactory(eTrackObject,eNoDimension,eCreate_Default)
Track.X1 = MilsToRealCoord(CLng(x1)+Board.GetState_XOrigin/10000)
Track.Y1 = MilsToRealCoord(CLng(y1)+Board.GetState_XOrigin/10000)
Track.X2 = MilsToRealCoord(CLng(x2)+Board.GetState_XOrigin/10000)
Track.Y2 = MilsToRealCoord(CLng(y2)+Board.GetState_XOrigin/10000)
Track.Layer = eTopLayer
Track.Width = MilsToCoord (10)
Board.AddPCBObject(Track)
Board.LayerIsDisplayed(ALayer) = True
End Sub
'画矩形框函数
'Draw rectangle Function
Sub Paint_Rectangle(x1,y1,x2,y2)
call Paint_Line(x1,y1,x2,y1)
call Paint_Line(x1,y1,x1,y2)
call Paint_Line(x1,y2,x2,y2)
call Paint_Line(x2,y1,x2,y2)
End Sub
'刷新显示界面
Sub Action_Redraw()
Call Client.SendMessage("PCB:Zoom","Action=Redraw", 255, Client.CurrentView)
Call Client.SendMessage("PCB:Zoom","Action=All", 255, Client.CurrentView)
End Sub
'设置参考点
'SetState_Origin
Sub Set_Origin()
Set Board = PCBServer.GetCurrentPCBBoard
Board.SetState_YOrigin(40000000)
Board.SetState_XOrigin(40000000)
End Sub
‘将矩形框设置为PCB板大小
Sub Board_Shape()
Call AddStringParameter("Scope", "All")
RunProcess("PCB:Select")
Call AddStringParameter("Mode", "BOARDOUTLINE_FROM_SEL_PRIMS")
RunProcess("PCB:PlaceBoardOutline")
Call AddStringParameter("Size", "2.500MM")
RunProcess("PCB:SnapGrid")
Call AddStringParameter("MeasurementUnit", "Toggle")
RunProcess("PCB:DocumentPreferences")
End Sub
'控件响应函数
Sub CantorClick(Sender)
Board_chang = 100/0.0254
Board_kuan = 100/0.0254
Iter_Num = 5
call Set_Origin()
call Paint_Rectangle(0,0,Board_chang,Board_kuan)
Call Board_Shape()
Call Cantor_digui(0,0,Board_chang,0,Iter_Num)
Action_Redraw()
Close
End Sub
'三分集递归函数
Sub Cantor_digui(ax,ay,bx,by,m)
If m=1 Then
Call Paint_Line(ax,ay,bx,by)
Else
Call Paint_Line(ax,ay,bx,by)
cx=ax+(bx-ax)/3
cy=ay+100
dx=bx-(bx-ax)/3
dy=by+100
ay=ay+100
by=by+100
Call Cantor_digui(ax,ay,cx,cy,m-1)
Call Cantor_digui(dx,dy,bx,by,m-1)
End If
m=m-1
End Sub
Sub KochClick(Sender)
Board_chang = 100/0.0254
Board_kuan = 100/0.0254
m = Board_chang
‘迭代次数
Iter_Num = 11
call Set_Origin()
call Paint_Rectangle(0,0,Board_chang,Board_kuan)
Call Board_Shape()
Action_Redraw()
Call Fractal(m/2-sqr(3)/2*m/2,m/2+m/4,m/2+sqr(3)/2*m/2,m/2+m/4,Iter_Num)
Call Fractal(m/2,m/2-m/2,m/2-sqr(3)/2*m/2,m/2+m/4,Iter_Num)
Call Fractal(m/2+sqr(3)/2*m/2,m/2+m/4,m/2,m/2-m/2,Iter_Num)
Action_Redraw()
Close
End Sub
’科赫雪花迭代函数
Sub Fractal(ax,ay,bx,by,Iter_Num)
if Iter_Num = 1 Then
Call Paint_Line(ax,ay,bx,by)
else
cx=ax+(bx-ax)/3
cy=ay+(by-ay)/3
ex=bx-(bx-ax)/3
ey=by-(by-ay)/3
Call Fractal(ax,ay,cx,cy,Iter_Num-1)
Call Fractal(ex,ey,bx,by,Iter_Num-1)
l=sqr((ex-cx)*(ex-cx)+(ey-cy)*(ey-cy))
alfa=Atn((ey-cy)/(ex-cx))
if ((alfa>=0 And (ex-cx)<0) Or (alfa<0 And (ex-cx)<0)) Then
alfa=alfa+PI
End if
dx=cx+cos(alfa+PI/3)*l
dy=cy+sin(alfa+PI/3)*l
Call Fractal(cx,cy,dx,dy,Iter_Num-1)
Call Fractal(dx,dy,ex,ey,Iter_Num-1)
End If
End Sub
Sub ArboresentClick(Sender)
prate=1.5
theta=atn(sqr(4/prate/prate-1))
t=PI-4*theta
alfa=55*PI/180
leval=1
x=500
y=500
size1=3000
Call DrawArboresent(x,y,size1,prate,alfa,thata,t,lexel)
End Sub
Sub DrawArboresent(x,y,size1,prate,alfa,thata,t,lexel)
L_X=200
L_Y=300
l=size1/prate
xe=x
ye=y
xa=x+size1*cos(alfa)
ya=y+size1*sin(alfa)
xb=x+l*cos(alfa-theta)
yb=y+l*sin(alfa-theta)
xc=x+l*cos(alfa-theta-t)
yc=x+l*sin(alfa-theta-t)
xd=x+size1*cos(alfa-theta*2-t)
yd=x+size1*sin(alfa-theta*2-t)
if level<=1 Then
Call Paint_Line(L_X-xa/15,L_Y-ya/15,L_X-xe/15,L_Y-ye/15)
Call Paint_Line(L_X-xe/15,L_Y-ye/15,L_X-xd/15,L_Y-yd/15)
Call Paint_Line(L_X-xd/15,L_Y-yd/15,L_X-xc/15,L_Y-yc/15)
Call Paint_Line(L_X-xc/15,L_Y-yc/15,L_X-xe/15,L_Y-ye/15)
Call Paint_Line(L_X-xe/15,L_Y-ye/15,L_X-xb/15,L_Y-yb/15)
Call Paint_Line(L_X-xb/15,L_Y-yb/15,L_X-xa/15,L_Y-ya/15)
End if
Call DrawArboresent(xb,yb,l,prate,alfa-theta+pi,thata,t,lexel-1)
Call DrawArboresent(xc,yc,l,prate,alfa-theta+pi,thata,t,lexel-1)
End Sub
Sub LevyClick(Sender)
m = (100/0.0254)
call Set_Origin()
call Paint_Rectangle(0,0,m,m)
Call Board_Shape()
Call drawC(0,0,10000,0)
Action_Redraw()
Close()
End Sub
Sub drawC(x1,y1,x2,y2)
if (x2-x1)<5 Then
Call Paint_Line(x1,y1,x2,y2)
else
Call Paint_Line(x1,y1,x2,y2)
x3=(x1+y1+x2-y2)/2
y3=(x2+y2+y1-x1)/2
Call Paint_Line(x1,y1,x3,y3)
Call Paint_Line(x3,y3,x2,y2)
Call drawC(x1,y1,x3,y3)
Call drawC(x3,y3,x2,y2)
End if
End Sub
Sub SierpinskiClick(Sender)
m = (100/0.0254)
Iter_Num = 7
call Set_Origin
call Paint_Rectangle(0,0,m,m)
Call Board_Shape()
Action_Redraw()
Call Sier(0,0,m,m,Iter_Num)
Action_Redraw()
Close()
End Sub
kkk=1
Sub Sier(x1,y1,x2,y2,k)
L=x2-x1
W=y2-y1
Set Board = PCBServer.GetCurrentPCBBoard
Region = PCBServer.PCBObjectFactory(eRegionObject, eNoDimension,eCreate_Default)
Contour = Region.MainContour.Replicate
Region.Layer = eTopLayer
Contour.Count = 4
if k=1 Then
Contour.X(1) = MilsToCoord(x1+L/3)
Contour.Y(1) = MilsToCoord(y1+W/3)
Contour.X(2) = MilsToCoord(x2-L/3)
Contour.Y(2) = MilsToCoord(y1+W/3)
Contour.X(3) = MilsToCoord(x2-L/3)
Contour.Y(3) = MilsToCoord(y2-W/3)
Contour.X(4) = MilsToCoord(x1+L/3)
Contour.Y(4) = MilsToCoord(y2-W/3)
Call Contour.Translate(MilsToCoord(4000), MilsToCoord(4000))
Region.SetOutlineContour(Contour)
Region.Kind = 1
Board.AddPCBObject(Region)
else
Contour.X(1) = MilsToCoord(x1+L/3)
Contour.Y(1) = MilsToCoord(y1+W/3)
Contour.X(2) = MilsToCoord(x2-L/3)
Contour.Y(2) = MilsToCoord(y1+W/3)
Contour.X(3) = MilsToCoord(x2-L/3)
Contour.Y(3) = MilsToCoord(y2-W/3)
Contour.X(4) = MilsToCoord(x1+L/3)
Contour.Y(4) = MilsToCoord(y2-W/3)
Call Contour.Translate(MilsToCoord(4000), MilsToCoord(4000))
Region.SetOutlineContour(Contour)
Region.Kind = 1
Board.AddPCBObject(Region)
Call Sier(x1,y1,x1+L/3,y1+W/3,k-1)
Call Sier(x1+L/3,y1,x2-L/3,y1+W/3,k-1)
Call Sier(x2-L/3,y1,x2,y1+W/3,k-1)
Call Sier(x1,y1+W/3,x1+L/3,y2-W/3,k-1)
Call Sier(x2-L/3,y1+W/3,x2,y2-W/3,k-1)
Call Sier(x1,y2-W/3,x1+L/3,y2,k-1)
Call Sier(x1+L/3,y2-W/3,x2-L/3,y2,k-1)
Call Sier(x2-L/3,y2-W/3,x2,y2,k-1)
End if
if kkk=1000 Then
Call Client.SendMessage("PCB:Zoom","Action=Redraw" , 255, Client.CurrentView)
kkk=1
End if
kkk=kkk+1
End Sub
