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

ashnoer

最近有个项目是PDF的原理图，我们之前抓模块是使用lst文本在allegro中加载，每次抓器件都要复制粘贴保存文档，就自己写了个，目前只是简单的抓器件，后续有空再搞个根据绘制的矩形放置的功能，鼠标附着部分式参考db大佬之前分享的创建网络丝印的skill。
目前还有个小问题，第一次打开设计时某些器件抓取后在放置时会丢失报错，之后都无法抓到丢失的器件

1. E- *Error* fprintf/sprintf: invalid (NULL) string or format

复制代码

考虑后期会增加功能分为两个子函数执行，不知道是不是因为这个原因导致

1. /*
   
2. By4311
   
3. 240908
   
4. 用于PDF原理图,PDF中框选复制器件文本信息,在设计中使用~1抓取
   
5. */
   
6. 
   
7. axlSetFunckey("~1" "By4311_GrabClipboardSymbol")
   
8. axlCmdRegister("By4311_GrabClipboardSymbol" 'By4311_Main_GrabClipboardSymbol)
   
9. 
   
10. (procedure By4311_FindSymbol()
    
11.   axlZoomToDbid(car(axlSelectByName("REFDES" axlUIPrompt("Find Symbol Name:"))) t)
    
12. )
    
13. 
    
14. (procedure By4311_Main_GrabClipboardSymbol()
    
15.     By4311_GetClipboardSymbol()
    
16.     By4311_GrabClipboardSymbol(List)
    
17. )
    
18. 
    
19. (procedure By4311_GetClipboardSymbol()
    
20.   axlUIConfirmEx( "Use This Command At Your Own Risk." "By4311_GrabClipboardSymbol")
    
21. let( (P)
    
22. ;清除选择集,设置过滤器
    
23. axlClearSelSet()
    
24. P = list("NoAll" "Symbols")
    
25. axlSetFindFilter(?enabled P ?onButtons cdr(P))
    
26. 
    
27. ;获得剪切板内容进行解析,转换为字符串链表
    
28. P = axlClipboardGetText()
    
29. P = buildString(parseString(P "\r") " ")
    
30. P = buildString(parseString(P "\n") " ")
    
31. P = parseString(P " ")
    
32. 
    
33. ;在设计中查找链表包含的对象,放置到抓取合集中
    
34. List = list()
    
35.    (foreach item P
    
36.     P = axlSelectByName("REFDES" item)
    
37.      when( P
    
38.      List = append(List P)
    
39.      ;printf("%L\n" car(P)->refdes)
    
40.      )
    
41.    )
    
42. )
    
43. )
    
44. 
    
45. (procedure By4311_GrabClipboardSymbol(List)
    
46. let((P item)
    
47.    (if List ;传入的链表;如果不为空则抓取,如果为空则提示
    
48.    then axlHighlightObject(List)
    
49.    item = axlDBAltOrigin('center car(List)) ;默认鼠标附着基准点为第一个元素的中心坐标
    
50.    axlDynamicsObject(List item) ;鼠标附着
    
51.    P = axlEnterPoint(?prompts `("Please Click To Select The Point To Place...")) ;选择新位置
    
52.    axlDehighlightObject(List)
    
53.    (if P
    
54.    then axlTransformObject(List ?move axlMXYSub(P item)) ;整体移动
    
55.    else axlMsgPut("User Canceled Operation.");用户取消操作
    
56.    )
    
57.    axlClearDynamics();清除鼠标附着
    
58.    else
    
59.    axlMsgPut("Did Not Grab The Symbol.");没有抓取到有用的信息
    
60.    )
    
61.   )
    
62. )

复制代码

补充内容 (2025-3-18 18:14):


补充内容 (2025-3-18 18:34):
更新：某些位号重叠被合并为一个字符串时也会抓取
代码详见#19

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. )

复制代码

db-_-

看了下代码，这个错误是由重复的refdes + 使用了append导致的。
建议用cons替代append，但是语法会不一样，你自己研究下。
再建议用unique去重。

另外还有很多地方写法习惯不好，但不影响使用，
比如使用全局变量作为参数传递，没有必要。
比如用和自带的关键字很像的名称List作为变量名。
比如循环外和循环内用了同一个变量名，例如下面的P。
(foreach item P
    P = axlSelectByName("REFDES" item)
...)

比如SKILL里面尽量不要用UTF-8，特别是涉及到中文。

Sleep_xz

这个功能比较实用。

zc333

谢谢共享。。。。。。。

kingweison

:):)

你好阿

谢谢！感谢分享！

6940

谢谢！感谢分享！

929979964

楼主，这个怎么用的？

ashnoer

db-_- 发表于 2024-9-10 16:34
看了下代码，这个错误是由重复的refdes + 使用了append导致的。
建议用cons替代append，但是语法会不一样 ...

感谢指点

无痕03356

谢谢！感谢分享！

ashnoer

929979964 发表于 2024-9-10 14:36
楼主，这个怎么用的？

在PDF中框选复制器件文本信息，在allegro中执行~1即可将器件附着到鼠标

kilbird

這功能實在太好用了，如果後續還有優化進階就太神了!!!!

ee_windy

感谢分享

fuxiangyupi23

大佬指点一下怎么加载，感谢。。