关于封装设置PIN1为原点的SKILL

marco_ma

谁有可以把封装PIN1设置为原点的skill，就是直接点一下，原点自动变为PIN1上，不需要现去设置

redeveryday

这个没必要吧，你建封装的时候直接输入0 0坐标不就好了。

marco_ma

不是的，我是想把已经建好的封装修改一下。

chenyuanzhi1989

chenyuanzhi1989

在红色部分修改坐标就OK了，但是不建议这么处理，不注意的话总会有些东西没有没有移动，那封装很容易出错的！

marco_ma

chenyuanzhi1989 发表于 2012-12-17 23:24
2 S2 x# [, P* M3 f& }在红色部分修改坐标就OK了，但是不建议这么处理，不注意的话总会有些东西没有没有移动，那封装很容易出错的 ...

) E; a7 ^4 B3 d4 U嗯 ，这个方法是可以，但太慢了，如果很多器件都要改的话，一个一个太浪费时间了，我是觉得可能有SKILL可以执行？

XYX365

8 ?1 Q- l! l* `, q

marco_ma 发表于 2012-12-17 23:32
7 x9 T! s" o& T8 s' E嗯 ，这个方法是可以，但太慢了，如果很多器件都要改的话，一个一个太浪费时间了，我是觉得可能有SKILL可 ...

1. 
   & v/ [  d- o8 X0 ], g$ H, j  [
2. 
   
3. axlCmdRegister("mop" 'fnMoveOriginPin1)
   
4. 
   ; s3 c3 u" j# K- h+ g+ ~
5. procedure(fnMoveOriginPin1()
   ; s1 x8 @! `" a) D+ u
6.         prog((tDesignType lAllPins dOne nOriginX nOriginY)
   ; e9 I- X# a! R! U3 j3 p/ v
7.                 tDesignType = axlDesignType(t)
   
8.                 unless(tDesignType == "PACKAGE"
   
9.                         axlUIConfirm("The skill only run in package!")
   
10.                         return(nil)
    
11.                 )
    
12.                 axlVisibleDesign(t)
      x7 P0 @' O, C2 z, |& S2 b
13.                 axlClearSelSet()
    ! W* Y. S( e( u* _) Z3 B
14.                 axlSetFindFilter(?enabled '("NOALL" "PINS") ?onButtons '("NOALL" "PINS"))
    $ ]9 t4 l) B* k# \' @7 s4 P- o8 R0 ^
15.                 lAllPins = axlGetSelSet(axlAddSelectAll())
    . k, W/ A! ~7 j/ E3 _  ]
16.                 axlClearSelSet()
    ( }7 V' Z5 e3 u/ Y* h
17.                 foreach(dOne lAllPins
    
18.                         when(dOne->number == "1"
    4 p8 }- }( Q" \* j" Q5 y' p
19.                                 nOriginX = car(dOne->xy)
    2 a# w- ~  ?% W8 t% C, D
20.                                 nOriginY = cadr(dOne->xy)
    
21.                         )
    
22.                 )
    " y; x( J- o9 |$ y. Y- I. G) C
23.                
    
24.                 unless((zerop(nOriginX) && zerop(nOriginY))
      C% t2 G! s6 X9 i/ G# V2 [. u
25.                         axlDBChangeDesignOrigin(list((- nOriginX) (- nOriginY)))
    
26.                         printf("Change Origin To (%L : %L)" nOriginX nOriginY)
    
27.                 )
    ( C- F9 k! q8 N1 _+ L
28.         )
    # w9 U& y) x8 x2 a/ \, v7 Z
29. )
    ( C( t' ~: G" P% H" `% z7 C

复制代码

fMoveOriginPin1.zip (523 Bytes, 下载次数: 28)

2012-12-27 07:54 上传

点击文件名下载附件
下载积分: 威望 -5

marco_ma

XYX365 发表于 2012-12-26 15:29

可否写成一个TXT文件上传啊，我这边复制的时候后面带了好多乱码！

marco_ma

XYX365 发表于 2012-12-26 15:29

有机会试下，谢谢啦

NO.2

改过之后你以前的板子再更新就麻烦了