原地（封装中心点在中心）mirror元件-源码

王开鑫55

1. ;封装的中心点镜像，不在中心不在原地
   
2. axlCmdRegister("Original_mirror" 'Original_mirror )
   
3. defun(Original_mirror ()
   
4. let(()   
   
5.     mirror_form()   
   
6.     formm = axlFormCreate((gensym) "./mirror.form" nil 'pform_Action_drlh t nil)   
   
7.     axlFormDisplay(formm)
   
8.     ;deleteFile("./mirror.form")   
   
9. );end let
   
10. );end defun
    
11. 
    
12. 
    
13. (defun mirror_form ()
    
14.   (prog ()
    
15.         pform = outfile("./mirror.form" "w")
    
16.         fprintf(pform "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
17.         fprintf(pform "FORM toolwindow\n")
    
18.         fprintf(pform "FIXED\n")
    
19.         fprintf(pform "PORT 15 8\n")
    
20.                                         ;PORT w h
    
21.         fprintf(pform "HEADER "www"\n")
    
22.         fprintf(pform "TILE\n")
    
23. 
    
24.         fprintf(pform "TEXT "Mirror"\n")
    
25.         fprintf(pform "TLOC 0 0\n")
    
26.         fprintf(pform "ENDTEXT\n")
    
27. 
    
28.         fprintf(pform "FIELD mirror\n")
    
29.         fprintf(pform "FLOC 1 2\n") ;FLOC x y
    
30.         fprintf(pform "MENUBUTTON "mirror" 10 3\n")
    
31.         fprintf(pform "ENDFIELD\n")
    
32.       
    
33.         fprintf(pform "FIELD done\n")
    
34.         fprintf(pform "FLOC 1 6\n")
    
35.         fprintf(pform "MENUBUTTON "Done" 10 3\n")
    
36.         fprintf(pform "ENDFIELD\n")
    
37.         
    
38.         fprintf(pform "ENDTILE\n")
    
39.         fprintf(pform "ENDFORM\n")
    
40.         close(pform)        
    
41.         ))
    
42. (defun pform_Action_drlh (formm)
    
43.   (case formm->curField
    
44.     ("done"
    
45.      axlFormClose(formm)
    
46.      axlCancelEnterFun()
    
47.      deleteFile("./mirror.form")
    
48.      axlMsgPut("Done")
    
49.      nil
    
50.      )
    
51. 
    
52.     ("mirror"
    
53.      mirror()
    
54.      t
    
55.      )
    
56.   
    
57.     );end case
    
58.   );end defun
    
59. 
    
60. (defun mirror ()
    
61.         axlVisibleLayer("pin/top" t)
    
62.         axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" t)
    
63.         axlVisibleLayer("pin/bottom" t)
    
64.         axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" t)
    
65.         axlClearSelSet()            
    
66.         axlSetFindFilter(?enabled '(noall symbols) ?onButtons '(noall symbols))               
    
67.         allsymbols = axlGetSelSet(axlSelect(?prompt "Select symbols by pick or box."))
    
68.         axlClearSelSet()
    
69.         foreach(sym allsymbols                                
    
70.            sym_mirror=axlTransformObject(sym,?move '(0.0,0.0) , ?mirror t, ?allOrNone t)                                                              
    
71.                );end foreach               
    
72.         axlVisibleUpdate(t)
    
73. )
    
74. 
    
75. 
    

复制代码

PS：以下两点情况不能使用：
fix元件不能mirror.
建立封装时元件中心点不在元件中心的，mirror后不在原来位置。
支持点选，框选
养成良好的习惯，画封装时原点放在中心位置。有兴趣的可以进行代码扩展，函数：axlDBGetSymbolBodyExtent

砍死你个小日本

辛苦了 ，支持原创

nanshao8860

谢谢分享  

jordanli22

env 里面寫一句話就可以用快捷鍵做到了哦。

YZDZ

YZDZ

jordanli22 发表于 2020-2-1 09:40
env 里面寫一句話就可以用快捷鍵做到了哦。

求大哥赐教

YZDZ

王开鑫55

jordanli22 发表于 2020-2-1 09:40
env 里面寫一句話就可以用快捷鍵做到了哦。

那句话呀，请留言呀

wzh6328

学习学习，谢谢分享

Joyi

学习学习，谢谢分享