[原创]：别开生面的TRIM

lijiao

加载后用XX命令。
命令开始后，鼠标输入一点，然后移动鼠标，会出现一条红色的曲线，凡是与红色曲线相交的线均会被TRIM掉。
我的嘴笨，说不清楚，自己去体验吧。

2. 
   
3.   [FONT=courier new]
   
4. ;;;BY LIJIAO
   
5. (defun c:xx (/ PT0 PTLIST PTLIST0 ss CMDECHO OSMODE)
   
6.   (setq        cmdecho        (getvar "cmdecho")
   
7.         osmode        (getvar "osmode")
   
8.   )
   
9.   (while (and (setq ptlist0 (getpoint_list))
   
10.               (> (length ptlist0) 1)
    
11.          )
    
12.     (setvar "cmdecho" 0)
    
13.     (setvar "osmode" 0)
    
14.     (setq pt0         (car ptlist0)
    
15.           ptlist (cdr ptlist0)
    
16.     )
    
17.     (command "trim" "")
    
18.     (foreach pt        ptlist
    
19.       (command "f" pt0 pt "")
    
20.       (setq pt0 pt)
    
21.     )
    
22.     (command "")
    
23.     (if        (setq ss (ssget "f" ptlist0))
    
24.       (command "erase" ss "")
    
25.     )
    
26.     (setvar "osmode" osmode)
    
27.     (setvar "cmdecho" cmdecho)
    
28.   )
    
29.   (princ)
    
30. )
    
31. (defun getpoint_list ( / DIS OUT PT)
    
32.   (setq pt (getpoint "\n开始："))
    
33.   (princ "\n按任意键完成:")
    
34.   (if (= (type pt) 'LIST)
    
35.     (progn
    
36.       (setq out (list pt)
    
37.             dis (* 0.01 (getvar "viewsize")))
    
38.       (while (= 5 (car (setq pt (grread t 4 0))))
    
39.         (setq pt (cadr pt))
    
40.          (if (> (distance pt (car out)) dis)
    
41.            (progn
    
42.              (grdraw pt (car out) 1)
    
43.              (setq out (cons pt out))
    
44.              )
    
45.            )
    
46.         )
    
47.       )
    
48.     )
    
49.   (redraw)
    
50.   (reverse out)
    
51.   )
    
52.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;BY LIJIAO<br /> (defun c:xx (/ PT0 PTLIST PTLIST0 ss CMDECHO OSMODE)<br />   (setq        cmdecho        (getvar "cmdecho")<br />         osmode        (getvar "osmode")<br />   )<br />   (while (and (setq ptlist0 (getpoint_list))<br />               (> (length ptlist0) 1)<br />          )<br />     (setvar "cmdecho" 0)<br />     (setvar "osmode" 0)<br />     (setq pt0         (car ptlist0)<br />           ptlist (cdr ptlist0)<br />     )<br />     (command "trim" "")<br />     (foreach pt        ptlist<br />       (command "f" pt0 pt "")<br />       (setq pt0 pt)<br />     )<br />     (command "")<br />     (if        (setq ss (ssget "f" ptlist0))<br />       (command "erase" ss "")<br />     )<br />     (setvar "osmode" osmode)<br />     (setvar "cmdecho" cmdecho)<br />   )<br />   (princ)<br /> )<br /> (defun getpoint_list ( / DIS OUT PT)<br />   (setq pt (getpoint "\n开始："))<br />   (princ "\n按任意键完成:")<br />   (if (= (type pt) 'LIST)<br />     (progn<br />       (setq out (list pt)<br />             dis (* 0.01 (getvar "viewsize")))<br />       (while (= 5 (car (setq pt (grread t 4 0))))<br />         (setq pt (cadr pt))<br />          (if (> (distance pt (car out)) dis)<br />            (progn<br />              (grdraw pt (car out) 1)<br />              (setq out (cons pt out))<br />              )<br />            )<br />         )<br />       )<br />     )<br />   (redraw)<br />   (reverse out)<br />   )<br />   [/FONT]<br />

啵浪鼓

好,原创哦,试试看~

dandee

COOL !!!

c_wm

太好用了，就是就是没提示符，有些朋友可能用不来。

它山之石

果然别开生面。
是个好主意。只是刚开始不知如何用。

乐逍遥

确实不错，很好用。

ss1025

果然别开生面啊。
原来不是要剪断，而是剪开。

zh_6531394

不对,不是要剪断，剪开,而是删除。

lxyljl

真的是很好用啊！
楼主，能不能再改进下。红色的线通过自己连续点击出现（这样符合大家习惯嘛），然后以空格键结束呢？

ycao

很好用。

flqyb

好创意

lijiao

最初由 lxyljl 发布
[B]真的是很好用啊！
楼主，能不能再改进下。红色的线通过自己连续点击出现（这样符合大家习惯嘛），然后以空格键结束呢？ [/B]

我现在有许多设计任务，不能在这方面花太多的时间。
我已经贴出源代码，你可以自己修改，很简单的。
其实，我们缺少的不是手段，而是新奇的想法，如果各位有了新奇的想法，可以提出来，坛子里的高手多着呢。

梦断江南

最初由 lxyljl 发布
[B]真的是很好用啊！
楼主，能不能再改进下。红色的线通过自己连续点击出现（这样符合大家习惯嘛），然后以空格键结束呢？ [/B]

那样还写什么啊,就一句
(command "trim" "" "f")

wkai

有创意！！

xgwl

最初由 lxyljl 发布
[B]真的是很好用啊！
楼主，能不能再改进下。红色的线通过自己连续点击出现（这样符合大家习惯嘛），然后以空格键结束呢？ [/B]

真是很好想法, 连续点击倒觉得一般了!还是这样好!:)