热度 13| ||
根据论坛上的脚本,进行学习和修改后的脚本, Label attach instance.
procedure(createLabelXL()
let((cv objs origin name label text)
cv = geGetEditCellView()
sel = geGetSelSet()
foreach(obj sel text
origin = centerBox(obj~>bBox)
name = car(parseString(obj ~> name ".|"))
text = dbCreateLabel(cv list("TTXT" "drawing") origin name "centerCenter" "R0" "roman" 0.5)
leAttachFig(text obj)
)))
hiSetBindKey("layout" "<Key>J" " createLabelXL()")