Change the cline or line to shape( Source Code)

bavol · 发表于 2012-10-11 13:58

本帖最后由 bavol 于 2012-10-12 22:29 编辑

功能：将CLINE或者LINE转变为相应层面的SHAPE，之前如果有NET属性，也会同时保留。

1. 下载附件后，解压放入PCBENV目录下，在allegro.ilinit文件中添加一句
load("cline2shape.il") ;请注意是否为英文引号及空格。

2.重开ALLEGRO,执行Command>cline2shape命令调用。

3.直接选择要进行转换的CLINE或者LINE，支持使用TempGroup进行选择。
等级不够的，可以直接留下邮箱，统一发送

XYX365 · 发表于 2012-10-28 09:50

本帖最后由 XYX365 于 2012-10-28 09:51 编辑

新增Lines轉為静态shape

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

复制代码

destiny_fz · 发表于 2015-9-11 14:26

贴出来的那个代码调用不了，开头加axlCmdRegister("cline_to_shape" `LCB_cline_to_shape)调用。可以把线转为shape，但执行done ，cancel 等命令均说没有定义，但我看程序开头已经定义了的，不知道为什么不起作用。

bavol · 发表于 2014-10-14 19:37

jerry2118 发表于 2014-10-11 18:51
我也正想找这样的的Skill，手机板单点接地很多，不好处理用能否把你改过的发给小弟一份？

帖子中间楼层有源代码，自己copy

chengcheng123 · 发表于 2018-3-15 18:53

感谢楼主，一个个发邮件好有心。

可以分享到百度网盘的哦

Archeus_NvL0Z · 发表于 2018-3-12 17:33

bavol 发表于 2012-10-11 21:15
这帖子也沉的太快了，自己顶一个

1224905649@qq.com 谢谢楼主！

Archeus_NvL0Z · 发表于 2018-3-12 17:33

bavol 发表于 2012-10-11 21:15
这帖子也沉的太快了，自己顶一个

1224905649@qq.com 谢谢楼主！

digitzing · 发表于 2018-2-2 11:31

这帖子也沉的太快了，我顶一个

yoyo1204 · 发表于 2018-1-30 17:04

1490237590@qq.com 谢谢楼主啦

yoyo1204 · 发表于 2018-1-30 17:03

需要

greg2015 · 发表于 2018-1-27 11:59

251771893@qq.com

九月 · 发表于 2017-10-24 10:23

谢谢分享

Ling · 发表于 2017-10-20 10:34

您好，急需这个Skill，可以的话再麻烦您发给我，邮箱如下：kim951228@gmail.com，非常感谢您！

bruce777 · 发表于 2017-6-5 16:53

bruceliao1124@gmail.com 楼主我也想要这个skill , 能发一下吗？

谢谢！

渐行渐远渐无书 · 发表于 2017-6-5 16:22

好东西啊，还看不了。。

jordanli22 · 发表于 2017-6-1 21:20

812620232@qq.com

mentorkk · 发表于 2016-11-15 04:37

感謝樓主.收到了

kk8770560 · 发表于 2016-4-19 21:46

谢谢！楼主辛苦了顶顶顶

		自动登录	找回密码
密码			注册

Change the cline or line to shape( Source Code)

本帖子中包含更多资源

评分

点评

推荐内容 /1