代码方式放置基准点

江枫渔火

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

1. 
   9 E/ q  D5 X' Y' k: L2 f) |
2. 
   # F+ Y; ~1 F+ U& ]2 N2 `% U( Q
3. Public Sub test_PutFiducial()
   8 W! p5 b( `% M0 Z% f$ K3 N
4.     Dim pcbAppObj
   0 J3 e" n- l! E% _7 L% {5 Z+ ~
5.     Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
   
6.     Dim pcbDocObj
   ' n* r9 w8 \! m* P; a: d& D+ {
7.     Set pcbDocObj = pcbAppObj.ActiveDocument
   7 V+ z! _; E5 D; y
8. 
   9 e2 {4 N3 O8 C
9.     If (ValidateServer(pcbDocObj) = 1) Then
   
10. 
    / a$ v9 F1 v5 C5 A& S& ]  }  D
11.             Set pad = pcbDocObj.PutPadstack(1,1,"test fiducial")        '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
    4 T+ p) J  v9 {; m0 {6 I8 u) V
12.         Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)
    0 i* H/ B9 [# M# p
13. 
    # |5 X9 N- W. z  a9 c
14.     End If
    
15. 
    " H" F$ t# {* u4 F, N2 y1 J; m
16. End Sub
    
17. 
    , x, k: y4 f; ?" v- _

复制代码

在按钮里调用该函数进行试验。
6 n* t8 U# R5 o4 b& B, n: v; h) y编辑器里不支持中文，包括注释，容易乱码。
重复执行会出现DRC错误，因为不能在同一个地方放置两次使对象重叠。做实用工具时要做错误检查和处理。

barry945

俗话说“听君一席话，胜读十年书”，弄了好久都没弄出来，一个指点就明白了！

4 ^$ a7 a. M  B& Qgot it!

非常感谢！
. U/ h# K+ |0 b- M, u
4 B, X: h3 ]5 d8 f0 U