[建议]：裁减命令T的运用

leojc

建议用裁减命令T的时候自动关闭按组选取方式。

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. (defun ee_err (s)
   
5.   (setvar "cmdecho" cm)
   
6.   (setvar "pickstyle" ps)
   
7.   (command "_.undo" "_e")
   
8. )
   
9. 
   
10. (defun c:t ()
    
11.   (princ "\n* 修剪对象→|边=延伸、组选=关闭| *")
    
12.   (setq cm (getvar "cmdecho"))
    
13.   (setq ps (getvar "pickstyle"))
    
14.   (setq *error* ee_err)
    
15.   (setvar "cmdecho" 1)
    
16.   (setvar "pickstyle" 0)
    
17.   (setvar "edgemode" 1)
    
18.   (princ "\n选择对象或 <全部选择>:")
    
19.   (if (setq ss (ssget))
    
20.       (command ".trim" ss "")
    
21.       (command ".trim" "" "e" "n")
    
22.   )
    
23.   (while (/= 0 (getvar "cmdactive")) (command pause))
    
24.   (setvar "cmdecho" cm)
    
25.   (setvar "pickstyle" ps)
    
26.   (princ)
    
27. )
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun ee_err (s)<br />   (setvar "cmdecho" cm)<br />   (setvar "pickstyle" ps)<br />   (command "_.undo" "_e")<br /> )<br /> <br /> (defun c:t ()<br />   (princ "\n* 修剪对象→|边=延伸、组选=关闭| *")<br />   (setq cm (getvar "cmdecho"))<br />   (setq ps (getvar "pickstyle"))<br />   (setq *error* ee_err)<br />   (setvar "cmdecho" 1)<br />   (setvar "pickstyle" 0)<br />   (setvar "edgemode" 1)<br />   (princ "\n选择对象或 <全部选择>:")<br />   (if (setq ss (ssget))<br />       (command ".trim" ss "")<br />       (command ".trim" "" "e" "n")<br />   )<br />   (while (/= 0 (getvar "cmdactive")) (command pause))<br />   (setvar "cmdecho" cm)<br />   (setvar "pickstyle" ps)<br />   (princ)<br /> )<br />   [/FONT]<br />