清除重复点的功能貌似不清理不干净重复的点

口味虾

程序功能是自动在交点处把line打断 然后给交点编号，给杆件统计长度并且编号。
由于电脑的cad是自动给dwg加密了的，导出成dxf也是乱码，抱歉就给不了图形文件了。



xdrx_curve_getinters后得到的交点很多，用XD::List:RemoveDup后 节点少了不少，不过还是有重叠的点，都集中在桁架下弦，具体程序见参看附件109行的内容。不知道为什么就是清理不掉。


点重叠的情况大样，看坐标也同一个值。



整个桁架的结构



lsp的文件附件  启动 命令SBS,ps需要建立一个 “CO2”的文字样式 才能显示文字。

请点击此处下载

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

您的用户组是：游客

文件名称:tmp.lsp 
下载次数:9  文件大小:2.56 KB 
下载权限: 不限 以上  [免费赚D豆]

XDSoft

把你的DWG图也发上来。

XDSoft

1、xdrx_curve_intersectbreak 的时候，精度给0
2、得到每段线后，其实你不必要在求交点了，遍历所有实体，求2端点，往表里面添加，添加时候重复的不添加进去。

st788796

修改下函数，对点重复必须要给个误差用vl-remove-if才能清彻底

st788796

交点在断开之前求，然后消重点

口味虾

st788796 发表于 2013-11-13 23:23
交点在断开之前求，然后消重点

如果我画的时候就是一段一段的画，不用打断命令，那怎么办呢

XDSoft

口味虾 发表于 2013-11-13 23:28
如果我画的时候就是一段一段的画，不用打断命令，那怎么办呢

用xdrx_curve_intersectbreak 打断后，我用xdrx_curve_getinters  或者 xdrx_getinters 都没有重复点

打断的目的是为了让你能得到每段线，让你统一长度。 如果你还想保持打断前，有好多技巧。

你去看看这个帖子24楼，http://bbs.xdcad.net/forum.php?m ... =671423&pid=3496041

LISPBOY的，怎么标出每段长度的，处理后，原来是连着的多段线还是多段线。

不清楚的，再回来这个帖子发帖问。

st788796

口味虾 发表于 2013-11-13 23:28
如果我画的时候就是一段一段的画，不用打断命令，那怎么办呢

那直接求交点，楼主把你的要求详细说说，给你写个例子

XDSoft

口味虾 发表于 2013-11-13 23:28
如果我画的时候就是一段一段的画，不用打断命令，那怎么办呢

如果你每段都是LINE，那么(xdrx_getinters (ssget)) 是没有重复点的，我刚测试过.

XDSoft

口味虾 发表于 2013-11-13 23:28
如果我画的时候就是一段一段的画，不用打断命令，那怎么办呢

给你写了个消除重复点的函数，去测试下： http://bbs.xdcad.net/thread-671604-1-1.html，结果贴过来。