代码方式放置基准点

江枫渔火

代码放置基准点的如下，我捣鼓了半天，文档真难查啊～其实关键步骤就那么两句话
) i5 @7 X" Z4 T; o下面使用到底对象和方法参考 expedition_pcb_auto.pdf

1. 
   4 x5 a4 T+ H! W. b. w
2. 
   
3. Public Sub test_PutFiducial()
   & U5 P' m$ I1 f1 B- r) l8 X: N6 E
4.     Dim pcbAppObj
   
5.     Set pcbAppObj = GetObject(, "MGCPCB.ExpeditionPCBApplication")
   
6.     Dim pcbDocObj
   
7.     Set pcbDocObj = pcbAppObj.ActiveDocument
     i0 i: h1 y5 F& a' V
8. 
   " I0 k& @- `( h+ d6 n$ z
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)
    ' r( E% I: `& G/ r/ F/ G6 c5 Y
13. 
    
14.     End If
    2 [6 l% N+ d; Y, W; u8 _! x% e
15. 
    ; {  Y. A! c( u( Z$ U5 G6 K; f
16. End Sub
    
17. 
    

复制代码

在按钮里调用该函数进行试验。
9 y, C4 @" T$ z) G8 C! @, O编辑器里不支持中文，包括注释，容易乱码。
) A1 h* G2 ~) u  {! V重复执行会出现DRC错误，因为不能在同一个地方放置两次使对象重叠。做实用工具时要做错误检查和处理。

barry945

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

  T3 L% ~+ G2 B" u% h7 agot it!

非常感谢！