多圆求并集并填充

龙城飞将36

画很多半径为15m或4.5m的圆，把里面的都裁剪掉，然后填充，能实现这样的功能吗
E:\程序资料\GIF动画录制\GIF动画录制\防爆区域1

自贡黄明儒

去看G版的帖子吧，也许就解决了

龙城飞将36

院长的解决了，可惜没源码

ZZXXQQ

做成面域——并集——炸开

dwg001

;;autocad2006下，简单的用cad命令堆积了下，看是否这样？

2. (defun c:test(/ pt1 pt2 ss )
   
3.   ;;功能：画出爆炸区域. Autocad2006下测试
   
4.     (setq pt1(getpoint "\n...Pt1>")
   
5.         pt2(getcorner pt1 "\n...Pt2>"))
   
6.   (setq ss (ssget "_c" pt1 pt2 '((0 . "circle"))))
   
7.   (if ss  (progn
   
8.     (command "_.region"  ss "")
   
9.     (command "_.union"  "_c" pt1 pt2 "")
   
10.     (command "_.explode" (entlast) "")
    
11.     (command "_.pedit" "_m" "_c"  pt1 pt2 "" "y" "j" 0 "")
    
12.     (command "_.bhatch" "_s" (entlast) "" "_p" "solid" "")
    
13.   ))
    
14.   )
    

(defun c:test(/ pt1 pt2 ss )<br />   ;;功能：画出爆炸区域. Autocad2006下测试<br />     (setq pt1(getpoint "\n...Pt1>")<br />         pt2(getcorner pt1 "\n...Pt2>"))<br />   (setq ss (ssget "_c" pt1 pt2 '((0 . "circle"))))<br />   (if ss  (progn<br />     (command "_.region"  ss "")<br />     (command "_.union"  "_c" pt1 pt2 "")<br />     (command "_.explode" (entlast) "")<br />     (command "_.pedit" "_m" "_c"  pt1 pt2 "" "y" "j" 0 "")<br />     (command "_.bhatch" "_s" (entlast) "" "_p" "solid" "")<br />   ))<br />   )<br />

龙城飞将36

哪位高手继续完善~~~~~~~~~~~~~~~~~~

sicky111

论坛里面有求最大外围的帖子，再加上填充功能就可以满足楼主的需求了。

328302216

dwg001 发表于 2013-7-7 11:20
;;autocad2006下，简单的用cad命令堆积了下，看是否这样？

里面有些不在圆内的也保留了...