将非直角四边形转化成直角矩形

yjr111

如题，如图要求：点击任意一条边，转化成被该四边形包围的最大矩形

阿然

试一试

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

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

可以不局限边数

成仔

阿然 发表于 2013-3-11 23:35
试一试

可以不局限边数

可以修改成打散的不规则四边形或多边形吗？谢谢！

阿然

哦，是我看错题目了，我再想想

weiqi

围观围观围观围观

oistre

狂顶
用力顶
我用力顶
我很用力顶
再加上千斤顶
总之把它顶到顶

young-yi

围观围观围观围观