cad面积统计工具 运行错误 或求重新编程

kissesshot

接到一个初步统计拆迁房屋面积的工作 要求是将房屋编号并统计面积。于是我下载了一个cad插件
效果如图 可以将封闭的多边形自动编号标注面积 并导出到excel上 图里还有周长 但实际我只需要面积
但是这个插件有个问题就是统计超过200个封闭面积时就会出现application runtime error 请问该如何解决？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:mjlb框选封闭线长度及面积到excel程序v7.rar 
下载次数:13  文件大小:2.65 KB 
下载权限: 不限 以上  [免费赚D豆]

newer

用 面积 搜索论坛，很多。先找下是否有合适的。

kissesshot

newer 发表于 2017-11-24 15:31

论坛里没发现有能同时编号和统计并输出到excel的 由于工作需要 编号和excel里的面积一定要一一对应

newer

kissesshot 发表于 2017-11-24 15:44

上传一个你图片的DWG文件到论坛，帮你写一个。

kissesshot

newer 发表于 2017-11-24 15:54

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:房屋平面.rar 
下载次数:6  文件大小:112.8 KB 
下载权限: 不限 以上  [免费赚D豆]

里面就是房屋的平面地形图 要求就是在图上将每个封闭多段线编号 并将编号和编号对应的封闭图形的面积 输出到excel中
我觉得这种标注和统计工具应该很多相关专业的人都需要的 就是不知道为什么我下的那个插件会出现运行错误

newer

kissesshot 发表于 2017-11-24 15:59

你图中有很多这样的多段线，你要怎么统计

kissesshot

newer 发表于 2017-11-24 16:07

由于只是初步统计 实际只需要读取线段的面积属性 编号 并输出到excel即可

我还想知道 我在帖子里上传的插件 在平常使用的时候是正常的 但是为什么处理更大的图纸 就无法运行？是因为函数库的原因吗

newer

kissesshot 发表于 2017-11-24 16:11

你问的问题，只能是写那个插件的作者能回答你了。

你可以继续提供下信息，比如

1、是否面积低于多少的不统计
2、是否统计多少边行，比如三角形的不统计
3、排序的规则
4、是否多次操作，编号继续上次的结束开始
5、是否有多个编号前缀，比如A1..... B1.......

.....

kissesshot

newer 发表于 2017-11-24 16:33

全部统计
排序按照从上到下 左到右即可
不需要多次操作也可以 能一次全部导出excel最好 前缀就用A就行了
万分感谢！

xx69as

我来围观围观一哈

newer

kissesshot 发表于 2017-11-24 15:59

运行在XDRX API或者晓东工具箱下 ， 生成ACAD TABLE，转EXCEL使用每日插件论坛的 TABLE-》EXCEL插件

