move_pin_via

neky

axlCmdRegister("moveviatopin_x" 'moveviatopin_x )
procedure(moveviatopin_x()
prog(
      (pin_a
       via_a
       pin_a_xy
       via_a_xy
       via_stack
       x
       y
      )
     axlSetFindFilter(?enabled '("NOALL" "VIAS") ?onButtons '("NOALL" "VIAS"))
     axlClearSelSet()
     axlMsgPut( "select a via!" )
        if( axlSingleSelectPoint()
            then
               via_a  = axlGetSelSet()
               via_stack = car(via_a)->name
               via_a  = car(via_a)
               via_a_xy = via_a->xy
               y=nth(1 via_a_xy)
               axlHighlightObject(via_a  t)
           )
     axlMsgPut( "select a pin!" )
     axlSetFindFilter(?enabled '("VIAS" "PINS") ?onButtons '("VIAS" "PINS"))
       if( axlSingleSelectPoint()
            then
               axlSingleSelectPoint()
               pin_a = axlGetSelSet()
               pin_a = car(pin_a)
               pin_a_xy =pin_a->xy
               x=nth(0 pin_a_xy)
               axlHighlightObject(pin_a  t)
           )
     
      via_a_xy = (x:y)
      axlShell("done")
      axlDeleteObject(via_a)
      axlDBCreateVia(via_stack via_a_xy)
      axlDehighlightObject(pin_a t)
      axlDehighlightObject(via_a t)
      
))

axlCmdRegister("moveviatopin_y" 'moveviatopin_y )
procedure(moveviatopin_y()
prog(      
      (pin_a
       via_a
       pin_a_xy
       via_a_xy
       via_stack
       x
       y
      )
     axlSetFindFilter(?enabled '("NOALL" "VIAS") ?onButtons '("NOALL" "VIAS"))  
     axlClearSelSet()
     axlMsgPut( "select a via!" )
        if( axlSingleSelectPoint()
            then
               via_a  = axlGetSelSet()
               via_stack = car(via_a)->name
               via_a  = car(via_a)
               via_a_xy = via_a->xy
               x=nth(0 via_a_xy)
               axlHighlightObject(via_a  t)
           )
     axlMsgPut( "select a pin!" )
     axlSetFindFilter(?enabled '("VIAS" "PINS") ?onButtons '("VIAS" "PINS"))
       if( axlSingleSelectPoint()
            then
               axlSingleSelectPoint()
               pin_a = axlGetSelSet()
               pin_a = car(pin_a)
               pin_a_xy =pin_a->xy
               y=nth(1 pin_a_xy)
               axlHighlightObject(pin_a  t)
           )
      via_a_xy = (x:y)
      axlShell("done")
      axlDeleteObject(via_a)
      axlDBCreateVia(via_stack via_a_xy)
      axlDehighlightObject(pin_a t)
      axlDehighlightObject(via_a t)
      
))

此为我写的一个skill是用来让via和pin对齐的。但是只能动via ,请高手看一下怎么改进？？？
还有我怎么判断我选中的是via还是pin。还有这个skill为什么要在我done之后才有动作呢？？
请高手指点。
谢谢！！！！！！！！！！！！！！

wg2005

回复 1# neky


    axlDBCreateVia() 这句是创建过孔的函数。
    如果需要PIN对齐，需要利用axlDBCreatePin()

neky

回复 2# wg2005


     请楼上的我怎么判断是pin还是via???

neky

对的！！axlSetFindFilter(?enabled '("vias" "pins") ?onButtons '("vias" "pins"))
我们可以有这句来选pin或via但是我们选中之后怎么样判断是pin还是via呢？？？？
请坛中的高手给一下指点！！！！

deargds

判断每个dbid的objType属性。

neky

请问一下我应该用那个语句去判断呢？？？？

neky

请版主指点一下哟
谢谢！！！！！！！！！

ginooolu

在下认为加入这行:
seltype = car(via_a)->objType (seltype为任意名称)
如果回传为"pin"就是pin
如果回传为"via"就是via

neky

thank you

forewind

这个Skill正好我也需要,把楼主的程序改了一下.可以在SMD的引脚上添加过孔,放在引脚的正中间.
以前干这个需要一个多小时,现在一下子就好了. Place_Vias.zip (643 Bytes, 下载次数: 50)

2010-7-19 21:55 上传

点击文件名下载附件
下载积分: 贡献 -30 , 威望 -10

neky

回复 8# ginooolu


   请教高手一下我怎么在选中pin的情况下来得到symbol的基本数据的
用那些语句
是不是用
pin->parent
但是我用它写了一个skill返回的都 是nil
请高手指点一下了

ginooolu

在下认为你写的应该没错，以上面的程序中，pin_a已经得到pin的dbid，要得到symbol加入sym=pin_a->parent就应该要得到symbol的dbid了，如果还是有问题可能要请你提供更多讯息了

neky

THANK YOU  !!问题已解决！！！