代码方式放置基准点

江枫渔火

2 a7 ]8 N; e* @# s2 ]9 B6 [- o代码放置基准点的如下，我捣鼓了半天，文档真难查啊～其实关键步骤就那么两句话
8 i3 {0 O$ G) P$ o  ]4 t下面使用到底对象和方法参考 expedition_pcb_auto.pdf

1. 
   ' V6 l9 v6 B5 J3 D5 T; o1 e9 t
2. 
   ; t( f1 R+ A; n6 G& V
3. Public Sub test_PutFiducial()
   
4.     Dim pcbAppObj
   0 x5 v  c7 H- ]* Y8 a/ R) r
5.     Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
   
6.     Dim pcbDocObj
   
7.     Set pcbDocObj = pcbAppObj.ActiveDocument
   
8. 
   % C  B$ R0 L! f1 t0 n  z1 P
9.     If (ValidateServer(pcbDocObj) = 1) Then
   
10. 
    
11.             Set pad = pcbDocObj.Putpadstack(1,1,"test fiducial")        '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
    
12.         Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)
    
13. 
    
14.     End If
    
15. 
    
16. End Sub
    4 [2 r. H: l* a
17. 
    

复制代码

在按钮里调用该函数进行试验。
, c* ]; k' q4 u6 d8 d$ B0 P, \编辑器里不支持中文，包括注释，容易乱码。
重复执行会出现DRC错误，因为不能在同一个地方放置两次使对象重叠。做实用工具时要做错误检查和处理。
! l+ Z( q% T+ {5 o

barry945

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

got it!
2 c& g' I/ @* O7 ]3 l3 q* ~# Z  @
非常感谢！
( d' l; z7 h! U. P2 A$ i6 H