代码方式放置基准点

江枫渔火

& I" K: B* @6 B$ R代码放置基准点的如下，我捣鼓了半天，文档真难查啊～其实关键步骤就那么两句话
6 {$ j1 W. z4 f下面使用到底对象和方法参考 expedition_pcb_auto.pdf

1. 
   * Y: K# y6 `' |
2. 
   
3. Public Sub test_PutFiducial()
   5 e7 T8 X! a) P$ n0 i6 Y2 Z
4.     Dim pcbAppObj
   
5.     Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
   
6.     Dim pcbDocObj
   2 w' O2 ~0 L, x. z/ Y6 g1 _# j. A
7.     Set pcbDocObj = pcbAppObj.ActiveDocument
   8 i8 x& \3 I) u. V$ K" ^
8. 
   7 u* T% U0 h' w! d6 A, f) T7 \
9.     If (ValidateServer(pcbDocObj) = 1) Then
   % R! q) ~4 ^+ {+ U0 Y4 P7 Z6 c
10. 
    / q5 W$ K  q' z; M
11.             Set pad = pcbDocObj.PutPadstack(1,1,"test fiducial")        '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
    ( F) f2 _; J& C! `3 a
12.         Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)
    1 G. Q# `3 P. D; d! W
13. 
    2 u( O9 q3 \1 Q+ N* |+ E( `
14.     End If
    9 Y* v* Q( l( B7 n$ u2 ^
15. 
    
16. End Sub
    0 U; r, V$ o+ s
17. 
    

复制代码

在按钮里调用该函数进行试验。
编辑器里不支持中文，包括注释，容易乱码。
% S/ u5 `7 v" p, |7 |重复执行会出现DRC错误，因为不能在同一个地方放置两次使对象重叠。做实用工具时要做错误检查和处理。

barry945

俗话说“听君一席话，胜读十年书”，弄了好久都没弄出来，一个指点就明白了！
- Q; S+ Z  p- A% l( a$ d
got it!
& o' F1 d8 j( d) C6 r# S, K
非常感谢！
# y0 M9 n0 x; B. h- N