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

bavol · 发表于 2012-10-11 21:15

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

bavol · 发表于 2012-10-12 22:31

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

就没人需要吗

icebluexiong · 发表于 2012-10-14 09:08

谢谢分享！！

bluemare · 发表于 2012-10-14 16:43

谢谢分享！！

yang-2200 · 发表于 2012-10-17 10:09

yang.peggy@iac.com.tw
樓主我有需要

bavol · 发表于 2012-10-17 21:59

yang-2200 发表于 2012-10-17 10:09
樓主我有需要

请查收

wolf343105 · 发表于 2012-10-18 08:56

wolf343105@126.com

yang-2200 · 发表于 2012-10-18 09:33

感謝樓主.收到了

現在去試試..

yang-2200 · 发表于 2012-10-18 09:49

樓主~~~~
剛試了

,但是E- Command not found: cline2shape
可以請你把使用的方式用圖示嗎

careyhung · 发表于 2012-10-18 14:26

谢谢分享！~和c2s的skill相同?

bavol · 发表于 2012-10-18 23:25

careyhung 发表于 2012-10-18 14:26
谢谢分享！~和c2s的skill相同?

是的，这个命令可以自己改

bavol · 发表于 2012-10-18 23:26

本帖最后由 bavol 于 2012-10-18 23:28 编辑

yang-2200 发表于 2012-10-18 09:49
樓主~~~~
剛試了,但是E- Command not found: cline2shape
可以請你把使用的方式用圖示嗎

你告诉我，你的文件存放的位置，你先要确定文件被正确载入了

bavol · 发表于 2012-10-18 23:26

wolf343105 发表于 2012-10-18 08:56

已发送，请查收

SilverJohn · 发表于 2012-10-19 01:01

Сongratulations.

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

Change the cline or line to shape( Source Code)

本帖子中包含更多资源

评分

点评

点评

推荐内容 /1