分享两个拼凑的lisp源码(实用) [复制链接]

选中上次选择过的对象：
[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]

      

看看这个

autocad本身就有这两个命令吧， 看看先

          

什么东西啊 什么东西啊

是什么东西，要学习。

是否不錯用@@~

能不能说一下大概或上些图片。

谢谢分享，看看是啥好东西。

好好好好好好好好好好好好好好好好好

好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好

我不看看实用性强不

        

什么东西啊

              

这是什么东西，能编辑？