串联多段线的退出问题

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

本帖最后由 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

(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

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

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

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

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

pedit 不支持选择集

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

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

账号		自动登录	找回密码
密码			注册

[经验] 串联多段线的退出问题

最佳答案

相关帖子