串联多段线的退出问题

crazylsp

;|    已经相连的线串联多段线, 不足的是退不出来,
  现象： ;;选择多段线或 [多条(M)]:   选择多段线或 [多条(M)]: 选择多段线或 [多条(  
  要按esc才可以退出, 有什么解决方法?   |;
(defun c:test()
(setq stn ( ssget ) stnl(sslength stn) nn 0 stnnlst nil)
(repeat stnl
    (setq stnn(ssname stn nn) stnnlst(cons stnn stnnlst) )
    (setq nn(1+ nn))
)
(foreach stnn stnnlst
   ( command "pedit" stnn "" "J" stn"" "" )
)
( command "" )
)

VBALISPER

(defun c:qqq(/ b)
(setvar "peditaccept"  1)
    (if (setq b (ssget  '((0 . "*LINE,ARC"))))
        (command "pedit" "m"  b "" "j"  "0" "" )
    )
(setvar "peditaccept"  0)
(prin1)
)

ZZXXQQ

(defun c:test()
(setq stn ( ssget ))
(command "pedit" "M" stn "Y" "J" "" "")
(princ)

crazylsp

3Q,但是新问题又来了; 错误: 函数被取消

ysq101

pedit   不支持选择集

ll_j

defun c:test()
(setq stn ( ssget ))
(command "pedit" "M" stn "" "Y" "J" "" "")
(princ)
)