最后修改時間: 2008年2月26日0時21分

(defun c:t( / pt1 pt2 pt3 pt4 ss)
(princ "n框選剪切 V1.0 xshrimp 2008.2.25")
(setvar "cmdecho" 0) 
(princ "n當(dāng)前設(shè)置:投影=UCS，邊=無")
(princ "選擇剪切邊...")
(setq ss (ssget))
(command "_.TRIM")
(if ss (command ss))
(if    (wcmatch (getvar "cmdnames") "*TRIM*")  (command "")) 
(while (wcmatch (getvar "cmdnames") "*TRIM*"#p#分頁標(biāo)題#e#)
(setvar "cmdecho" 0)
(initget 2 "F P E U") 
(setq pt1 (getpoint "n[欄選(F)/投影(P)/邊(E)/放棄(U)]:")) 
    (cond ((= (type pt1) 'STR)            
     (setvar "cmdecho" 1)
     (command pt1)
     (while (wcmatch (getvar "cmdnames") "*TRIM*")  (command pause))  
    )
   ((= (type pt1) 'list)     
     (if   (setq pt2 (getcorner pt1#p#分頁標(biāo)題#e# ))   
    (progn
    (setq pt3 (list (car pt1) (cadr pt2) 0.0)
                        pt4 (list (car pt2) (cadr pt1) 0.0)
                  )
                  (command "F" pt1 pt2 pt3 pt4 "" )
    )
    (command "")        
     ) 
   ) 
   (T (command ""))          
    )
) 
)

 
以上缺點就是不支持以單個塊內(nèi)線的邊界為修剪邊界.
處理方法利用R14中類似btrim命令.