快速生成直骨架

newer

1. (defun c:tt ()
   
2.   (and (setq ss (xdrx-ssget
   
3.                       (xdrx-string-multilanguage
   
4.                         "\n选择带洞多边形<退出>:"
   
5.                         "\nSelect polygon with holes <exit>:"
   
6.                       )
   
7.                       '((-4 . "<and")
   
8.                         (0 . "*polyline")
   
9.                         (-4 . "&=")
   
10.                         (70 . 1)
    
11.                         (-4 . "and>")
    
12.                        )
    
13.                     )
    
14.            )
    
15.            (xdrx_polygon_get_interior_skeleton ss t t)
    
16.       )
    
17.   (princ)
    
18. )
    
19. 
    

(defun c:tt ()<br />   (and (setq ss (xdrx-ssget<br />                       (xdrx-string-multilanguage<br />                         "\n选择带洞多边形<退出>:"<br />                         "\nSelect polygon with holes <exit>:"<br />                       )<br />                       '((-4 . "<and")<br />                         (0 . "*polyline")<br />                         (-4 . "&=")<br />                         (70 . 1)<br />                         (-4 . "and>")<br />                        )<br />                     )<br />            )<br />            (xdrx_polygon_get_interior_skeleton ss t t)<br />       )<br />   (princ)<br /> )<br /> <br />