破碎的Acad云

(defun c:pj ( / peditaccept ss )
    (if (setq ss (ssget "_:L" '((0 . "ARC,LINE,LWPOLYLINE"))))
        (progn
            (setq peditaccept (getvar 'peditaccept))
            (setvar 'peditaccept 1)
            (command "_.pedit" "_M" ss "" "_J" "" "")
            (setvar 'peditaccept peditaccept)
        )
    )
    (princ)
)