1. (defun c:XDTB_TJPOly (/           ar        ar1  data e    i    key         l    l1   l2
   
2.                       len  len1        lst  num  nums p1   p2         p3   pt   pts
   
3.                       scl  ss        tb   tlen txth val  w         x    y
   
4.                      )
   
5.   (defun _process (e)
   
6.     (setq ar  (xdrx_getpropertyvalue e "area")
   
7.           box (xdrx_entity_box e)
   
8.           cen (xd::geom:get9pt e 5)
   
9.           cen (xd::polyline:centroid e)
   
10.     )
    
11.     (if        (> (abs ar) 0.001)
    
12.       (progn (xdrx_text_make
    
13.                cen
    
14.                (setq no (strcat "A" (itoa i)))
    
15.                #xd_var_rectang_txtheight
    
16.                0.0
    
17.              )
    
18.              (XD::Text:SetAlignment (entlast) cen "MC")
    
19.              (list no
    
20.                    (rtos (xdrx_getpropertyvalue e "length")
    
21.                          2
    
22.                          #xd_var_rectang_tol
    
23.                    )
    
24.                    (rtos ar
    
25.                          2
    
26.                          #xd_var_rectang_tol
    
27.                    )
    
28.              )
    
29.       )
    
30.       (progn (setq i (1- i)) nil)
    
31.     )
    
32.   )
    
33.   (defun _keyword (key)
    
34.     (cond ((= key "D")
    
35.            (if (setq val (getint (xdrx_prompt
    
36.                                    "\n保留小数位数<"
    
37.                                    #xd_var_rectang_tol
    
38.                                    ">:"
    
39.                                    t
    
40.                                  )
    
41.                          )
    
42.                )
    
43.              (setq #xd_var_rectang_tol val)
    
44.            )
    
45.           )
    
46.           ((= key "E")
    
47.            (if (setq val (getreal (xdrx_prompt
    
48.                                     "\n表格字高<"
    
49.                                     #xd_var_rectang_txtheight
    
50.                                     ">:"
    
51.                                     t
    
52.                                   )
    
53.                          )
    
54.                )
    
55.              (setq #xd_var_rectang_txtheight val)
    
56.            )
    
57.           )
    
58.     )
    
59.     (_prompt)
    
60.   )
    
61.   (defun _prompt ()
    
62.     (xdrx_prompt
    
63.       "\n当前设置: 字高("         #xd_var_rectang_txtheight
    
64.       ") / 小数位数("                 #xd_var_rectang_tol
    
65.       ")"
    
66.      )
    
67.   )
    
68.   (xdrx_begin)
    
69.   (xdrx_sysvar_push '("dimzin" 0))
    
70.   (xdrx_document_setprec 5 1)
    
71.   (if (not #xd_var_rectang_tol)
    
72.     (setq #xd_var_rectang_tol 1)
    
73.   )
    
74.   (if (not #xd_var_rectang_txtheight)
    
75.     (setq #xd_var_rectang_txtheight 3.5)
    
76.   )
    
77.   (_prompt)
    
78.   (if (and (xdrx_initget "D E")
    
79.            (xdrx_initssget
    
80.              "\n选取要统计的多边形[字高(E)/小数位(D)]<退出>:"
    
81.              "D E"
    
82.              ""
    
83.              "_keyword"
    
84.            )
    
85.            (setq ss (xdrx_ssget '((0 . "*POLYLINE") (-4 . "&=") (70 . 1))))
    
86.       )
    
87.     (progn
    
88.       (setq data nil
    
89.             i         0
    
90.       )
    
91.       (setq ents (xd::pickset:tablesort ss 0 3 '> '<))
    
92.       (setq data (mapcar '(lambda (x) (setq i (1+ i)) (_process x))
    
93.                          (apply 'append ents)
    
94.                  )
    
95.             data (vl-remove nil data)
    
96.       )
    
97.       (setq data (cons (list "编 号" "总 长" "面 积") data)
    
98.             data (cons (list "多边形统计表" nil nil) data)
    
99.       )
    
100.       (if (setq pt (getpoint "\n表格插入点<退出>:"))
     
101.         (progn
     
102.           (xd::text:init 1)
     
103.           (setq        scl  (* (xd::var:getratio) (XD::Var:GetScaleRatio))
     
104.                 txth (* scl #xd_var_rectang_txtheight)
     
105.           )
     
106.           (setq tb (xd::table:makefromlist data pt txth (/ txth 3.0)))
     
107.         )
     
108.       )
     
109.     )
     
110.   )
     
111.   (xdrx_sysvar_pop)
     
112.   (xdrx_end)
     
113.   (princ)
     
114. )
     

(defun c:XDTB_TJPOly (/           ar        ar1  data e    i    key         l    l1   l2<br />                       len  len1        lst  num  nums p1   p2         p3   pt   pts<br />                       scl  ss        tb   tlen txth val  w         x    y<br />                      )<br />   (defun _process (e)<br />     (setq ar  (xdrx_getpropertyvalue e "area")<br />           box (xdrx_entity_box e)<br />           cen (xd::geom:get9pt e 5)<br />           cen (xd::polyline:centroid e)<br />     )<br />     (if        (> (abs ar) 0.001)<br />       (progn (xdrx_text_make<br />                cen<br />                (setq no (strcat "A" (itoa i)))<br />                #xd_var_rectang_txtheight<br />                0.0<br />              )<br />              (XD::Text:SetAlignment (entlast) cen "MC")<br />              (list no<br />                    (rtos (xdrx_getpropertyvalue e "length")<br />                          2<br />                          #xd_var_rectang_tol<br />                    )<br />                    (rtos ar<br />                          2<br />                          #xd_var_rectang_tol<br />                    )<br />              )<br />       )<br />       (progn (setq i (1- i)) nil)<br />     )<br />   )<br />   (defun _keyword (key)<br />     (cond ((= key "D")<br />            (if (setq val (getint (xdrx_prompt<br />                                    "\n保留小数位数<"<br />                                    #xd_var_rectang_tol<br />                                    ">:"<br />                                    t<br />                                  )<br />                          )<br />                )<br />              (setq #xd_var_rectang_tol val)<br />            )<br />           )<br />           ((= key "E")<br />            (if (setq val (getreal (xdrx_prompt<br />                                     "\n表格字高<"<br />                                     #xd_var_rectang_txtheight<br />                                     ">:"<br />                                     t<br />                                   )<br />                          )<br />                )<br />              (setq #xd_var_rectang_txtheight val)<br />            )<br />           )<br />     )<br />     (_prompt)<br />   )<br />   (defun _prompt ()<br />     (xdrx_prompt<br />       "\n当前设置: 字高("         #xd_var_rectang_txtheight<br />       ") / 小数位数("                 #xd_var_rectang_tol<br />       ")"<br />      )<br />   )<br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("dimzin" 0))<br />   (xdrx_document_setprec 5 1)<br />   (if (not #xd_var_rectang_tol)<br />     (setq #xd_var_rectang_tol 1)<br />   )<br />   (if (not #xd_var_rectang_txtheight)<br />     (setq #xd_var_rectang_txtheight 3.5)<br />   )<br />   (_prompt)<br />   (if (and (xdrx_initget "D E")<br />            (xdrx_initssget<br />              "\n选取要统计的多边形[字高(E)/小数位(D)]<退出>:"<br />              "D E"<br />              ""<br />              "_keyword"<br />            )<br />            (setq ss (xdrx_ssget '((0 . "*POLYLINE") (-4 . "&=") (70 . 1))))<br />       )<br />     (progn<br />       (setq data nil<br />             i         0<br />       )<br />       (setq ents (xd::pickset:tablesort ss 0 3 '> '<))<br />       (setq data (mapcar '(lambda (x) (setq i (1+ i)) (_process x))<br />                          (apply 'append ents)<br />                  )<br />             data (vl-remove nil data)<br />       )<br />       (setq data (cons (list "编 号" "总 长" "面 积") data)<br />             data (cons (list "多边形统计表" nil nil) data)<br />       )<br />       (if (setq pt (getpoint "\n表格插入点<退出>:"))<br />         (progn<br />           (xd::text:init 1)<br />           (setq        scl  (* (xd::var:getratio) (XD::Var:GetScaleRatio))<br />                 txth (* scl #xd_var_rectang_txtheight)<br />           )<br />           (setq tb (xd::table:makefromlist data pt txth (/ txth 3.0)))<br />         )<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

yangjian001

非常不错的资料呀