[LISP程序]：我常用的lsp（原贴）

空壳

我自己用的东西，用来删除鼠标框内交点之间的线段，
我经常用到，希望大家能试试看，



希望大家也能多贴写常用的小lsp，多交流，多共享。
不知道好用不，这个东西到现在已经修改了好些次了，
应该没有什么错误发生了。不过发生了错误也别找我啊！

大尾巴狼

顶一下，再改改好不？

好用，就是如上图，删掉后，后悔了，U回去，结果线段都是断的，能还是原样吗？

谢谢

空壳

那可以用另一个程序“连接并且给出宽度”，

如果做到一起，用起来就浪费时间了，至少多输入一次数据啊！

lse119

有什么用处？？？？

panyan

嗯....
下载来用用....
这是改过的版本吗？

大梦小生

最初由 空壳 发布
[B]那可以用另一个程序“连接并且给出宽度”，

如果做到一起，用起来就浪费时间了，至少多输入一次数据啊！ [/B]

能详细解释一下吗?
u回去线段是 断的的确非常难过

青马

自己编的,麻烦了一点,但是是自己的成果,大家分享吧
(defun c:tee (/ p1 p3 p1_x p1_y p3_x p3_y ss sna p1a p2a p3a p4a)
  (setq p1 (getpoint "\n第一点"))
  (setq p3 (getcorner p1 "\n 请输入对角点"))
  (setq p1_x (car p1))                       
  (setq p1_y (cadr p1))                       
  (setq p3_x (car p3))                       
  (setq p3_y (cadr p3))                       
  (command "rectangle" p1 p3)
  (setq ss (ssadd (entlast)))
  (setq sna (getvar "osmode"))
  (setvar "osmode" 0)
  (cond        ((and (< p1_x p3_x) (> p1_y p3_y))
         (progn
           (setq p1a (list (+ p1_x 1) (- p1_y 1) 0))
           (setq p2a (list (- p3_x 1) (- p1_y 1) 0))
           (setq p3a (list (- p3_x 1) (+ p3_y 1) 0))
           (setq p4a (list (+ p1_x 1) (+ p3_y 1) 0))
           (command "trim" ss "" "f" p1a p2a p3a p4a p1a "" "")
           (command "erase" "w" p1a p3a "")
         )                                ;        )
        ((and (< p1_x p3_x) (< p1_y p3_y))
         (progn
           (setq p1a (list (+ p1_x 1) (+ p1_y 1) 0))
           (setq p2a (list (- p3_x 1) (+ p1_y 1) 0))
           (setq p3a (list (- p3_x 1) (- p3_y 1) 0))
           (setq p4a (list (+ p1_x 1) (- p3_y 1) 0))
           (command "trim" ss "" "f" p1a p2a p3a p4a p1a "" "")
           (command "erase" "w" p1a p3a "")
         )                                        )
        ((and (> p1_x p3_x) (< p1_y p3_y))
         (progn
           (setq p1a (list (- p1_x 1) (+ p1_y 1) 0))
           (setq p2a (list (- p1_x 1) (- p3_y 1) 0))
           (setq p3a (list (+ p3_x 1) (- p3_y 1) 0))
           (setq p4a (list (+ p3_x 1) (+ p1_y 1) 0))
           (command "trim" ss "" "f" p1a p2a p3a p4a p1a "" "")
           (command "erase" "w" p1a p3a "")
         )                                        )
        ((and (> p1_x p3_x) (> p1_y p3_y))
         (progn
           (setq p1a (list (- p1_x 1) (- p1_y 1) 0))
           (setq p2a (list (+ p3_x 1) (- p1_y 1) 0))
           (setq p3a (list (+ p3_x 1) (+ p3_y 1) 0))
           (setq p4a (list (- p1_x 1) (+ p3_y 1) 0))
           (command "trim" ss "" "f" p1a p2a p3a p4a p1a "" "")
           (command "erase" "w" p1a p3a "")
         )
        )                                  )
  (setvar "osmode" sna)
  (command "erase" ss "")               
)
                                       
(princ "\n用框剪切线并删除框中的物体 tee ")
(princ)

2002zjp

谢谢。我找了许久的东西

zzt21963

先下一个比较以下

xjlmlxbq

真是好东西, 谢谢

hangle

得来不费功夫！还可以在精简么？

bridgewind

编写的稍微偏繁，，，，，
可以改写！

丹佛

希望大家也能多贴写常用的小lsp，多交流，多共享。
不知道好用不，这个东西到现在已经修改了好些次了，
应该没有什么错误发生了。不过发生了错误也别找我啊！


我觉得即使发现了bug也可以找你，再修改完善，共同提高嘛

tomsdwf

7楼的程序在R14下怎么不能用呀？还望指教，谢谢！

iam0411

好东西，谢了