(defun c:t( / pt1 pt2 pt3 pt4 ss) (princ "\n框选剪切 V1.0 xshrimp 2008.2.25") (setvar "cmdecho" 0) (princ "\n当前设置:投影=UCS，边=无") (princ "选择剪切边...") (setq ss (ssget)) (command "_.TRIM") (if ss (command ss)) (if (wcmatch (getvar "cmdnames") "*TRIM*") (command "")) (while (wcmatch (getvar "cmdnames") "*TRIM*"

) (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)) ) ((= (typept1) 'list) (if (setq pt2 (getcorner pt1

)) (progn (setq pt3 (list (car pt1) (cadrpt2) 0.0) pt4 (list (car pt2) (cadr pt1) 0.0)) (command "F" pt1 pt2 pt3 pt4 "" ) )(command "") ) ) (T (command "")) ) ) )

	

	  以上缺点就是不支持以单个块内线的边界为修剪边界.
处理方法利用R14中类似btrim命令.