本程序为求多个封闭物体的面积之和(圆、多边形)..

zhb236623

1. (defun c:mj ()    ;;;mjtd.com
   
2.   (VL-LOAD-COM)
   
3.   (princ "\n ****本程序为求多个封闭物体的面积之和****")
   
4.   (princ "\n 请选择封闭物体(圆、多边形)....")
   
5.   (setq ss (ssget '((0 . "CIRCLE,LWPOLYLINE"))))
   
6.   (setq        i   0
   
7.         ES  0
   
8.   )
   
9.   (repeat (sslength ss)
   
10.     (setq ent (ssname ss i))
    
11.     (setq obj (vlax-ename->vla-object ent))
    
12.     (setq s (vla-get-Area obj))
    
13.     (setq es (+ es s))
    
14.     (setq i (1+ i))
    
15.   )
    
16.   (princ (strcat "总面积为：" (rtos es)))
    
17.   (princ)
    
18. )

复制代码

好用的话再发一个可以统计层面积的，基于CASS使用。这个在画房子的时候要先标注房屋层数才能使用。
“居民地——   ‘一般房屋   ——  多点砖房屋   ”  最后提示输入层数  类似这样子画出来的房子才能统计房屋面积。。

1. (defun c:cmj ()
   
2.   (VL-LOAD-COM)
   
3.   (princ "\n ****本程序为求多个封闭物体的面积之和****")
   
4.   (princ "\n 请选择封闭物体(圆、多边形)....")
   
5. 
   
6. ;;(ssget  '((0 . "TEXT")(8 . "JZP")))
   
7. 
   
8. 
   
9.   (setq ss (ssget '((0 . "CIRCLE,LWPOLYLINE")(8 . "JMD"))))
   
10.   (setq        i   0
    
11.         ES  0
    
12.   )
    
13.   (repeat (sslength ss)
    
14.     (setq ent (ssname ss i))
    
15.     (setq obj (vlax-ename->vla-object ent))
    
16.     (setq s (vla-get-Area obj))
    
17.                
    
18.                 (setq appname "south")
    
19.                 (regapp (setq rname appname))
    
20.                 (setq xxdata (entget ent (list rname)))
    
21.     (setq south_sx1 (cdr (assoc -3 xxdata)))         ;;提取－3的后表
    
22.     (setq house_cen (cdr (assoc 1040 (cdr (car south_sx1)))))    ;;获取楼房层数
    
23.          (setq single_area ( * s house_cen ))
    
24.                                
    
25.     (setq es (+ es single_area))
    
26.     (setq i (1+ i))
    
27.   )
    
28.   (princ (strcat "总面积(单间单层面积*层数)为：" (rtos es)))
    
29.   (princ)
    
30. )
    

复制代码

以下程序为统计每套房间面积，层数，单幢总面积的程序。最后只要把文件文件改为   aa.txt->aa.csv  直接改后缀名就可以看到结果。。。。

1. (defun c:cmj ()
   
2.   (VL-LOAD-COM)
   
3.   (princ "\n ****本程序为求多个封闭物体的面积之和****")
   
4.   (princ "\n 请选择封闭物体(圆、多边形)....")
   
5. 
   
6. 
   
7. 
   
8. (setq ffn (getfiled "选取文件" "D:/temp/" "txt" 1))
   
9. (setq ff (open ffn "w"))
   
10. (princ "单层面积,层数,整幢面积" ff)
    
11. (princ "\n" ff)
    
12. (close ff)
    
13. 
    
14. 
    
15. ;;(ssget  '((0 . "TEXT")(8 . "JZP")))
    
16. 
    
17. 
    
18.   (setq ss (ssget '((0 . "CIRCLE,LWPOLYLINE")(8 . "JMD"))))
    
19.   (setq        i   0
    
20.         ES  0
    
21.   )
    
22.   (repeat (sslength ss)
    
23.     (setq ent (ssname ss i))
    
24.     (setq obj (vlax-ename->vla-object ent))
    
25.     (setq s (vla-get-Area obj))
    
26.                
    
27.                 (setq appname "south")
    
28.                 (regapp (setq rname appname))
    
29.                 (setq xxdata (entget ent (list rname)))
    
30.     (setq south_sx1 (cdr (assoc -3 xxdata)))         ;;提取－3的后表
    
31.     (setq house_cen (cdr (assoc 1040 (cdr (car south_sx1)))))    ;;获取楼房层数
    
32.          (setq single_area ( * s house_cen ))
    
33.                                 
    
34.     (setq es (+ es single_area))
    
35. 
    
36.         (setq ff (open ffn "a"))
    
37.         (princ s ff)
    
38.         (princ "," ff)
    
39.         (princ house_cen ff)
    
40.         (princ "," ff)
    
41.         (princ single_area ff)
    
42.         (princ "\n" ff)
    
43.         (close ff)
    
44.     (setq i (1+ i))
    
45.   )
    
46.   (princ (strcat "总面积(单间单层面积*层数)为：" (rtos es)))
    
47.   (princ)
    
48. )

复制代码

heart

楼主把代码使用说明说明一下

zhb236623

新建文本文件，改名为mj.lsp
复制上面代码到里面保存。
打开CASS ，在命令行输入appload  ,加载mj.lsp文件，然后在命令行输入   mj   就可以选 择封闭区域求总面积

zhb236623

只要下载附件，在CAD 命令行输入APPLOAD   加载MJ.LSP

然后在命令行输入MJ   选择封闭区域就可以得到多个选中的封闭区域的总面积。。。

莱蒽

求资源量的时候比较好啊

zh143028

房屋面积之和计算出来了，如果能保存出一个房屋面积统计就好了，也就是所计算的每个房屋面积是多少，总和是多少的一个统计

zhb236623

zh143028 发表于 2011-9-27 17:49
房屋面积之和计算出来了，如果能保存出一个房屋面积统计就好了，也就是所计算的每个房屋面积是多少，总和是 ...

这个可以有，代码已更新。。。。。。。。。。。。

折翼天使

谢谢楼主。。。。。。

折翼天使

谢谢楼主。。。。。。

杨杨玄

LSP编程，好东西！谢谢分享！