请高手帮忙修改一个旋转元件值的SKILL

yujianlai

主要是我们公司经常要调元件的值，很麻烦，比调丝印还那个，所以现在想在以前调REF自动旋转和到中心的基础上修改，修改成我现在对元件COMPONENT VALUE  －－－〉SILKSCREEN_TOP  自动旋转和到中心

yujianlai

忘记了附件

Marcen

很好的想法，顶起。

vivienluo

move_ref_center.rar (1.1 KB, 下载次数: 70)

2014-3-19 22:04 上传

点击文件名下载附件

自动调整，不需要手动去选择text

1. 
   
2. axlCmdRegister("mcenter" 'move_ref_center)
   
3. procedure( move_ref_center()
   
4. popup = axlUIPopupDefine(nil list(list("Done" `axlFinishEnterFun)))
   
5. axlUIPopupSet(popup)
   
6. 
   
7. axlClearSelSet()
   
8. 
   
9. axlSetFindFilter( ?enabled  list( "noall" "text")  ?onButtons  list( "noall" "text"))
   
10. curVisible = axlVisibleGet()
    
11. axlVisibleDesign(nil)
    
12. axlVisibleLayer("COMPONENT VALUE/SILKSCREEN_TOP" t);可自行修改调整的层面
    
13. axlVisibleLayer("COMPONENT VALUE/SILKSCREEN_BOTTOM" t);可自行修改调整的层面
    
14. alltexts = nil
    
15. axlClearSelSet()
    
16. axlAddSelectAll()
    
17. alltexts = axlGetSelSet()
    
18. when(alltexts
    
19. foreach(texts alltexts
    
20.   sym = texts -> parent
    
21.   when( sym
    
22.     comps_bbox = axlDBAltOrigin('center sym)
    
23.     comps_center_x = xCoord(comps_bbox)
    
24.     comps_center_y = yCoord(comps_bbox)
    
25.     comps_angle = sym -> rotation
    
26.     text_angle_a = texts -> rotation
    
27.     r_angle = comps_angle - text_angle_a
    
28. 
    
29. axlTransformObject(texts , ?angle  r_angle)
    
30.   text_angle_b = texts -> rotation
    
31. when(90<=text_angle_b && text_angle_b<270
    
32.   axlTransformObject(texts , ?angle  180)
    
33.   )
    
34.   text_angle_c = texts -> rotation
    
35.   text_center_bbox = axlDBAltOrigin('center texts)
    
36.   excursion = axlGetParam(strcat("paramTextBlock:" texts->textBlock))->height
    
37. 
    
38.   when(0<text_angle_c && text_angle_c<90
    
39.    text_center_x = xCoord(text_center_bbox)
    
40.    text_center_y = yCoord(text_center_bbox)
    
41.    text_angle_d = text_angle_c
    
42.    m_x = comps_center_x - text_center_x + 0.15 * excursion * sin(3.14159/180 * text_angle_d)
    
43.    m_y = comps_center_y - text_center_y - 0.15 * excursion* cos(3.14159/180 * text_angle_d)
    
44.   )
    
45.    when(270<=text_angle_c && text_angle_c<360 || text_angle_c == 0
    
46.     text_center_x = xCoord(text_center_bbox)
    
47.     text_center_y = yCoord(text_center_bbox)
    
48.     text_angle_d = 360 - text_angle_c
    
49.     m_x = comps_center_x - text_center_x - 0.15 * excursion * sin(3.14159/180 * text_angle_d)
    
50.     m_y = comps_center_y - text_center_y - 0.15 * excursion * cos(3.14159/180 * text_angle_d)
    
51.    )
    
52.     axlTransformObject(texts , ?move list(m_x ,m_y) )
    
53.    )
    
54.    );end foreach
    
55. );end when
    
56. axlVisibleSet(curVisible)
    
57. axlVisibleLayer("COMPONENT VALUE/SILKSCREEN_TOP" t)
    
58. axlVisibleLayer("COMPONENT VALUE/SILKSCREEN_BOTTOM" t)
    
59. );end
    

复制代码

yujianlai

vivienluo 发表于 2014-3-19 22:05
自动调整，不需要手动去选择text

感谢vivienluo的热心帮忙！

Marcen

学习了，vivienluo厉害啊

yujianlai

乱七八遭的，看看有没有用

jadystone

yujianlai 发表于 2014-3-19 22:41
乱七八遭的，看看有没有用

先收藏再说，谢谢。

祭司

支持一下,学习ing

leilei4908

学习。。。学习 。。。