代码方式放置基准点

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

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

x

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

5 m9 S1 u. c5 n/ E4 r% P
2 m8 T0 ^ u& `) _: H4 r9 H
Public Sub test_PutFiducial()
+ Z _# a. W; O: P8 Y
Dim pcbAppObj
9 [ q* e' A+ ?, G
Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
1 N& ~) s: x) g9 w( L0 ^
Dim pcbDocObj
5 T0 X& d/ j2 b. w; M
Set pcbDocObj = pcbAppObj.ActiveDocument
$ p0 H; x" i2 U& l
, u" Z. U% S2 U: G/ a9 d& Q" e* P# \
If (ValidateServer(pcbDocObj) = 1) Then
& S7 K# v2 F% T& {/ \' \
0 W$ O+ `: W% f' D+ @
Set pad = pcbDocObj.PutPadstack(1,1,"test fiducial") '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
* ]- T3 U% i: v& ?/ o' h
Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)( Q5 _( o" y# T; M
. ~4 H9 B0 \' L9 c& f
End If
/ N; v0 h7 Z0 D
. W7 }" ]% A* A. Y
End Sub
, H( F& u. d9 { k+ d
" b! v6 F: e8 `4 k$ }1 U+ S