面积

/db_自贡黄明儒_

上面这个图形，
1 我希望窗选时取得最外一块钢板的面积（忽略中间的孔和角钢),特别是有不规范的线时 ;
2 窗选角钢时，取得角钢面积，如果有不规范线时
这个能办得到吗？

ysq101

那就先PEDIT一下.........给个误差值让先连接起来~~~~~~~~再计算面积

newer

1. (defun c:tt()
   
2.    (if (setq ss (ssget '((0 . "*LINE,ARC"))))
   
3.       (progn
   
4.          (setq ss (xdrx_curve_intersectbreak ss))
   
5.          (xdrx_document_setprec 10 1)   ;;10是开口误差
   
6.          (setq ss (xdrx_geom_searchregions ss 0))
   
7.          (sssetfirst nil ss)
   
8.       )
   
9.    )
   
10.    (princ)
    
11. )

(defun c:tt()<br />    (if (setq ss (ssget '((0 . "*LINE,ARC"))))<br />       (progn<br />          (setq ss (xdrx_curve_intersectbreak ss))<br />          (xdrx_document_setprec 10 1)   ;;10是开口误差<br />          (setq ss (xdrx_geom_searchregions ss 0))<br />          (sssetfirst nil ss)<br />       )<br />    )<br />    (princ)<br /> )

/db_自贡黄明儒_

newer 发表于 2013-11-20 10:54

假如中间有东西，能忽略掉吗？

newer

/db_自贡黄明儒_ 发表于 2013-11-20 10:55
假如中间有东西，能忽略掉吗？

xdrx_geom_searchregions 是搜索所有的联通区域

你中间要有东西，

1、建立选集的时候就过滤掉，把要处理的交给函数 或者

2、搜索到所有的联通区域后，你找出面积最大的区域。

函数不给参数会返回点表

1. 令: (setq pts (xdrx_geom_searchregions (ssget)))
   
2. 
   
3. 选择对象: 指定对角点: 找到 2 个
   
4. 
   
5. 选择对象:
   
6. (((314.801 223.204) (314.801 209.535) (358.216 209.535) (358.216 223.204))
   
7. ((314.801 223.204) (314.801 209.535) (358.216 209.535) (358.216 223.204)
   
8. (358.216 242.997) (314.801 242.997)) ((358.216 223.204) (314.801 223.204)
   
9. (314.801 242.997) (358.216 242.997)))
   
10. 
    
11. 命令: (length pts)
    
12. 3
    
13. 
    

令: (setq pts (xdrx_geom_searchregions (ssget)))<br /> <br /> 选择对象: 指定对角点: 找到 2 个<br /> <br /> 选择对象:<br /> (((314.801 223.204) (314.801 209.535) (358.216 209.535) (358.216 223.204)) <br /> ((314.801 223.204) (314.801 209.535) (358.216 209.535) (358.216 223.204) <br /> (358.216 242.997) (314.801 242.997)) ((358.216 223.204) (314.801 223.204) <br /> (314.801 242.997) (358.216 242.997)))<br /> <br /> 命令: (length pts)<br /> 3<br /> <br />

返回三个区域的点表。