闭合的近似圆的多段线怎么转换成真圆？求程序批量转换

wzg356

前生 发表于 2020-10-31 12:35
估计这样有些失真。
个人的想法是。取得实体的10点位，取相对分散的3个点，3点计算圆心，半径
entmake 园 ...

这种情况没法的，既然近似园，就这样就行了
13楼取的包围盒短边为d,也可以取两边平均值为d

baoyizhu

xyp1964 发表于 2020-10-30 22:03

版主，您这个程序有一些自定义函数，通用性不佳

f4800

大神呀，大神万岁

czb203

画个标准的圆copy不就行了

mikewolf2k

如果楼主文件中全是圆简单，任意一个多断线上取三个点画圆即可。如果还混有其它非圆的元素，那就麻烦了，得排除那些不是园的元素。

paulpipi

正需要 ，谢谢分享

t18-13nil

(defun c:tt (/ ss n ent para p1 p2 p3)
  (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    (repeat (setq n (sslength ss))
      (setq ent         (ssname ss (setq n (1- n)))
            para (vlax-curve-getEndParam ent)
            p1         (vlax-curve-getPointAtParam ent 0)
            p2         (vlax-curve-getPointAtParam ent (fix (* para 0.33)))
            p3         (vlax-curve-getPointAtParam ent (fix (* para 0.66)))
      )
      (3PCircle p1 p2 p3)
      (entdel ent)
    )
  )
  (princ)
)
3点画圆自己算会快一些

前生

t18-13nil 发表于 2020-11-6 16:28
(defun c:tt (/ ss n ent para p1 p2 p3)
  (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    (repeat ( ...

这个对头。赞一个，虽然少提供一个(3pcircle),这个自己写写就好了

t18-13nil

https://blog.csdn.net/u012138730/article/details/79894181
3点求圆心算法是很容易找到的

tigcat

图形下载后打不开呢，用baitang大侠的工具修复下可以了。PS：谁这么无聊，给论坛放毒