[原创SKILL]将CLINE或者LINE转变为SHAPE

deargds · 发表于 2010-1-14 10:46

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 deargds 于 2010-1-14 12:54 编辑

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

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

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

3.直接选择要进行转换的CLINE或者LINE，支持使用TempGroup进行选择。

如果有其它问题及疑问可以回帖反馈。

游客，如果您要查看本帖隐藏内容请回复

db-_- · 发表于 2022-2-9 12:16

感谢楼主~ 顺便说下，如果你用的17.2以上版本，官方自带了一个cline2shape的源码。

在x:\Cadence_SPB_17.2-2016\share\pcb\examples\skill\cmds下，叫cline2shape.il

但貌似16.6没有。

如果想用在16.6下，需要把?undo t删掉，16.6不支持撤销。

;###############################################################################
; #
; Command: cline2shape #
; Skill File: cline2shape.il #
; How To Execute: Command> cline2shape #
; #
; DISCLAIMER: #
; The user of this command assumes all responsibility and does not #
; hold Cadence Design Systems nor the author of this code for any #
; unwarranted results or problems due to the use of this code. #
; #
; This is non-supported code and the user may modify it as needed. #
; #
;###############################################################################
; demostrates
; 1) style for an interactive command
; 2) use of the database tranasction APIs
; 3) two styles of undo/redo support
; Added undo support
; Know Bug: Sometimes the program will not convert all cline segments but it
; will DELETE all segments. Use at your OWN discretion!
; Select Cancel or Undo before exiting the command to restore
; to original Clines.
axlCmdRegister("cline2shape" 'LCB_cline_to_shape ?cmdType "interactive"
?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel ?undo t)
axlCmdRegister("cline2shape2" 'LCB_cline_to_shape2 ?cmdType "interactive"
?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel ?undo t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This shows undo where all of the conversions that this user does while
; in the command a undone as a single operation.
; To convert an existing command to support undo this method is
; typically easier.
procedure(LCB_cline_to_shape()
let( (lclines layer polydbid )
LCB_Setup()
; cannot have a global transaction if we want undo to roll back each operation
LCB_mark = axlDBTransactionStart()
LCBnotDone = t
while( LCBnotDone
lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
foreach( clinedbid lclines
layer = clinedbid->layer
polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
axlDeleteObject(clinedbid)
unless( axlDBCreateShape(car(polydbid) t layer)
axlUIWPrint(nil "ERROR: Failed to create Shape from Cline.")
)
when( cadr(polydbid)
axlDBCreateShape(cadr(polydbid) t layer)
)
)
; marks are only required if undo is using rolling back all database changes
; when command is active. When undoing each conversion this is not needed
; nor is Oops functional.
when(LCB_mark axlDBTransactionMark(LCB_mark))
)
LCB_Done() ; just in case
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This shows undo where each conversion is supported as seperate undo operation
; in the command a undone as a single operation.
; To convert an existing command to support undo this method is
; typically easier.
procedure(LCB_cline_to_shape2()
let( (lclines layer polydbid doMark )
LCB_Setup()
; cannot have a global transaction if we want undo to roll back each operation
LCBnotDone = t
doMark = 'undoMark
while(LCBnotDone
lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
; need to do a start/commit for each operation if we want undo to
; rollback each change. This mostly disables Oops
; don't want to start a transaction unless we have work to do or it will
; do a unneeded undoMark.
when(lclines
LCB_mark = axlDBTransactionStart(doMark)
)
foreach( clinedbid lclines
layer = clinedbid->layer
polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
axlDeleteObject(clinedbid)
unless( axlDBCreateShape(car(polydbid) t layer)
axlUIWPrint(nil "ERROR: Failed to create Shape from Cline.")
)
when( cadr(polydbid)
axlDBCreateShape(cadr(polydbid) t layer)
)
)
; marks are only required if undo is using rolling back all database changes
; when command is active. When undoing each conversion this is not needed
; nor is Oops functional.
when(LCB_mark axlDBTransactionCommit(LCB_mark))
LCB_mark = nil
)
LCB_Done() ; just in case
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; support APIs
procedure(LCB_Setup()
let( (popup)
axlSetFindFilter(?enabled list("noall" "clines")
?onButtons list("noall" "clines"))
popup = axlUIPopupDefine( nil (list
(list "Done" 'LCB_Done)
(list "Oop" 'LCB_Oops)
(list "Cancel" 'LCB_Cancel)
))
; Snapping is not required by this command but this shows the ability
; to add the snap sub-menu to the Right Mouse Popup menu
axlSnapEnableAtRMB()
axlUIPopupSet(popup)
LCB_mark = nil
))
procedure(LCB_Oops()
when(LCB_mark
if(! axlDBTransactionOops(LCB_mark) then
axlUIWPrint(nil "-- Nothing Left To oops. --")
else
axlUIWPrint(nil "-- Replacing Clines. --")
)
)
axlClearSelSet()
)
procedure(LCB_Cancel()
axlUIWPrint(nil "** Cancelled Program. **")
when( LCB_mark axlDBTransactionRollback(LCB_mark))
LCB_mark = nil
LCBnotDone = nil
axlClearSelSet()
axlCancelEnterFun()
)
procedure(LCB_Done()
when( LCB_mark axlDBTransactionCommit(LCB_mark))
LCB_mark = nil
LCBnotDone = nil
axlCancelEnterFun()
)

复制代码

jason_hsu · 发表于 2020-2-22 19:10

本帖最后由 jason_hsu 于 2020-2-24 14:31 编辑

So simple!

axlClearSelSet()
axlSetFindFilter( ?enabled '(noall clines) ?onButtons '(noall clines) )
axlSingleSelectPoint()
cline = axlGetSelSet()
poly = axlPolyFromDB( car(cline) )
axlDBCreateShape(car(poly) t car(cline)->layer car(cline)->net->name)
axlDeleteObject(cline)

helen811813 · 发表于 2010-7-20 11:37

我的不好用啊

yueruwenyan · 发表于 2010-1-14 10:50

叫布什动我啊 · 发表于 2010-1-14 12:40

LZ好人一个啊

GND · 发表于 2010-1-14 13:35

发现新东西，赞一个

xyy_zhong · 发表于 2010-1-14 18:19

好东西哦!可以画异性孔的FLASH

KF1013 · 发表于 2010-1-14 19:15

谢谢

T45524093 · 发表于 2010-1-15 08:56

这个很好。我用的着

0922537716 · 发表于 2010-1-17 14:43

感谢了，很实用

PP2008 · 发表于 2010-1-18 14:29

非常感谢LZ

chenshiqi906 · 发表于 2010-1-18 16:17

多谢分享好资料,

shiwanget · 发表于 2010-1-18 21:16

感谢

yiki9292 · 发表于 2010-1-19 10:46

thank ~LZ

kowen · 发表于 2010-1-19 13:55

谢谢

mistletoe · 发表于 2010-1-20 09:00

感谢

smilepotato · 发表于 2010-1-20 10:49

看看

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

[原创SKILL]将CLINE或者LINE转变为SHAPE

EDA365欢迎您登录！

点评

评分

点评

点评

点评

浏览过的版块

推荐内容 /1