21ic电子技术开发论坛 › 综合技术交流 › EDA 技术 › 这板子，这条线画的牛屎。。跟蚊香一样。。高。。 ...
123下一页
返回列表 发新帖我要提问

这板子，这条线画的牛屎。。跟蚊香一样。。高。。

[复制链接]
11146|54
colala 发表于 2013-1-24 16:26 | 显示全部楼层
能点着吗？                     
回复

收藏 举报

xinyipcb 发表于 2013-1-25 19:14 | 显示全部楼层
这个牛。
回复

收藏 举报

funior 发表于 2013-1-28 17:00 | 显示全部楼层
要不要这个圈不是重点，牛的是这个
'....................................................

    Dim   Board
    DIM   xm,ym    'mouse coordinate

'-----------------------------------------------------------------------
Sub PlaceSpiralTrackFormCreate(Sender)

    Set Board = PCBServer.GetCurrentPCBBoard
    If Board is Nothing Then Exit Sub

    If Not Board.ChooseLocation(xm,ym,"Choose Spiral Track start location") Then
    End If

    xm = xm/10000               'convert to mils
    ym = ym/10000               '

    PlaceSpiralTrackForm.StartX.Text = xm
    PlaceSpiralTrackForm.StartY.Text = ym

   PlaceSpiralTrackForm.LayerListBox.Text = Layer2String(Board.CurrentLayer)    'get current layer

    If (Board.DisplayUnit) Then
       PlaceSpiralTrackForm.Metric.Checked = false
    Else
       PlaceSpiralTrackForm.Metric.Checked = true                   ' read 0 = Metric, 1 = Inch
    End If

    StartX.Color = RGB(236, 233, 216)
    StartY.Color = RGB(236, 233, 216)
    Spacing.Color = RGB(236, 233, 216)
    TrackWidth.Color = RGB(236, 233, 216)
    Loops.Color = RGB(236, 233, 216)
    ViaSize.Color = RGB(236, 233, 216)
    ViaHoleSize.Color = RGB(236, 233, 216)

End Sub
'-----------------------------------------------------------------------

Sub XPBitBtn1Click(Sender)

    DIM   ArcX1, ArcX2, ArcX3, ArcX4, ArcY1, ArcY2, ArcY3, ArcY4
    DIM   Layer, Radius, Spacing, Width, Offset, Temp
    Dim   Via, Track, Arc
    Dim   MouseX, MouseY

    If (Board.DisplayUnit) Then
       Metric.Checked = false
    Else
       Metric.Checked = true                   ' read 0 = Metric, 1 = Inch
    End If

    Width = TrackWidth.Text
    Spacing = (PlaceSpiralTrackForm.Spacing.Text)
    Temp = ((Spacing/1) + (Width/1))
    Offset = Temp/4
    Layer = String2Layer(LayerListBox.Text)
    MouseX = StartX.Text
    MouseY = StartY.Text

    ArcX1 = StartX.Text
    ArcY1 = StartY.Text + Offset
    ArcX2 = StartX.Text
    ArcY2 = StartY.Text
    ArcX3 = StartX.Text - Offset
    ArcY3 = StartY.Text
    ArcX4 = StartX.Text - Offset
    ArcY4 = StartY.Text + Offset

    Radius = (ViaSize.Text/2) + (Spacing/1) + (Width/2)

    PlaceSpiralTrackForm.Hide

    PCBServer.PreProcess

'Place Via
    Via           = PCBServer.PCBObjectFactory(eViaObject, eNoDimension, eCreate_Default)
    Via.X         = MilsToCoord(MouseX)
    Via.Y         = MilsToCoord(MouseY)
    Via.Size      = MilsToCoord(ViaSize.Text)
    Via.HoleSize  = MilsToCoord(ViaHoleSize.Text)
    Via.LowLayer  = eTopLayer
    Via.HighLayer = eBottomLayer
    Board.AddPCBObject(Via)

'Place 1st Arc to met start of sprial
       Arc = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
       Arc.XCenter    = MilsToCoord(StartX.Text/1)
       Arc.YCenter    = MilsToCoord((StartY.Text/1) + Radius/2)
       Arc.Layer      = Layer 'eTopLayer
       Arc.LineWidth  = MilsToCoord(Width/1)
       Arc.Radius     = MilsToCoord(Radius/2)
       Arc.StartAngle = 90
       Arc.EndAngle   = 270
       Board.AddPCBObject(Arc)

' LOOP once for every turn
    FOR p0 = 1 TO Loops.Text

'Place arc quadrant
       Arc = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
       Arc.LineWidth  = MilsToCoord(Width/1)
       Arc.XCenter    = MilsToCoord(ArcX2/1)
       Arc.YCenter    = MilsToCoord(ArcY2/1)
       Arc.Radius     = MilsToCoord(Radius/1)
       Arc.Layer      = Layer 'eTopLayer
       Arc.StartAngle = 0
       Arc.EndAngle   = 90
       Board.AddPCBObject(Arc)

       Radius = (Radius + Offset)

       Arc = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
       Arc.LineWidth  = MilsToCoord(Width/1)
       Arc.XCenter    = MilsToCoord(ArcX3/1)
       Arc.YCenter    = MilsToCoord(ArcY3/1)
       Arc.Radius     = MilsToCoord(Radius/1)
       Arc.Layer      = Layer 'eTopLayer
       Arc.StartAngle = 270
       Arc.EndAngle   = 0
       Board.AddPCBObject(Arc)

       Radius = (Radius + Offset)

       Arc = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
       Arc.LineWidth  = MilsToCoord(Width/1)
       Arc.XCenter    = MilsToCoord(ArcX4/1)
       Arc.YCenter    = MilsToCoord(ArcY4/1)
       Arc.Radius     = MilsToCoord(Radius/1)
       Arc.Layer      = Layer 'eTopLayer
       Arc.StartAngle = 180
       Arc.EndAngle   = 270
       Board.AddPCBObject(Arc)

       Radius = (Radius + Offset)

       Arc = PCBServer.PCBObjectFactory(eArcObject, eNoDimension, eCreate_Default)
       Arc.LineWidth  = MilsToCoord(Width/1)
       Arc.XCenter    = MilsToCoord(ArcX1/1)
       Arc.YCenter    = MilsToCoord(ArcY1/1)
       Arc.Radius     = MilsToCoord(Radius/1)
       Arc.Layer      = Layer 'eTopLayer
       Arc.StartAngle = 90
       Arc.EndAngle   = 180
       Board.AddPCBObject(Arc)

       Radius = (Radius + Offset)

    NEXT

   PCBServer.PostProcess
    ' Refresh PCB workspace.
    ResetParameters
    Call AddStringParameter("Action", "Redraw")
    RunProcess("PCB:Zoom")

  Close
