【源码】按页摆放零件之源码【强烈建议365源码开源】

shirdon

1. ;---------------------------------------------------------------------------
   
2. 
   
3. ; pg_placement.il ver0.1
   
4. ; ------------by shirdon
   
5. 
   
6. ; This program can attach the page property to component.
   
7. 
   
8. 
   
9. ; I can be reached by:
   
10. 
    
11. ; shirdon1@163.com
    
12. 
    
13. 
    
14. 
    
15. ;--------------------------------------------------------------------
    
16. axlCmdRegister( "pp" '_pg_placement)
    
17. 
    
18. defun(_pg_placement ()
    
19. 
    
20.     prog((pgfile )
    
21. 
    
22.              pgFile = infile( "./pg.xRF" ); read a file named pg1.xrf
    
23. 
    
24.             when(pgFile ;pg1.xrf existed
    
25. 
    
26.                      while(gets(nextline pgFile) ;-read a line from the file [loop] until readling finished
    
27. 
    
28.                              line_lst = parseString(nextline "\t");-make some line from string to list
    
29. 
    
30.                              if( length(line_lst) == 6 then ;-if line_lst contains 6 elements
    
31. 
    
32.                                        refdes_name = nthelem(3 line_lst) ;-get the third element from the list[line_lst]
    
33. 
    
34.                                        page_no = nthelem(5 line_lst);-get the fifth element from the list[line_lst]
    
35. 
    
36.                                        if(atof(page_no) then ;-atof(page_no) whether number
    
37. 
    
38.                                                   axlClearSelSet()
    
39. 
    
40.                                                   axlSetFindFilter(?enabled '("noall" "alltypes" "nameform")
    
41.                                                   ?onButtons "alltypes")
    
42. 
    
43.                                                   axlSingleSelectName( "component" refdes_name)
    
44. 
    
45.                                                 axlDBCreatePropDictEntry( "Page" "INTEGER" list( "components")) ;-set the page  
    
46. 
    
47.                                                 axlDBAddProp(axlGetSelSet() list( "Page" truncate(atof(page_no))))
    
48.                                                 
    
49.                                                 sprintf(info_n "%s has attached the property Page %s" refdes_name page_no)
    
50. 
    
51.                                                  println(info_n)
    
52. 
    
53.                                       );end if
    
54. 
    
55.                              );end if
    
56. 
    
57.                     );end while
    
58. 
    
59.             );end when
    
60. 
    
61.         print("Page property ok")
    
62. 
    
63.         close(pgFile)
    
64. 
    
65.         axlClearSelSet()
    
66. 
    
67.       )
    
68. )

复制代码

该程序简单易懂，用于学习分享【提倡开源】


对于该程序的执行方式请参照 deargds的  https://www.eda365.com/thread-4373-1-1.html  【将xpart.xrf 改为pg.xrf即可，也可按照自己的习惯更改】


不过该程序是开源的，便于大家讨论更新，甚至扩展

快捷方式：pp

Component With Page.zip (925 Bytes, 下载次数: 95)

2012-2-16 20:08 上传

点击文件名下载附件
下载积分: 贡献 -30 , 威望 -10

shirdon

王开鑫55 发表于 2018-10-9 11:41
没有成功，快速放置界面下没有出现分页属性

这个是有用的，可能选择quick place下面对应的属性没有选，
不过如果16.5以上的版本都已经标配了分页功能，这个源码权当学习好了

王开鑫55

没有成功，快速放置界面下没有出现分页属性

kkman2000

支持支持支持  非常感謝

wd2325

感谢分享！

shirdon

真心有用，西西，

xie921220

有用吗？那就再也不用LST了

xie921220

有用吗？那就再也不用LST了

carol8688

學習

螭虎

好东西，谢谢分享

xinpcb

看不到

asd0252

感謝分享
使用ok

newcomsky

标记一下啊，好啊

sp507

学习了，收藏了~~

joshuafu

shirdon 发表于 2012-3-14 22:50
https://www.eda365.com/thread-38785-1-1.html

那个有问题，不能用啊