리습 수정 때문에 그러는데요 부탁드립니다.

P라인 결합해주는 리습인데요
만드면 여러 객체들이 한번에 연결이 되어서요
P라인을 만들어주면 객체를 연결 안하는 리습을 수정하고 싶은데요
고수님들 부탁드립니다.

(defun c:pp()
   (setvar “cmdecho” 0)
   (setq ss (ssget))
   (command “pedit” “m” ss “” “y” “j” “” “”)
   (setq osm(getvar “osmode”))
(princ)
) ;defun