高手帮忙看看这个问题在哪里？串联不起来！

byhq2014

;;;;串接
(defun c:HJ(/ l1 l2)
  (setq l1 (ssget))
(setq ss (sslength l1))
  (setq l2 (ssname l1 0))
  (command "pedit" l2 "" "j" l1 """")
(princ "聚合成功")(princ)
)
(defun cJ (/ s)
  (setq s (ssget))
  (if (> (sslength s) 1)
      (command "EDIT" s "" "J" s "" "")
   ) (PRINC)
)

优胜模具