cline2shape SKILL源码分享，详解

vivienluo · 发表于 2013-4-18 21:41:15

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 "Undo" 'LCB_unDo)
(list "Done" 'LCB_Done)
(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
layer = "etch/bottom"
polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
if(polydbid then
axlDeleteObject(clinedbid)
if(! axlDBCreateShape(car(polydbid) t layer) then
axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
); endif
if(cadr(polydbid) then
axlDBCreateShape(cadr(polydbid) t layer) )
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

复制代码

编程思路：
1.首先通过axlSetFindFilter设置过滤元素，然后选中需要变为铜皮的Cline，并将选中的Cline的dbid存放于lclines中。
2.通过foreach循环函数，逐个将lclines中的元素取出，使用axlPolyFromDB函数获取cline的几何形状。
3.axlDBCreateShape创建shape

XYX365 · 发表于 2013-7-3 10:58:32

本帖最后由 XYX365 于 2013-7-3 11:07 编辑

多加入一些功能
Shape可以設為靜態或動態
將the end cap type 改為可以變更

procedure(LCB_cline_to_shape()
let( ()
axlSetFindFilter(?enabled list("noall" "LINES" "clines") ?onButtons list("noall" "LINES" "clines"))
LCBpopup = axlUIPopupDefine( nil (list
list("Done" 'LCB_Done)
list("Undo" 'LCB_unDo)
list("Cancel" 'LCB_Cancel)
list("MENU_SEPARATOR" nil)
list("Set Dynamic" "bDynamic = t")
list("Set Statics" "bDynamic = nil")
list("MENU_SEPARATOR" nil)
list("EndCapType = OCTAGON" "sEndCapType = 'OCTAGON")
list("EndCapType = ROUND" "sEndCapType = 'ROUND")
list("EndCapType = SQUARE" "sEndCapType = 'SQUARE")
))
axlUIPopupSet(LCBpopup)
LCBstartMark = axlDBTransactionStart()
notdone = t
bDynamic = t
sEndCapType = 'OCTAGON
while(notdone
lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
if(lclines then
foreach(clinedbid lclines ;clinedbid = car(lclines)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
net = clinedbid->net->name
layer = clinedbid->layer
;******************
unless(clinedbid->isEtch
bDynamic = nil
)
axlUIWPrint(layer "** now layer is layer. **")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
polydbid = axlPolyFromDB(clinedbid ?endCapType sEndCapType)
if(polydbid then
axlDeleteObject(clinedbid)
if(bDynamic then
tNewLayer = strcat("BOUNDARY/" cadr(parseString(layer "/")))
unless(axlDBCreateShape(car(polydbid) t tNewLayer net)
axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
); endif
else
unless(axlDBCreateShape(car(polydbid) t Layer net)
axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
); endif
)
if(cadr(polydbid) then
if(bDynamic then
tNewLayer = strcat("BOUNDARY/" cadr(parseString(layer "/")))
axlDBCreateShape(cadr(polydbid) t tNewLayer net)
else
axlDBCreateShape(cadr(polydbid) t layer net)
)
)
else
axlUIWPrint(nil "** Error. Failed to create Polydbid from Cline. **")
); endif
); end foreach cline
); endif
); end while
axlDBTransactionCommit(LCBstartMark)
)); 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

复制代码

vivienluo · 发表于 2013-7-3 22:18:05

XYX365 发表于 2013-7-3 10:58
多加入一些功能
Shape可以設為靜態或動態
將the end cap type 改為可以變更

呵呵，不错。多谢。。

srqrs · 发表于 2014-4-2 17:55:44

很好学习了；

junshi1000 · 发表于 2014-7-5 00:28:17

这个好，终于见到了，谢谢分享

花心刺猬 · 发表于 2014-7-24 21:01:11

学习学习！谢谢！

花心刺猬 · 发表于 2014-7-25 17:21:32

好贴，学习了！

zhgqiao · 发表于 2014-8-20 09:55:32

好帖，楼主真伟大！

wmeee · 发表于 2014-8-20 19:07:47

LZ真伟大！感谢LZ的分享

暗里着迷 · 发表于 2014-9-21 21:55:05

XYX365 发表于 2013-7-3 10:58
多加入一些功能
Shape可以設為靜態或動態
將the end cap type 改為可以變更

表示不懂得怎么变更

帐号		自动登录	找回密码
密码			立即注册