| ||
procedure(CreateLabelXL()
let((cv objs origin name label )
cv = geGetEditCellView()
objs = cv ~> instances
foreach(obj objs
otigin = centerBox(obj~>bBox)
name = obj ~> name
label = dbCreateLabel(cv list("TTXT" "drawing") origin name "centerCenter" "R0" "roman" 0.2)
leAttachFig(label obj)
);foreach
);let
);proc
hiSetBindKey("layout" "<Key>KP_3" "CreateLabelXL()")