多圆求并集并填充

zhangq_cai1

画很多半径为15m或4.5m的圆，把里面的都裁剪掉，然后填充，能实现这样的功能吗

newer

给你简单的写了个，用前加载XRX_API，核心代码其实就一行，求轮廓线。

1. (defun c:tt()
   
2.    (xdrx_begin)
   
3.    (if (setq e (xdrx_geom_searchoutline (setq ss (ssget '((0 . "CIRCLE")))) 0.0))
   
4.       (progn
   
5.          (xdrx_sysvar_push '("cmdecho" 0))
   
6.          (command ".erase" ss "")
   
7.          (command ".hatch" "ansi31" "500" "" (entlast) "")
   
8.          (xdrx_entity_setcolor (entlast) 1)
   
9.       )
   
10.    )
    
11.    (xdrx_end)
    
12.    (princ)
    
13. )
    

(defun c:tt()<br />    (xdrx_begin)<br />    (if (setq e (xdrx_geom_searchoutline (setq ss (ssget '((0 . "CIRCLE")))) 0.0))<br />       (progn<br />          (xdrx_sysvar_push '("cmdecho" 0))<br />          (command ".erase" ss "")<br />          (command ".hatch" "ansi31" "500" "" (entlast) "")<br />          (xdrx_entity_setcolor (entlast) 1)<br />       )<br />    )<br />    (xdrx_end)<br />    (princ)<br /> )<br />

st788796

这个功能老早就讨论过，用 Lisp 的话就是 Region ssget + Union

XMAN2013

谁要是不用 Region这个命令。自己写一个一样的命令代替那就是超牛B

snsj

不用REGIon，最简单的用 boundary 一样解决

zhangq_cai1

介绍一下 boundary ~~~~~~~~~~~~~~~~~~~~~···

newer

XMAN2013 发表于 2013-7-18 09:47
谁要是不用 Region这个命令。自己写一个一样的命令代替那就是超牛B

上面的程序就没用到REGION，直接多边形算法算的。

不过，用什么不用什么没什么牛B不牛B的，只要你达到目的。

st788796

snsj 发表于 2013-7-18 12:40
不用REGIon，最简单的用 boundary 一样解决

先自残了还NB去！