测量path长度及rectangle长宽

这个skill脚本可以用来测量path的长度和rectangle的长宽。用法:复制代码保存为 measurelength.il, 在icfb的CIW窗口

load "measurelength.il"

在layout界面选中要测量的path或rectangle, 按下 Ctrl+k 即可显示相关尺寸,如下图所示。
Path_Length

/*
Synopsis : Path_Length()
Version : 1.0a
Description : Measure Path & Rectangle Length
*/

procedure( Path_Length()
prog( (winId cvId selObj shape points llx lly urx ury)
winId = hiGetCurrentWindow()
cvId = getEditRep(winId)
selObj = geGetSelSet(cvId)

leClearAllRuler(cvId)

foreach(shape selObj
case( shape~>objType
("rect" || "inst"
Box = shape~>bBox
llx = car(car(Box))
lly = cadr(car(Box))
urx = car(cadr(Box))
ury = cadr(cadr(Box))
points= list((llx:(lly+ury)/2)(urx:(lly+ury)/2))
leCreateRuler(cvId points)
points= list(((llx+urx)/2:lly)((llx+urx)/2:ury))
leCreateRuler(cvId points)
)

("path"
points = shape~>path
leCreateRuler(cvId points)
)
(t hiDisplayAppDBox(?name 'JWPath_Length ?buttonLayout 'Close
?dboxBanner "Warning!!" ?dboxText "No Select Objet (rect/cell/path)"))
);case
);foreach

);prog
);procedure

hiSetBindKey("Layout" "Ctrl<Key>k" "Path_Length()")

发表评论