(mapcar 'setvar (cdr vars) '("1" "CENTER" 0.06))
add "(vl-cmdf "_.ucs" "_world")"
(while (setq ent (_Nentsel "\nSelect Circles or Arcs / PolyArcs: "))
i found must be add "(vl-cmdf "_.ucs" "_world")".
if not add and UCS not world "polyline object" get wrong center line points,but "polyline on block object" is ok.
add "(vl-cmdf "_.ucs" "_world")" is much easier.(other function is too much , i can't fix it.)