同心圆弧合并

快乐王子刚

newer

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

你给我的是这个图啊，




你弄那么多不好说明问题啊，你就把代表的拿一个放大就行了，



你这也不是一个弧啊，为什么要把他们连成圆弧呢？ 连成一个多段线位置不变不就行吗？
你要想连成圆弧，规则是什么呢？ 半径取哪个，圆心取哪个？ 这样的弧出来也可能和原来位置不符的。

你连的结果，根据什么，把所有想的都贴出来吧。

快乐王子刚

newer

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

那你画的  圆心，半径 是什么什么画的呢？

csharp

按圆心、半径分组，组内按起始角排序，最后后再合并(圆心、半径可以取平均值)

快乐王子刚

newer 发表于 2017-2-17 20:20

不是我画的，是从别的软件导过来的。算了，我觉得很难实现，不弄了。上面你写的同心圆弧合并很好用，就先用这个吧。谢谢你了。

newer

快乐王子刚 发表于 2017-2-18 11:40

试试，交互，把你认为组成圆弧的实体拟合成圆弧。你选的那些，这些组成弧，不在一起的不要选。
下载安装XDRX_API 2018.02.18+版本。

(defun c:tt ()
  (xdrx_begin)
  (xdrx_initssget "\n请选取要拟合圆弧的LINE,POINT,*POLYLINE,ARC<退出>:")
  (if (setq ss (xdrx_ssget '((0 . "POINT,*POLYLINE,LINE,ARC"))))
    (progn
      (setq pts (apply
                  'append
                  (mapcar
                    '(lambda (x)
                       (xdrx_getsamplept x 0.01)
                     )
                    (xdrx_pickset->ents ss)
                  )
                )
            pts (xd::pnts:removedup pts 0.01)

      )
      (if (setq cir (xd::pnts:fitcircle pts))
        (progn
          (apply
            'xdrx_arc_make
            cir
          )
          (xdrx_setpropertyvalue (entlast) "color" 1)
        )
      )
    )
  )
  (xdrx_end)
  (princ)
)

快乐王子刚

下载了最新函数，可以用了，很好用，就是我要效果。非常的感谢。

qqqincccken

这么高深的技术,学习了,谢谢大牛