Change the cline or line to shape( Source Code)

wolf343105

bavol 发表于 2012-10-18 23:26
已发送，请查收

谢谢好人.好人一生平安.

yang-2200

D:\USER\skill\cline2shape.il  存放處
load("D:/USER/skill/cline2shape.il")設定處

szhot

好很好的

longzhiming

本论坛早就有这样的skill了

bavol

yang-2200 发表于 2012-10-19 13:22
D:\USER\skill\cline2shape.il  存放處
load("D:/USER/skill/cline2shape.il")設定處

已经给你发消息

bavol

SilverJohn 发表于 2012-10-19 01:01
Сongratulations.

Thanks for your feedback in previous mail, do you have any new skills can share with us?

bavol

longzhiming 发表于 2012-10-19 22:17
本论坛早就有这样的skill了

there are three more function.
first, it can handle shapes in muti-layers at sametime,
second, it keeps the net name,
third, it can chamfer the shape corner with 45 degree .
The most important, I supply the source code freely.

longzhiming

bavol 发表于 2012-10-19 23:50
there are three more function.
first, it can handle shapes in muti-layers at sametime,
second, i ...

sounds good! thank you for sharing.

wolf343105

LINE转变不了为相应层面的SHAPE.

bavol

wolf343105 发表于 2012-10-20 11:42
LINE转变不了为相应层面的SHAPE.

是的，不支持line,而且现在改变后的是静态shape, 我在想办法让他自动变成动态shape

longzhiming

bavol 发表于 2012-10-20 17:54
是的，不支持line,而且现在改变后的是静态shape, 我在想办法让他自动变成动态shape

要的就是静态，干嘛要改成动态啊{:soso_e100:} ，记得帮我留一份静态的，还有建议右菜单改成 Done 在最顶,Undo 在其次, 这是用allegro的操作习惯,,,,,谢谢,

bavol

longzhiming 发表于 2012-10-20 21:45
要的就是静态，干嘛要改成动态啊 ，记得帮我留一份静态的，还有建议右菜单改成 Done 在最 ...

嗯，OK。改过我会发上来的。或者你可以试试自己改，有问题咱们讨论。别外一个是，因为我现在用的全部是动态铜，静态铜太麻烦

longzhiming

third, it can chamfer the shape corner with 45 degree .
以前另人的SKILL就是静态的,也保持网络名,就是没做45度处理.有点不爽, 你的做45度处理,真的很给力,很好.{:soso_e142:}

XYX365

我已修改成可以轉換Shape為動態或靜態Shape,也將the end cap type 改為可以變更,如下代碼

1. procedure(LCB_cline_to_shape()
   
2. let( ()
   
3.         axlSetFindFilter(?enabled list("noall" "clines") ?onButtons list("noall" "clines"))
   
4.         LCBpopup = axlUIPopupDefine( nil (list
   
5.                     list("Done" 'LCB_Done)
   
6.                     list("Undo" 'LCB_unDo)
   
7.                     list("Cancel" 'LCB_Cancel)
   
8.                     list("MENU_SEPARATOR" nil)
   
9.                     list("Set Dynamic" "bDynamic = t")
   
10.                     list("Set Statics" "bDynamic = nil")
    
11.                     list("MENU_SEPARATOR" nil)
    
12.                     list("EndCapType = OCTAGON" "sEndCapType = 'OCTAGON")
    
13.                     list("EndCapType = ROUND" "sEndCapType = 'ROUND")
    
14.                     list("EndCapType = SQUARE" "sEndCapType = 'SQUARE")
    
15.             ))
    
16.         axlUIPopupSet(LCBpopup)
    
17.         LCBstartMark = axlDBTransactionStart()
    
18.         notdone = t
    
19.         bDynamic = t
    
20.         sEndCapType = 'OCTAGON
    
21.         while(notdone
    
22.                 lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
    
23.                 if(lclines then
    
24.                      foreach(clinedbid lclines ;clinedbid = car(lclines)
    
25.                         ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
26.                         net = clinedbid->net->name
    
27.                         layer = clinedbid->layer
    
28.                         axlUIWPrint(layer "** now layer is layer. **")
    
29.                         ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
30.                         polydbid = axlPolyFromDB(clinedbid ?endCapType sEndCapType)
    
31.                         if(polydbid then
    
32.                             axlDeleteObject(clinedbid)
    
33.                             if(bDynamic then
    
34.                               tNewLayer = strcat("BOUNDARY/" cadr(parseString(layer "/")))
    
35.                               unless(axlDBCreateShape(car(polydbid) t tNewLayer net)
    
36.                                 axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
    
37.                              ); endif
    
38.                         else
    
39.                              unless(axlDBCreateShape(car(polydbid) t Layer net)
    
40.                                  axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
    
41.                              ); endif
    
42.                         )
    
43.                         if(cadr(polydbid) then
    
44.                             if(bDynamic then
    
45.                                 tNewLayer = strcat("BOUNDARY/" cadr(parseString(layer "/")))
    
46.                                 axlDBCreateShape(cadr(polydbid) t tNewLayer net)
    
47.                         else
    
48.                                 axlDBCreateShape(cadr(polydbid) t layer net)
    
49.                         )
    
50.                 )
    
51.                else
    
52.                 axlUIWPrint(nil "** Error. Failed to create Polydbid from Cline. **")
    
53.         ); endif
    
54.   ); end foreach cline
    
55.   ); endif
    
56. ); end while
    
57. axlDBTransactionCommit(LCBstartMark)
    
58. )); let and procedure

复制代码

bavol

XYX365 发表于 2012-10-21 11:16
我已修改成可以轉換Shape為動態或靜態Shape,也將the end cap type 改為可以變更,如下代碼

学习了，多谢XYX365{:soso_e179:}