[原创]：别开生面的TRIM第二版

lijiao

增加了延伸与修剪的切换功能，可以选择边界，各选项的输入只需一键搞定，不用回车确认。
都是源代码喔。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:xx (/ PT0 PTLIST PTLIST0 ss ss0 FANGSHI)
   
5.   (setq        cmdecho        (getvar "cmdecho")
   
6.         osmode        (getvar "osmode")
   
7.   )
   
8.   (setq fangshi t)
   
9.   (princ "\n点击后移动鼠标，")
   
10.   (princ "当前为剪切方式。")
    
11.   (while (and (setq ptlist0 (getpoint_list))
    
12.            (> (length ptlist0) 2)
    
13.       )
    
14.    (setvar "cmdecho" 0)
    
15.     (setvar "osmode" 0)
    
16.       (if (car (car ptlist0))
    
17.        (setq fangshi (not fangshi))
    
18.        )
    
19.       (if (cadr (car ptlist0))
    
20.         (progn
    
21.           (princ "\n选择边界<全部>:")
    
22.           (setq ss0 (ssget))
    
23.         )
    
24.       )
    
25.       (setq ptlist0 (cdr ptlist0)
    
26.             pt0           (car ptlist0)
    
27.             ptlist (cdr ptlist0)
    
28.       )
    
29.     (if fangshi
    
30.       (if ss0
    
31.         (command "trim" ss0 "")
    
32.         (command "trim" "")
    
33.         )
    
34.       (if ss0
    
35.         (command "EXTEND" ss0 "")
    
36.         (command "EXTEND" "")
    
37.         )
    
38.       )
    
39.       (foreach pt ptlist
    
40.         (command "f" pt0 pt "")
    
41.         (setq pt0 pt)
    
42.       )
    
43.       (command "")
    
44.       (if (and fangshi
    
45.                (not ss0)
    
46.                (setq ss (ssget "f" ptlist0))
    
47.                )
    
48.         (command "erase" ss "")
    
49.       )
    
50.     (princ "\n点击后移动鼠标，")
    
51.     (if fangshi
    
52.          (princ "当前为剪切方式。")
    
53.          (princ "当前为拉伸方式。")
    
54.          )
    
55.     )
    
56.      (setvar "osmode" osmode)
    
57.     (setvar "cmdecho" cmdecho)
    
58.   (princ)
    
59. )
    
