;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;幕匠LISP实验室;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;程序功能：剪选圈里的所有线  [备注：剪选圈里的所有线]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:MJ49 (/ p1 p2 p3 p4 dst ang p1a p2a p3a p4a lst) 
(cmdla0) 
(setq p1 (getpoint "\n选择矩形框的第一角：") 
p2 (getcorner p1 "\n选择矩形框的另一角：") 
) 
(setvar "osmode" 0) 
(command "undo" "be") 
(command "rectang" p1 p2) 
(setq lst (entlast)) 
(setq p3 (list (car p2) (cadr p1)) 
p4 (list (car p1) (cadr p2)) 
dst (/ (distance p1 p2) 100.0) 
ang (angle p1 p2) 
p1a (polar p1 ang dst) 
p2a (polar p2 ang (- 0 dst)) 
p3a (list (car p2a) (cadr p1a)) 
p4a (list (car p1a) (cadr p2a)) 
) 
(command "_.trim" lst "" "f" p1a p3a p2a p4a p1a "" "") 
(if (= txt5 "1") 
(command "_erase" "all" "_r" "_c" p1 p2 "") 
(command "_erase" "_w" p1 p2 "") 
) 
(command "rectang" p1 p2) 
(command "undo" "e") 
(cmdla1) 
) 
(defun CMDLA0 () 
(setq cmd (getvar "CMDECHO")) 
(setq oom (getvar "orthomode")) 
(setq osm (getvar "osmode")) 
(setq hlt (getvar "highlight")) 
(setq rmode (getvar "regenmode")) 
(setvar "regenmode" 0) 
(setvar "CMDECHO" 0) 
(princ) 
) 
(defun CMDLA1 () 
(setvar "CMDECHO" cmd) 
(setvar "orthomode" oom) 
(setvar "osmode" osm) 
(setvar "highlight" hlt) 
(setvar "regenmode" rmode) 
(princ) 
)

