代码方式放置基准点

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

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

x

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

/ T4 N0 t8 C/ E; Q
3 G+ O7 l: _9 ~. V3 }: i
Public Sub test_PutFiducial()% L% b2 q. a6 p4 Q( T- r/ ?1 K. i# l
Dim pcbAppObj( v- \$ N$ R2 @( o$ ~. N
Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")! D9 t j I7 P
Dim pcbDocObj
- |( R9 | i* O5 `( C8 P
Set pcbDocObj = pcbAppObj.ActiveDocument
4 e* |$ }" G. }9 O9 R
/ u9 R$ l* `" [" R& q
If (ValidateServer(pcbDocObj) = 1) Then
4 {, l) G: R- J
$ g" U d" ]: S( F& e+ D7 v' @: P
Set pad = pcbDocObj.PutPadstack(1,1,"test fiducial") '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的1 l4 F2 H/ `# f1 ^8 ?* y: e
Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)1 `& Y8 S0 a$ U: ~8 v2 f% {
- E0 z7 S- P& o! e: R
End If
; r, @" Z/ X/ t4 M
5 ]* Q+ g) p1 e6 W
End Sub0 X4 l# _9 O5 {8 s
6 `; v+ E. e/ W6 R D4 q; M6 O