代码方式放置基准点

江枫渔火

6 }! y8 m6 y5 M8 i$ `2 N7 F代码放置基准点的如下，我捣鼓了半天，文档真难查啊～其实关键步骤就那么两句话
下面使用到底对象和方法参考 expedition_pcb_auto.pdf

1. 
   
2. 
   
3. Public Sub test_PutFiducial()
   8 ^" F* Y- w5 d6 y$ O' Y; r8 Y8 m
4.     Dim pcbAppObj
   / B* R' n0 z! {# r' Z% N) J
5.     Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
   / K, i/ J! J9 N
6.     Dim pcbDocObj
   
7.     Set pcbDocObj = pcbAppObj.ActiveDocument
   
8. 
   % u* D/ r7 w1 c5 {! }. P
9.     If (ValidateServer(pcbDocObj) = 1) Then
   9 T4 f& e- N7 x0 |: a% A  M6 y
10. 
    
11.             Set pad = pcbDocObj.Putpadstack(1,1,"test fiducial")        '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
    
12.         Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)
    . o, ~' ~* Y- U
13. 
    8 ]. e; h( Z2 B' l
14.     End If
    
15. 
    2 Q7 Y. [7 b3 W$ ]8 v4 U- ]
16. End Sub
    
17. 
    1 ^" b6 m# ?0 y* A7 W. x

复制代码

在按钮里调用该函数进行试验。
编辑器里不支持中文，包括注释，容易乱码。
$ q- V2 f4 ^4 o' B  r# {" m重复执行会出现DRC错误，因为不能在同一个地方放置两次使对象重叠。做实用工具时要做错误检查和处理。
. x$ A% u- H$ l9 |" V# H

barry945

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

got it!
, n" N* d, j0 @' N: w
非常感谢！

. h4 A: c. S4 K& t1 e