【分享】用于PDF原理图快速抓取器件的SKILL

bingshuihuo

谢谢！感谢分享！

Dc202501021a

请问代码怎么用

gogogo冲冲冲

谢谢分享，下来试一试

ashnoer

1. /*
   
2. By4311
   
3. 240908
   
4. 用于PDF原理图,PDF中框选复制器件文本信息,在设计中使用~1抓取
   
5. 
   
6. 历史更新:
   
7.   2025.03.18
   
8.     新增某些位号重叠被合并为一个字符串时也会抓取
   
9. */
   
10. 
    
11. axlSetFunckey("~1" "By4311_GrabClipboardSymbol")
    
12. axlCmdRegister("By4311_GrabClipboardSymbol" 'By4311_Main_GrabClipboardSymbol)
    
13. 
    
14. (procedure By4311_FindSymbol()
    
15.   axlZoomToDbid(car(axlSelectByName("REFDES" axlUIPrompt("Find Symbol Name:"))) t)
    
16. )
    
17. 
    
18. (procedure By4311_Main_GrabClipboardSymbol()
    
19. 
    
20.   ;器件位号前缀合集
    
21.   Pre = list("U" "R" "C" "L")
    
22.   ;字符前缀
    
23.   Regular = "[A-Za-z0-9_+-=.]+"
    
24. 
    
25.   By4311_GetClipboardSymbol()
    
26.   By4311_GrabClipboardSymbol(GrabList)
    
27. )
    
28. 
    
29. (procedure By4311_GetClipboardSymbol()
    
30.   axlUIConfirmEx( "Use This Command At Your Own Risk." "By4311_GrabClipboardSymbol")
    
31. let( (P)
    
32. ;清除选择集,设置过滤器
    
33. axlClearSelSet()
    
34. Filter = list("NoAll" "Symbols")
    
35. axlSetFindFilter(?enabled Filter ?onButtons cdr(Filter))
    
36. 
    
37. ;获得剪切板内容进行解析,转换为字符串链表
    
38. TexList = axlClipboardGetText()
    
39. TexList = buildString(parseString(TexList "\r") " ")
    
40. TexList = buildString(parseString(TexList "\n") " ")
    
41. TexList = parseString(TexList " ")
    
42. 
    
43.   Analysis = list()
    
44.   (foreach item Pre
    
45.     printf("\n%s :" item)
    
46.     New = rexMatchList(strcat(Regular item "[0-9]+") TexList)
    
47. 
    
48.     rexCompile(strcat(Regular item))
    
49.     (foreach otem New
    
50.       printf("%L\t" rexReplace(otem item 1))
    
51.       Analysis = cons(rexReplace(otem item 1) Analysis)
    
52.     )
    
53.   )
    
54. 
    
55.   GrabList = list()
    
56.   TexList = unique(append(TexList Analysis))
    
57. 
    
58. ;在设计中查找链表包含的对象,放置到抓取合集中
    
59.   (foreach item TexList
    
60.     ID = car(axlSelectByName("REFDES" item))
    
61.      when( ID
    
62.      GrabList = cons(ID GrabList)
    
63.      ;printf("%L\n" car(P)->refdes)
    
64.      )
    
65.   )
    
66. 
    
67.   GrabList = unique(GrabList)
    
68. )
    
69. )
    
70. 
    
71. (procedure By4311_GrabClipboardSymbol(TarList)
    
72. let((Point item)
    
73.    (if TarList ;传入的链表;如果不为空则抓取,如果为空则提示
    
74.    then axlHighlightObject(TarList)
    
75.    item = axlDBAltOrigin('center car(TarList)) ;默认鼠标附着基准点为第一个元素的中心坐标
    
76.    axlDynamicsObject(TarList item) ;鼠标附着
    
77.    Point = axlEnterPoint(?prompts `("Please Click To Select The Point To Place...")) ;选择新位置
    
78.    axlDehighlightObject(TarList)
    
79.    (if Point
    
80.    then axlTransformObject(TarList ?move axlMXYSub(Point item)) ;整体移动
    
81.    else axlMsgPut("User Canceled Operation.");用户取消操作
    
82.    )
    
83.    axlClearDynamics();清除鼠标附着
    
84.    else
    
85.    axlMsgPut("Did Not Grab The Symbol.");没有抓取到有用的信息
    
86.    )
    
87.   )
    
88. )

复制代码