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

marco_ma

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

redeveryday

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

marco_ma

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

chenyuanzhi1989

chenyuanzhi1989

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

marco_ma

chenyuanzhi1989 发表于 2012-12-17 23:24
5 v! ]; ?5 \, u在红色部分修改坐标就OK了，但是不建议这么处理，不注意的话总会有些东西没有没有移动，那封装很容易出错的 ...

2 Q" S+ n+ `+ g嗯 ，这个方法是可以，但太慢了，如果很多器件都要改的话，一个一个太浪费时间了，我是觉得可能有SKILL可以执行？

XYX365

# j% J! x1 Y0 Q, v

marco_ma 发表于 2012-12-17 23:32
0 x% K% w7 p( J6 F嗯 ，这个方法是可以，但太慢了，如果很多器件都要改的话，一个一个太浪费时间了，我是觉得可能有SKILL可 ...

1. 
   
2. 
   
3. axlCmdRegister("mop" 'fnMoveOriginPin1)
   
4. 
   7 E7 j' G. j/ z5 @
5. procedure(fnMoveOriginPin1()
   % U8 e, ~+ r, L% Z  v! q6 }
6.         prog((tDesignType lAllPins dOne nOriginX nOriginY)
   
7.                 tDesignType = axlDesignType(t)
   ! D7 R4 c. }" l2 w% a
8.                 unless(tDesignType == "PACKAGE"
   2 z' [3 x$ q4 {9 T4 |% D, P
9.                         axlUIConfirm("The skill only run in package!")
   ' x4 a( o5 ~; L7 z/ s$ R1 r
10.                         return(nil)
    
11.                 )
    ! b& |% X0 J1 n! t
12.                 axlVisibleDesign(t)
    
13.                 axlClearSelSet()
    
14.                 axlSetFindFilter(?enabled '("NOALL" "PINS") ?onButtons '("NOALL" "PINS"))
    
15.                 lAllPins = axlGetSelSet(axlAddSelectAll())
    : h* h" i' C# i# B$ E1 M0 I
16.                 axlClearSelSet()
    1 }0 \$ t& \/ |) ]$ l
17.                 foreach(dOne lAllPins
    % m& S; J# f$ A3 D
18.                         when(dOne->number == "1"
    / w8 r1 P$ {; `  _2 ^
19.                                 nOriginX = car(dOne->xy)
    
20.                                 nOriginY = cadr(dOne->xy)
    + g& }! e! R0 m) R0 ~9 i) u" ]
21.                         )
    
22.                 )
    . I) N+ [: Q4 V2 n$ q& Y( Y0 y
23.                
    
24.                 unless((zerop(nOriginX) && zerop(nOriginY))
    5 X6 O1 K9 ~+ S+ }8 o
25.                         axlDBChangeDesignOrigin(list((- nOriginX) (- nOriginY)))
    4 r8 w% o7 U( Z& M2 ^" M0 B$ C
26.                         printf("Change Origin To (%L : %L)" nOriginX nOriginY)
    
27.                 )
    1 z, Y: K- Z" F1 L3 @- M& V- |: g
28.         )
    ) b0 Y$ p4 C! X$ M* Y
29. )
    7 U1 r$ y# g1 Z3 H8 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

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