代码方式放置基准点

江枫渔火 · 发表于 2014-8-23 12:32

您需要登录才可以下载或查看，没有帐号？注册

x

代码放置基准点的如下，我捣鼓了半天，文档真难查啊～其实关键步骤就那么两句话
下面使用到底对象和方法参考 expedition_pcb_auto.pdf

1 j4 q: |9 a3 G( d- R/ \4 e$ f
" o! G, P+ Q5 G( W
Public Sub test_PutFiducial()3 s6 W8 @7 r. q
Dim pcbAppObj
" |' n% q% C# e! t: x
Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
4 V* z; `6 H. U- h* K
Dim pcbDocObj
" Y' M; A8 G2 K6 ~
Set pcbDocObj = pcbAppObj.ActiveDocument
; h$ ?0 S; [$ J
, T v9 P) ^3 H
If (ValidateServer(pcbDocObj) = 1) Then
1 {$ r z! t- o
# t! E5 z: w6 z* l/ J" o
Set pad = pcbDocObj.PutPadstack(1,1,"test fiducial") '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
" q1 q7 n' f. H# {
Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)
/ {! c0 s( K4 s0 Y7 i" y
: a! s6 r. H7 V4 l+ w
End If5 k* D, A7 z% q" v" S' u+ s) m
* { P# C4 @) E: r; D9 C0 |
End Sub) T; _/ E6 I1 H; H- A
0 r; E. o+ L3 O& K3 N& h