用点选方式计算面积

linzaijie

类似填充功能一样,在中间点一点..计算周边的面积,,,如果周边不是封闭的,提示计算失败...求实现思路

qazxswk

或以在闭合区域使用BOUNDARY命令，生成边界线，然后再获取边界线的面积与周长。另外如果是高版本，也可以在闭合区域填充，然后获取填充图案面积与周长。

kozmosovia

设hpgap大点，做填充提取面积

你有种再说一遍

扫描线算法,不是那么容易实现的

chen3732088

2. (vl-load-com)
   
3. (defun c:BBM ()
   
4.   (setvar "cmdecho" 0)   
   
5.   (if (setq pt (getpoint "\n选择封闭区域内部点: "))
   
6.     (progn
   
7.       (setq ent (entlast))
   
8.       (command "BOUNDARY" "_non" pt "")
   
9.       (if (not (equal ent (entlast)))
   
10.         (progn
    
11.           (setq boundary1 (entlast))
    
12.           (setq area1 (vlax-ename->vla-object boundary1))
    
13.           (setq area  (vla-get-area area1))
    
14.           (entdel boundary1)
    
15.           (princ
    
16.             (strcat "\n面积为: " (rtos area 2 2) "mm^3")
    
17.           )
    
18.         )
    
19.         (alert "\n边界未闭合!")
    
20.       )
    
21.     )
    
22.     (alert "\n未选择点!")
    
23.   )
    
24.   (setvar "cmdecho" 1)  
    
25.   (princ)
    
26. )

(vl-load-com)<br /> (defun c:BBM ()<br />   (setvar "cmdecho" 0)   <br />   (if (setq pt (getpoint "\n选择封闭区域内部点: "))<br />     (progn<br />       (setq ent (entlast))<br />       (command "BOUNDARY" "_non" pt "")<br />       (if (not (equal ent (entlast)))<br />         (progn<br />           (setq boundary1 (entlast))<br />           (setq area1 (vlax-ename->vla-object boundary1))<br />           (setq area  (vla-get-area area1))<br />           (entdel boundary1)<br />           (princ <br />             (strcat "\n面积为: " (rtos area 2 2) "mm^3")<br />           )<br />         )<br />         (alert "\n边界未闭合!")<br />       )<br />     )<br />     (alert "\n未选择点!")<br />   )<br />   (setvar "cmdecho" 1)  <br />   (princ)<br /> )

linzaijie

谢谢各位大佬的宝贵意见...我一个个试试...