代码方式放置基准点

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

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

x

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

4 v% v* R* i: A. S1 k
4 d. [2 H! N2 T8 b4 e
Public Sub test_PutFiducial(), E, ^4 x0 H& u" P; d5 d' Q/ c5 {
Dim pcbAppObj
Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")- O/ t2 {! h2 t' B$ |% w
Dim pcbDocObj/ ^/ [) s# ^7 {- H: {
Set pcbDocObj = pcbAppObj.ActiveDocument
" b" I( Q3 u) ^( H+ a3 E
; b1 Y$ a: K: k
If (ValidateServer(pcbDocObj) = 1) Then
+ o D# x0 l- N% M; O
) h) w2 y5 r1 Q5 L. {( `
Set pad = pcbDocObj.PutPadstack(1,1,"test fiducial") '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
6 d2 n% R3 G _
Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)
2 ]+ u; h0 q/ r/ E. S* O
/ k, W: B4 ^# g/ M
End If" J# ~; X7 T- u# Y6 ^; {9 Q: N
8 L2 j- l' ^# J, s
End Sub$ N- v3 n j4 `3 {% ~+ k
5 z/ q& h& W& _$ s: J