Interactively select each curve and direction reference point used to create the new B-spline. Each original curve is then deleted.
$$
$$ Declarations
$$
ENTITY/ENT(200),BC(200),P(200)
L10:
IDENT/'PICK CURVE'+ISTR(K),ENT,CNT,K,RESP
JUMP/L10:,TERM:,,RESP
L20:
IDENT/'PICK DIR POINTS',P,RESP
$$
$$ B-spline Definition
$$
BC=BCURVE/CURVE,ENT(1..K),ENDOF,P(1..K),DELETE,$
IFERR,L10:
TERM:HALT