把LSP改为右键结束

yfs719

在本论坛一位大侠哪得到以下LSP(先感谢)，作用是在很接近矩形的四边形的一个边上生成一个真正的矩形。求，把这个LPS改为批量选取四边形画矩形。如果批量有难度的话把这个LSP改为一直点下去，直到右键结束也行，感谢。

xyp1964

ZZXXQQ

2. (defun c:tt (/ BASEPT BBOX ENT MAXPT MINPT PT1 PT2 PTLST SEG TMPENT X)
   
3. (vl-load-com)
   
4. (while (and (setq ent (entsel "\n选择四边形:"))
   
5.            (setq basept (osnap (cadr ent) "_nea"))
   
6.            (setq ent (car ent)))
   
7.   (setq ptlst (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget ent)))
   
8.   (setq ptlst (mapcar '(lambda (x) (append (cdr x) (list 0.)))
   
9.                           (append ptlst (list (car ptlst)))))
   
10.   (setq seg (fix (vlax-curve-getparamatpoint ent basept)))
    
11.   (setq pt1 (nth seg ptlst))
    
12.   (setq pt2 (nth (1+ seg) ptlst))
    
13.   (setq tmpent (vlax-invoke-method (vlax-ename->vla-object ent) 'copy))
    
14.   (vlax-invoke-method tmpent 'Rotate (vlax-3d-point pt1) (* -1 (angle pt1 pt2)))
    
15.   (vlax-invoke-method tmpent 'GetBoundingBox 'minpt 'maxpt)
    
16.   (setq minpt (vlax-safearray->list minpt)
    
17.         maxpt (vlax-safearray->list maxpt))
    
18.   (command "_rectang" "_non" minpt "_non" maxpt)
    
19.   (setq bbox (entlast))
    
20.   (vlax-invoke-method
    
21.    (vlax-ename->vla-object bbox)
    
22.    'Rotate
    
23.    (vlax-3d-point pt1)
    
24.    (angle pt1 pt2)
    
25.   )
    
26.   (vla-erase tmpent)
    
27. )
    
28. (princ)
    
29. )
    

(defun c:tt (/ BASEPT BBOX ENT MAXPT MINPT PT1 PT2 PTLST SEG TMPENT X)<br /> (vl-load-com)<br /> (while (and (setq ent (entsel "\n选择四边形:"))<br />            (setq basept (osnap (cadr ent) "_nea"))<br />            (setq ent (car ent)))<br />   (setq ptlst (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget ent)))<br />   (setq ptlst (mapcar '(lambda (x) (append (cdr x) (list 0.)))<br />                           (append ptlst (list (car ptlst)))))<br />   (setq seg (fix (vlax-curve-getparamatpoint ent basept)))<br />   (setq pt1 (nth seg ptlst))<br />   (setq pt2 (nth (1+ seg) ptlst))<br />   (setq tmpent (vlax-invoke-method (vlax-ename->vla-object ent) 'copy))<br />   (vlax-invoke-method tmpent 'Rotate (vlax-3d-point pt1) (* -1 (angle pt1 pt2)))<br />   (vlax-invoke-method tmpent 'GetBoundingBox 'minpt 'maxpt)<br />   (setq minpt (vlax-safearray->list minpt)<br />         maxpt (vlax-safearray->list maxpt))<br />   (command "_rectang" "_non" minpt "_non" maxpt)<br />   (setq bbox (entlast))<br />   (vlax-invoke-method<br />    (vlax-ename->vla-object bbox)<br />    'Rotate<br />    (vlax-3d-point pt1)<br />    (angle pt1 pt2)<br />   )<br />   (vla-erase tmpent)<br /> )<br /> (princ)<br /> )<br />

yfs719

十分感谢两位的帮助，就是我样要的。