60. (defun getpoint_list ( / DIS OUT PT BIAOJI FANGSHI)
    
61.   (setq fangshi '(nil nil))
    
62.   (setq pt (getpoint))
    
63.   (princ "\nE延伸与修剪切换／B重选边界:")
    
64.   (if (= (type pt) 'LIST)
    
65.     (progn
    
66.       (setq out (list pt)
    
67.             dis (* 0.01 (getvar "viewsize"))
    
68.             biaoji t)
    
69.       (while biaoji
    
70.         (setq pt (grread t 4 0))
    
71.         (cond
    
72.           ((= 5 (car pt))
    
73.            (setq pt (cadr pt))
    
74.            (if (> (distance pt (car out)) dis)
    
75.              (progn
    
76.                (grdraw pt (car out) 1)
    
77.                (setq out (cons pt out))
    
78.                )
    
79.              )
    
80.            )
    
81.           ((and (= 2 (car pt))
    
82.                 (or (= (cadr pt) 101)
    
83.                     (= (cadr pt) 69)
    
84.                     )
    
85.                 )
    
86.            (setq fangshi (list t (cadr fangshi)))
    
87.            )
    
88.           ((and (= 2 (car pt))
    
89.                 (or
    
90.                     (= (cadr pt) 98)
    
91.                     (= (cadr pt) 66)
    
92.                     )
    
93.                 )
    
94.            (setq fangshi (list (car fangshi) t))
    
95.            )
    
96.           (t (setq out (cons fangshi (reverse out))
    
97.                    biaoji nil))
    
98.           )
    
99.         )
    
100.       )
     
101.     )
     
102.   (redraw)
     
103.   out
     
104.   )
     
105.   [/FONT]
     

<br />   [FONT=courier new]<br /> (defun c:xx (/ PT0 PTLIST PTLIST0 ss ss0 FANGSHI)<br />   (setq        cmdecho        (getvar "cmdecho")<br />         osmode        (getvar "osmode")<br />   )<br />   (setq fangshi t)<br />   (princ "\n点击后移动鼠标，")<br />   (princ "当前为剪切方式。")<br />   (while (and (setq ptlist0 (getpoint_list))<br />            (> (length ptlist0) 2)<br />       ) <br />    (setvar "cmdecho" 0)<br />     (setvar "osmode" 0)<br />       (if (car (car ptlist0))<br />        (setq fangshi (not fangshi))<br />        )<br />       (if (cadr (car ptlist0))<br />         (progn<br />           (princ "\n选择边界<全部>:")<br />           (setq ss0 (ssget))<br />         )<br />       )<br />       (setq ptlist0 (cdr ptlist0)<br />             pt0           (car ptlist0)<br />             ptlist (cdr ptlist0)<br />       )<br />     (if fangshi<br />       (if ss0<br />         (command "trim" ss0 "")<br />         (command "trim" "")<br />         )<br />       (if ss0<br />         (command "EXTEND" ss0 "")<br />         (command "EXTEND" "")<br />         )<br />       )<br />       (foreach pt ptlist<br />         (command "f" pt0 pt "")<br />         (setq pt0 pt)<br />       )<br />       (command "")<br />       (if (and fangshi<br />                (not ss0)<br />                (setq ss (ssget "f" ptlist0))<br />                )<br />         (command "erase" ss "")<br />       )<br />     (princ "\n点击后移动鼠标，")<br />     (if fangshi<br />          (princ "当前为剪切方式。")<br />          (princ "当前为拉伸方式。")<br />          )<br />     )<br />      (setvar "osmode" osmode)<br />     (setvar "cmdecho" cmdecho)<br />   (princ)<br /> )<br /> (defun getpoint_list ( / DIS OUT PT BIAOJI FANGSHI)<br />   (setq fangshi '(nil nil))<br />   (setq pt (getpoint))<br />   (princ "\nE延伸与修剪切换／B重选边界:")<br />   (if (= (type pt) 'LIST)<br />     (progn<br />       (setq out (list pt)<br />             dis (* 0.01 (getvar "viewsize"))<br />             biaoji t)<br />       (while biaoji<br />         (setq pt (grread t 4 0))<br />         (cond<br />           ((= 5 (car pt))<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 />           ((and (= 2 (car pt))<br />                 (or (= (cadr pt) 101)<br />                     (= (cadr pt) 69)<br />                     )<br />                 )<br />            (setq fangshi (list t (cadr fangshi)))<br />            )<br />           ((and (= 2 (car pt))<br />                 (or <br />                     (= (cadr pt) 98)<br />                     (= (cadr pt) 66)<br />                     )<br />                 )<br />            (setq fangshi (list (car fangshi) t))<br />            )<br />           (t (setq out (cons fangshi (reverse out))<br />                    biaoji nil))<br />           )<br />         )<br />       )<br />     )<br />   (redraw)<br />   out<br />   )<br />   [/FONT]<br />

JOSDENNIS

看看合不合我用.

zlh0

好太好了,这就是我需要的

whzhen

请问按shift键也可切换吗？

xotoo

这个如何切换剪切模式和拉伸模式？

ahopera

这种程序很久就有了，而且现在05以后基本上cad自带的剪切拉伸模式都很全面了

xotoo

楼上的，cad自带的剪切拉伸模式是指什么？

lixiangdfeng

是不是和trim带“T”参数类似的用法

kcfy

感谢楼主共享源码。。。

yzfu2000

感谢楼主共享源码。。。

china4597

好太好了,这就是我需要的