AutoCAD Visual LISP / AutoLISP :: Join (All To Pline)

In continuation with thread All to Pline . I want to add one more function to this lisp i.e. Join all the objects selected.

Can this be done?

I tried this:
(command "_.pedit" "m" ename "" "j" ename "")or (command "_.pedit" "" "j" ename "" "")
 
But it gives me an error something like this:

Requires numeric distance, two points, or option keyword.
; error: Function cancelled

Enter fuzz distance or [Jointype] <0.000>: j

Enter join type [Extend/Add/Both] <Extend>: *Cancel*

or

Command: ch2pl

Select objects: Specify opposite corner: 5 found

Select objects:

*Invalid selection*
Expects a point or
Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Multiple]:
; error: Function cancelled
Select polyline or [Multiple]:
Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype
gen/Reverse/Undo]: *Cancel*

Command: Specify opposite corner:
Command: *Cancel*