选中上次选择过的对象:
[post](defun c:sb ()
(setq ss (ssget "_P"))
(sssetfirst nil ss)
)[/post]
合并为多段线:
[post](defun c:jn ()
(setq pet (getvar "PEDITACCEPT"));;;获取系统PEDITACCEPT变量的值
(setvar "PEDITACCEPT" 1);;;设置系统变量
(setq ss (ssget '((0 . "ARC,*LINE"))))
(if (not ss)
(setq ss (ssget))
)
(command "_pedit" "m" ss "" "j" "" "")
)
(setvar "PEDITACCEPT" pet)
)
[/post]