求将走线变成铜皮的SKILL文件

LiuTao166462139

求：将走线变成铜皮的SKILL文件？

泡泡_X84gB

16.6自带这个功能

LiuTao166462139

泡泡_X84gB 发表于 2017-11-2 09:55
16.6自带这个功能

能截个图看下选项吗

小秋2013

load("x:/xxx/x_cline2shape.il" "www.eda365.com")
调用命令c2s

小秋2013

x_cline2shape，你自己在论坛搜索吧，附件上传不了

這侽孓譙悴丶

https://www.eda365.com/thread-30450-1-2.html

moca

內建好像就有此功能了，找找看應該有的

gdutchen

内建的给演示下，谢谢！

l8877l

axlCmdRegister("cline2shape" 'LCB_cline_to_shape ?cmdType "interactive"
?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel)
procedure(LCB_cline_to_shape()
let( ()
axlSetFindFilter(?enabled list("noall" "clines")
                  ?onButtons list("noall" "clines"))
LCBpopup = axlUIPopupDefine( nil (list
(list "Done" 'LCB_Done)
    (list "Undo" 'LCB_unDo)
   
    (list "Cancel" 'LCB_Cancel)
     ))
axlUIPopupSet(LCBpopup)
LCB_mark = axlDBTransactionStart()
notdone = t
while(notdone
  lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
  if(lclines then
    foreach(clinedbid lclines

   net = clinedbid->net->name   
      layer = clinedbid->layer
       polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
       if(polydbid then
        axlDeleteObject(clinedbid)
        if(! axlDBCreateShape(car(polydbid) t layer net)  then
          axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
        ); endif
if(cadr(polydbid) then
            axlDBCreateShape(cadr(polydbid) t layer net)  )
       else
        axlUIWPrint(nil "** Error. Failed to create Polydbid from Cline. **")
       ); endif
    ); end foreach cline
  ); endif
); end while
axlDBTransactionCommit(LCB_mark)
)); let and procedure
procedure(LCB_unDo()
let( ()
  if(! axlDBTransactionOops(LCB_mark) then
    axlUIWPrint(nil "-- Nothing Left To Undo. --")
  else
    axlUIWPrint(nil "-- Replacing Clines. --")
  ); endif
  axlClearSelSet()
)); end let procedure
procedure(LCB_Cancel()
let( ()
  axlUIWPrint(nil "** Cancelled Program. **")
  ;axlDBTransactionRollback(LCB_mark)
  notdone = nil
  axlClearSelSet()
  axlCancelEnterFun()
)); end let procedure

procedure(LCB_Done()
let( ()
  axlUIWPrint(nil "- Done -")
  axlDBTransactionCommit(LCB_mark)
  notdone = nil
  axlCancelEnterFun()
   
)); end let and procedure

LiuTao166462139

l8877l 发表于 2017-12-12 11:25
axlCmdRegister("cline2shape" 'LCB_cline_to_shape ?cmdType "interactive"
?doneCmd 'LCB_Done ?canc ...

谢谢！