分享两个拼凑的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]

看看这个

多适用？？？？

看看看看看看看看看看看看看

什么东西啊

请教楼主个问题，当新建了一个lisp文件，将你这个源码复制进去   那当我要使用的时候  在cad的快捷键是什么呢？   这方面小白  见谅

看看看看看看看看看看,,多 实用？？？？

柠萌~:请教楼主个问题，当新建了一个lisp文件，将你这个源码复制进去   那当我要使用的时候  在cad的快捷键是什么呢？   这方面小白  见谅 (2015-03-02 10:56) 

(DEFUN C:a()(COMMAND "MOVE"));移动
红色的就是命令

柠萌~:请教楼主个问题，当新建了一个lisp文件，将你这个源码复制进去   那当我要使用的时候  在cad的快捷键是什么呢？   这方面小白  见谅 (2015-03-02 10:56) 

(defun c:sb ()

柠萌~:请教楼主个问题，当新建了一个lisp文件，将你这个源码复制进去   那当我要使用的时候  在cad的快捷键是什么呢？   这方面小白  见谅 (2015-03-02 10:56) 

(defun c:jn ()

啥东东高深莫测？

看看什么东东，这么保密

回复看看..........

看看是神马东西

看看这个什么好东西

    

这是什么东西，能编辑？

              

什么东西啊