EDA365电子工程师网

标题: 求将走线变成铜皮的SKILL文件 [打印本页]

作者: LiuTao166462139 时间: 2017-11-1 10:09
标题: 求将走线变成铜皮的SKILL文件
求：将走线变成铜皮的SKILL文件？

作者: 泡泡_X84gB 时间: 2017-11-2 09:55
16.6自带这个功能

作者: LiuTao166462139 时间: 2017-11-2 11:32

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

能截个图看下选项吗

作者: 小秋2013 时间: 2017-12-7 11:41
load("x:/xxx/x_cline2shape.il" "www.eda365.com")
调用命令c2s

作者: 小秋2013 时间: 2017-12-7 11:42
x_cline2shape，你自己在论坛搜索吧，附件上传不了

作者: 這侽孓譙悴丶 时间: 2017-12-7 14:03
https://www.eda365.com/thread-30450-1-2.html

作者: moca 时间: 2017-12-11 08:58
內建好像就有此功能了，找找看應該有的

作者: gdutchen 时间: 2017-12-12 10:59
内建的给演示下，谢谢！

作者: l8877l 时间: 2017-12-12 11:25

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 时间: 2017-12-13 15:29

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

谢谢！

欢迎光临 EDA365电子工程师网 (https://bbs.elecnest.cn/)