【矩形】直角矫正

newer

1. (defun c:xdtb_recjz (/ ss)
   
2.   (if (setq ss (xdrx-ssget
   
3.                  "\n选择要矫正直角的矩形<退出>:"
   
4.                  '((0 . "*polyline") (-4 . "&=") (70 . 1))
   
5.                )
   
6.       )
   
7.     (progn (xdrx-begin)
   
8.            (mapcar '(lambda (x)
   
9.                       (xdrx-polyline-compress x 7)
   
10.                       (xdrx-setpropertyvalue x "perp")
    
11.                     )
    
12.                    (xdrx-pickset->ents ss)
    
13.            )
    
14.            (xdrx-end)
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:xdtb_recjz (/ ss)<br />   (if (setq ss (xdrx-ssget<br />                  "\n选择要矫正直角的矩形<退出>:"<br />                  '((0 . "*polyline") (-4 . "&=") (70 . 1))<br />                )<br />       )<br />     (progn (xdrx-begin)<br />            (mapcar '(lambda (x)<br />                       (xdrx-polyline-compress x 7)<br />                       (xdrx-setpropertyvalue x "perp")<br />                     )<br />                    (xdrx-pickset->ents ss)<br />            )<br />            (xdrx-end)<br />     )<br />   )<br />   (princ)<br /> )