CAD尺寸标注自动转换为XLSX表格

newer

把这些所有图形的DWG文件传上来吧。

newer

试试下面代码， 用前 先 安装下晓东工具箱, 目前只适合矩形，其他形状也按矩形统计。

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
3.     (progn
   
4.       (setq ss (xdrx_geom_searchregions (xdrx_curve_intersectbreak ss 0) 0))
   
5.       (setq ll nil)
   
6.       (mapcar
   
7.         '(lambda (x)
   
8.            (setq box (xdrx_entity_box x)
   
9.                  area1 (xdrx_getpropertyvalue x "area")
   
10.                  x1 (distance (car box) (cadr box))
    
11.                  y1 (distance (car box) (last box))
    
12.                  ll (cons (list area1 (list (fix x1) (fix y1)) x) ll)
    
13.            )
    
14.          )
    
15.         (xdrx_pickset->ents ss)
    
16.       )
    
17.      (setq a (mapcar 'cdr (cdr (vl-sort ll '(lambda(x y) (> (car x)(car y)))))))
    
18.      (setq b (vl-remove '(nil nil) (xd::list:groupbyindex a 1e-3)))
    
19.      (setq i 0)
    
20.      (setq c (mapcar '(lambda (x)(list (setq i (1+ i)) (caar x)(cadar x) (length (cdr x)))) b))
    
21.      (setq c (cons (list "序号" "X" "Y" "数量") c))
    
22.      (if (setq fn (xdrx_system_selectFiles "选取保存的文件名" "" "xls" 1))
    
23.         (progn
    
24.            (XD::Excel:createToFile (car fn) c)
    
25.         )
    
26.      )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq ss (xdrx_geom_searchregions (xdrx_curve_intersectbreak ss 0) 0))<br />       (setq ll nil)<br />       (mapcar<br />         '(lambda (x)<br />            (setq box (xdrx_entity_box x)<br />                  area1 (xdrx_getpropertyvalue x "area")<br />                  x1 (distance (car box) (cadr box))<br />                  y1 (distance (car box) (last box))<br />                  ll (cons (list area1 (list (fix x1) (fix y1)) x) ll)<br />            )<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />      (setq a (mapcar 'cdr (cdr (vl-sort ll '(lambda(x y) (> (car x)(car y)))))))<br />      (setq b (vl-remove '(nil nil) (xd::list:groupbyindex a 1e-3)))<br />      (setq i 0)<br />      (setq c (mapcar '(lambda (x)(list (setq i (1+ i)) (caar x)(cadar x) (length (cdr x)))) b))<br />      (setq c (cons (list "序号" "X" "Y" "数量") c))<br />      (if (setq fn (xdrx_system_selectFiles "选取保存的文件名" "" "xls" 1))<br />         (progn<br />            (XD::Excel:createToFile (car fn) c)<br />         )<br />      )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

lidayu

newer 发表于 2016-5-15 16:33
把这些所有图形的DWG文件传上来吧。

老师您好，我是菜鸟一个，请您把具体操作步骤讲下好吗，谢谢！
呈上附件：

请点击此处下载

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

您的用户组是：游客

文件名称:YX转换为表格.rar 
下载次数:3  文件大小:154.09 KB 
下载权限: 不限 以上  [免费赚D豆]

newer

lidayu 发表于 2016-5-15 17:49
老师您好，我是菜鸟一个，请您把具体操作步骤讲下好吗，谢谢！
呈上附件：

你把上面的代码拷贝下来，贴到记事本里面，保存成扩展名是 .lsp 的文件，然后找到文件拖动到CAD窗口就加载了。运行命令是  TT
多去上面的LISP等论坛看看置顶的帖子。

晓东工具箱 你点 链接下载安装。如果是WIN10系统，不要装到C盘。 在启动CAD就能看的晓东工具箱了。

lidayu

newer 发表于 2016-5-15 17:59
你把上面的代码拷贝下来，贴到记事本里面，保存成扩展名是 .lsp 的文件，然后找到文件拖动到CAD窗口就加 ...

老师您好，我安装晓东工具箱后打开CAD选择加载后出现 我CAD版本2016

newer

lidayu 发表于 2016-5-15 18:16
老师您好，我安装晓东工具箱后打开CAD选择加载后出现我CAD版本2016

CAD什么版本? 说说打开CAD后，你详细的每一步。再哪步出错的。

lidayu

newer 发表于 2016-5-15 18:27
CAD什么版本? 说说打开CAD后，你详细的每一步。再哪步出错的。

老师您好，刚才是我CAD的问题现在好了，我按照您教的步骤操作在图形中如果是矩形图形是可以实现统计，但线性图形好像不可以，当运行TT命令后选择不到对象。我常规画图都是用L或PL命令.

newer

lidayu 发表于 2016-5-15 18:39
老师您好，刚才是我CAD的问题现在好了，我按照您教的步骤操作在图形中如果是矩形图形是可以实现统计，但 ...

你把代码里面的  "LWPOLYLINE"  改成 "LWPOLYLINE,LINE" 保存加载再 试试。

lidayu

newer 发表于 2016-5-15 18:43
你把代码里面的  "LWPOLYLINE"  改成 "LWPOLYLINE,LINE" 保存加载再 试试。

老师您好，代码改了后线性可以实现统计，圆弧的这个

我把线性转换为多段线后也可以统计，圆形的楼梯就不行了

lidayu

newer 发表于 2016-5-15 18:43
你把代码里面的  "LWPOLYLINE"  改成 "LWPOLYLINE,LINE" 保存加载再 试试。

老师您好，运行TT命令后会把一部分图形删除掉，请你测试下。

newer

lidayu 发表于 2016-5-15 19:00
老师您好，代码改了后线性可以实现统计，圆弧的这个

我把线性转换为多段线后也可以统计，圆形的楼梯就 ...

你把加LINE的地方，后面再加上，  "LWPOLYLINE,LINE,ARC,CIRCLE"  这样多段线，线，弧线，圆都给你统计了，你试试。

楼梯那地方，要统计大的，就把中间那个弧线删除。

不过楼梯那地方，也是按拓扑出来的多边形矩形框长宽统计的，你要想不是矩形框，你要定个规则，才好写到程序里面。

这个程序能把你所有相交的线，多段线，弧线，园先拓扑成多边形。只要他们是相交的，就能出来统计。

lidayu

newer 发表于 2016-5-15 19:15
你把加LINE的地方，后面再加上，  "LWPOLYLINE,LINE,ARC,CIRCLE"  这样多段线，线，弧线，圆都给你统计了 ...

老师您好，代码修改后圆形楼梯得出的结果不对，正确的结果应该是300*1100=16块 ，534*1100=7块

，老师可否根据图层统计呢？假设我想统计图层“石材”及“线条”就统计这两层别的选中了也不统计，可以这样写代码吗？

newer

lidayu 发表于 2016-5-15 19:38
老师您好，代码修改后圆形楼梯得出的结果不对，正确的结果应该是300*1100=16块 ，534*1100=7块

，老师 ...

统计层就不用加在这个代码里面了，而是你要自己构建选择集去给程序做。你可以关闭其他图层等，晓东工具箱图层工具里面有选层关闭，选层保留什么的，

另外，有个快速选择工具， 点 快捷菜单里面， 画图快慢和你如何快速的选择到要操作的东西相关。你选东西快，你画图就比别人快。

弧线那个，你想统计的是  弦长 和 侧边 ？

lidayu

newer 发表于 2016-5-15 20:00
统计层就不用加在这个代码里面了，而是你要自己构建选择集去给程序做。你可以关闭其他图层等，晓东工具箱 ...

老师您好，不求弧长，就求我标注的534侧边及1100

lidayu

newer 发表于 2016-5-15 20:00
统计层就不用加在这个代码里面了，而是你要自己构建选择集去给程序做。你可以关闭其他图层等，晓东工具箱 ...

newer老师您好，能否再帮我研究下，我的要求能否实现，谢谢！