crazylsp 发表于 2013-10-6 12:36:59

串联多段线的退出问题

本帖最后由 crazylsp 于 2013-10-8 10:48 编辑

;|    已经相连的线串联多段线, 不足的是退不出来,
现象： ;;选择多段线或 [多条(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 发表于 2013-10-6 12:37:00

(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 发表于 2013-10-6 15:10:09

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

crazylsp 发表于 2013-10-6 18:10:47

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

ysq101 发表于 2013-10-6 22:08:32

pedit   不支持选择集

ll_j 发表于 2013-10-7 09:24:29

defun c:test()
(setq stn ( ssget ))
(command "pedit" "M" stn "" "Y" "J" "" "")
(princ)
)
页: [1]
查看完整版本: 串联多段线的退出问题