End Sub

'-----------------------------------------------------------------------
Sub MetricClick(Sender)
    If    Metric.Checked Then
          StartX.Text = (StartX.Text / 39.37)
          StartY.Text = (StartY.Text / 39.37)
          ViaSize.Text = (ViaSize.Text / 39.37)
          ViaHoleSize.Text = (ViaHoleSize.Text / 39.37)
          Spacing.Text = (Spacing.Text / 39.37)
          TrackWidth.Text = (TrackWidth.Text / 39.37)
    Else
          StartX.Text = (StartX.Text * 39.37)
          StartY.Text = (StartY.Text * 39.37)
          ViaSize.Text = (ViaSize.Text * 39.37)
          ViaHoleSize.Text = (ViaHoleSize.Text * 39.37)
          Spacing.Text = (Spacing.Text * 39.37)
          TrackWidth.Text = (TrackWidth.Text * 39.37)
    End If

End Sub

'-----------------------------------------------------------------------
Sub Main
    PlaceSpiralTrackForm.showmodal
End Sub

'-----------------------------------------------------------------------
Sub XPBitBtn2Click(Sender)
    close
End Sub

回复

收藏 举报

qin552011373 发表于 2013-2-5 21:07 | 显示全部楼层
强大
回复

收藏 举报

GoldSunMonkey 发表于 2013-2-5 22:04 | 显示全部楼层
;P
回复

收藏 举报

jakfens 发表于 2013-2-5 22:40 | 显示全部楼层
这难道就是版图艺术？
回复

收藏 举报

GoldSunMonkey 发表于 2013-2-5 22:54 | 显示全部楼层
jakfens 发表于 2013-2-5 22:40
这难道就是版图艺术？

是呀，艺术
回复

收藏 举报

airwill 发表于 2013-2-6 07:32 | 显示全部楼层
这其实就是一个 以 pcb 为骨架的电感.
往往作为电感, pcb 的反面还有个形状一样, 旋向相反的图形呢
回复

收藏 举报

jakfens 发表于 2013-2-6 09:44 | 显示全部楼层
GoldSunMonkey 发表于 2013-2-5 22:54
是呀，艺术

嘿嘿
回复

收藏 举报

GoldSunMonkey 发表于 2013-2-6 23:03 | 显示全部楼层
airwill 发表于 2013-2-6 07:32
这其实就是一个 以 pcb 为骨架的电感.
往往作为电感, pcb 的反面还有个形状一样, 旋向相反的图形呢 ...

原来如此，兄弟有过此经验没有？
回复

收藏 举报

feihong777 发表于 2013-2-14 22:40 | 显示全部楼层
GoldSunMonkey 发表于 2013-2-6 23:03
原来如此，兄弟有过此经验没有？

我没有。有的给说一下啊
回复

收藏 举报

GoldSunMonkey 发表于 2013-2-14 22:54 | 显示全部楼层
feihong777 发表于 2013-2-14 22:40
我没有。有的给说一下啊

没有折腾啥
回复

收藏 举报

LMQQ 发表于 2013-2-15 21:24 | 显示全部楼层
GoldSunMonkey 发表于 2013-2-14 22:54
没有折腾啥

。。。什么意思啊
回复

收藏 举报

LongChip 发表于 2013-2-15 23:28 | 显示全部楼层
LMQQ 发表于 2013-2-15 21:24
。。。什么意思啊

问猴哥啊
回复

收藏 举报

GoldSunMonkey 发表于 2013-2-15 23:32 | 显示全部楼层
LMQQ 发表于 2013-2-15 21:24
。。。什么意思啊

就是没有出去玩的意思
回复

收藏 举报

DAXSX 发表于 2013-2-16 11:32 | 显示全部楼层
怎么画的讲解一下啊？
回复

收藏 举报

GoldSunMonkey 发表于 2013-2-18 22:52 | 显示全部楼层
DAXSX 发表于 2013-2-16 11:32
怎么画的讲解一下啊？

没有讲解啊
回复

收藏 举报

shijiajun4 发表于 2013-2-21 15:57 | 显示全部楼层
这个用的什么元件封装软件画的啊？？
回复

收藏 举报

GoldSunMonkey 发表于 2013-2-21 22:01 | 显示全部楼层
shijiajun4 发表于 2013-2-21 15:57
这个用的什么元件封装软件画的啊？？

这个有关系么？？
回复

收藏 举报

LMQQ 发表于 2013-2-21 22:30 | 显示全部楼层
GoldSunMonkey 发表于 2013-2-21 22:01
这个有关系么？？

为什么没有关系呢？侯哥
回复

收藏 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 在线客服 返回列表 返回顶部