同心圆弧合并

快乐王子刚

请高手帮忙看看我这样的要求可不可以实现 ：一段圆弧有多个小圆弧组成，能不能合并一个圆弧。并不是说一定要同心，可以允许点公差。合并后的圆弧变为其它色，好区分。在这里先谢谢了。

q3_2006

首尾相接半径相同就合并呗...

快乐王子刚

q3_2006 发表于 2017-2-17 17:18

因为量很大，不是一个，两个，所以想写个批量处理的

q3_2006

我说的是思路..跟量没关系..

newer

把DWG压缩下传上来供测试。

快乐王子刚

q3_2006 发表于 2017-2-17 17:28

你的思路是对的，我理解错了。不好意思啊

快乐王子刚

请点击此处下载

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

您的用户组是：游客

文件名称:合并圆弧.rar 
下载次数:8  文件大小:11.48 KB 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

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

您的用户组是：游客

文件名称:合并圆弧.rar 
下载次数:8  文件大小:11.48 KB 
下载权限: 不限 以上  [免费赚D豆]

newer

快乐王子刚 发表于 2017-2-17 17:32

一行代码，试试

(defun c:tt()
  (if (setq ss (ssget '((0 . "ARC,LINE"))))
    (xdrx_Pickset_RemoveDupLine ss)
  )
  (princ)
)

iLisp

ea:hbln 合并直线有这个功能

快乐王子刚

newer 发表于 2017-2-17 18:15

同心的圆弧完美的解决。我想问一下，如果几个弧不在一个圆心，有点偏差，可不可以解决呢？

newer

快乐王子刚 发表于 2017-2-17 18:28

输入间隙的精度

(defun c:tt()
  (if (not #jd)
    (setq #jd 1.)
  )
  (if (setq jd (getreal (xdrx_prompt "\n输入距离精度<" #jd ">:" t)))
    (setq #jd jd)
  )
  (xdrx_begin)
  (xdrx_document_setprec #jd 1)
  (if (setq ss (ssget '((0 . "ARC,LINE"))))
    (xdrx_Pickset_RemoveDupLine ss)
  )
  (xdrx_end)
  (princ)
)

快乐王子刚

newer 发表于 2017-2-17 18:45

不好意思 ，我刚才没有说清楚，我说的偏差是指的圆心。还得麻烦你。

newer

快乐王子刚 发表于 2017-2-17 18:51

我那个图，不也是圆心不同吗？ 不是这样的图，你有合并到一起的必要吗？

你图什么样的，截取个图贴上来。

快乐王子刚

请点击此处下载

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

您的用户组是：游客

文件名称:测试图.rar 
下载次数:1  文件大小:10.2 KB 
下载权限: 不限 以上  [免费赚D豆]

newer

快乐王子刚 发表于 2017-2-17 18:55

没看出你想怎么做，你想合并哪个，复制出来，都给画好，和原图对比的，不用附件，贴图上来方便看。