(defun c:pj (/ a)
	(setq a (ssget))
	(if (> (sslength a) 1)
		(command "pedit" a "y" "j" a "" "x")
	)
)