代码方式放置基准点

江枫渔火

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

1. 
   
2. 
   ( {% d/ [5 @7 |$ R
3. Public Sub test_PutFiducial()
   
4.     Dim pcbAppObj
   
5.     Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
   
6.     Dim pcbDocObj
   
7.     Set pcbDocObj = pcbAppObj.ActiveDocument
   : n) q6 {+ W. D8 }5 T6 C
8. 
   
9.     If (ValidateServer(pcbDocObj) = 1) Then
     g6 ?& e; {; P! X: g
10. 
    
11.             Set pad = pcbDocObj.PutPadstack(1,1,"test fiducial")        '这里引号的字符串就是你本地库中焊盘堆的名称，要Fiducial类型的
    1 N& @6 }. g. n7 {7 }5 f1 Q
12.         Call pcbDocObj.PutFiducial(10,10,pad ,Nothing,Nothing)
    
13. 
    : l0 K  s3 R! ]! o! J0 J( h
14.     End If
    
15. 
    
16. End Sub
    
17. 
    ) Q/ h, Y& l4 K

复制代码

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

barry945

俗话说“听君一席话，胜读十年书”，弄了好久都没弄出来，一个指点就明白了！
8 a  r8 Z0 c( y) W0 Q  n9 Z
got it!
0 b) }8 l, f, v/ L
非常感谢！